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Computer  Programs  for  Demographic  Analysis  is 
one  of  a  series  of  publications  of  the  International 
Statistical  Programs  Center  (ISPC),  U.S.  Bureau  of  the 
Census.  The  publications  include  demographic  and 
socioeconomic  reports  and  studies  that  were  originally 
prepared  for  program  sponsors  or  for  presentation  at 
conferences.  Efforts  are  made  continually  to  keep  the 
data  presented  in  the  reports  as  accurate  and  complete 
as  source  availability  and  the  technology  for  tabulating 
and  analyzing  data  permit.  Comments  from  users  of 
the  reports  are  welcome. 


Development.  Collaborative  arrangements  have  also 
been  made  with  the  United  Nations  and  many  of  its 
affiliates. 

The  Center's  staff  of  demographers,  economists, 
statisticians,  programmers,  educators,  social  science 
and  systems  analysts,  and  overseas  consultants  main- 
tain a  steady  exchange  of  information  with  domestic 
and  foreign  planning  and  research  organizations,  by 
both  formal  and  informal  means. 

Publications  of  the  Center  include: 


ISPC  conducts  most  of  the  Census  Bureau's  inter- 
national statistical  activities.  The  Center's  programs 
cover  demographic,  economic,  and  social  subjects, 
systems  analysis,  data  processing,  and  statistical 
methodology. 


Some  of  the  Center's  principal  objectives  are  to: 

help  the  developing  nations  of  the  world 
achieve  improvements  in  their  statistics  and 
statistical  systems  through  training  courses 
given  in  ISPC's  own  classrooms  and  by 
correspondence,  through  overseas  workshops 
and  consultation,  and  by  the  development  of 
methodological  materials. 

maintain  an  international  demographic  sta- 
tistics and  information  center  to  provide 
planners,  researchers,  and  others  with  source 
materials  for  studies  and  analyses. 

provide  statistical  assistance  to  the  Agency 
for  International  Development  in  evaluating 
programs  and  determining  policies,  partic- 
ularly in  the  population  field. 

construct  mathematical  models  to  help 
developing  nations  project  trends  and  quan- 
tify the  impacts  of  alternative  demographic, 
economic,  education,  and  health  policies. 


Major  financial  support  for  the  programs  is  provided 
by  the  Office  of  Population,  Agency  for  International 


Demographic  reports  and  profiles  on  se- 
lected foreign  countries 

Demographic  estimates  and  projections  for 
the  world,  its  regions,  and  countries 

Family  planning  statistics  for  the  develop- 
ing countries  of  Africa,  Asia,  and  Latin 
America 

Research  documents,  which  include  con- 
ference reports,  addresses,  and  papers  on 
various  demographic  subjects 

Socioeconomic  studies  of  selected  foreign 
countries 

Computer  data  processing  programs  for 
socioeconomic  analysis,  with  associated 
reference  manuals 

Computer  data  processing  programs  for 
tabulating  census  and  survey  results,  with 
associated  reference  manuals 

World  fertility,  growth,  and  mortality  maps 

Many  of  the  publications  are  translated  into  Spanish 
and  French. 

For  more  information  about  ISPC's  publication  and 
information  programs,  address  inquiries  to  the  Chief, 
Documentation  Branch,  International  Statistical  Pro- 
grams Center,  Bureau  of  the  Census,  Washington,  D.C. 
20233. 
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Chapter  1 

INTRODUCTION 


During  the  last  two  decades,  the  use  of  computers  for  manipulating  and  analyzing 
demographic  data  has  become  an  accepted  and  increasingly  widespread  practice.  This 
trend  toward  computerization  started  with  the  tabulation  of  census  and  survey  results, 
later  incorporated  the  techniques  of  statistical  analysis,  and  now  has  expanded  to 
include  the  techniques  and  methodologies  of  demographic  analysis.  The  main  advantages 
of  using  a  computer  for  demographic  analysis  are  the  ready  availability  of  proven 
demographic  and  statistical  techniques,  the  time  saved,  and  the  assurance  that  calcula- 
tions are  made  without  error. 

This  manual  presents  a  set  of  computer  programs,  or  subroutines,  which  are  designed 
to  analyze  the  quality  of  population  data  as  well  as  to  calculate  and  estimate  numerous 
demographic  parameters.  These  subroutines  can  be  used  for  such  purposes  as  estimating 
levels  and  trends  of  fertility  and  mortality  from  census  and  survey  data,  projecting 
populations  by  age  and  sex,  constructing  model  or  empirical  life  tables,  and  performing 
stable  population  analysis. 

The  subroutines  have  been  written  in  a  level  of  FORTRAN  language  that  is  acceptable 
to  any  computer  with  a  FORTRAN  compiler.  The  documentation  of  the  subroutines  is 
presented  in  a  simple,  straightforward  style,  avoiding  technical  computer  terminology 
as  much  as  possible.  This  approach  was  adopted  so  that  the  documentation  will  be  under- 
standable to  users  who  are  not  experienced  programmers.  Also,  instructions  given  in 
the  documentation  permit  use  of  the  subroutines  without  a  thorough  knowledge  of  the 
demographic  methodologies  involved. 

It  is  strongly  advised,  however,  that  before  employing  any  of  the  subroutines  the 
user  be  fully  aware  of  the  demographic  and  statistical  techniques  utilized.  Computers 
are  not  able  to  judge  the  quality  of  the  data,  the  methods,  or  the  results  from  a 
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demographic  point  of  view.  It  is  the  user's  responsibility  to  decide  whether  or  not  the 
data  and  methods  used  in  the  subroutines  are  proper  and  adequate  for  the  analysis 
being  conducted. 

Following  this  introduction  are  three  additional  chapters  and  an  Appendix.  Chapter  2 
describes  the  purpose  of  each  subroutine.  Chapter  3  discusses  the  relationship  between 
the  subroutines  and  the  main  programs  which  control  their  operation  in  the  computer,  and 
notes  several  technical  aspects  that  must  be  taken  into  consideration  in  using  the  pro- 
grams in  any  computer  facility.  Chapter  4  presents  the  documentation  of  each  subroutine 
and  an  explanation  of  its  use.  The  Appendix  provides  technical  programming  instructions 
on  the  writing  of  additional  main  programs  for  use  of  the  subroutines  beyond  those 
given  in  this  manual . 

The  subroutines  presented  here  were  developed  in  the  International  Statistical  Pro- 
grams Center  for  use  in  estimating  trends  and  levels  of  fertility  and  mortality  and  for 
evaluating  the  results  of  population  censuses  of  countries  which  have  limited  statisti- 
cal resources  and  data.  A  previous  publication  issued  by  the  Center,  Technical  Paper 
No.    253   Demographic  Computer  Library 3   contained  earlier  versions  of  some  of  the  sub- 
routines. A  major  addition  in  this  publication  is  the  set  of  main  programs  which  are 
needed  to  control  and  operate  the  subroutines. 


Chapter  2 

PURPOSES  OF  THE  SUBROUTINES 


This  chapter  describes  the  purpose  of  each  of  the  subroutines  included  in  this  pub- 
lication. The  listing  of  subroutines  is  arranged  by  demographic  category  or  calculation 
for  which  the  subroutine  can  be  used.  The  categories  are  a)  curve  fitting,  smoothing, 
and  graduation;  b)  evaluation;  c)  fertility;  d)  mortality;  e)  printing;  f)  projections; 
and  g)  stable  population. 

Some  subroutines  have  been  listed  under  more  than  one  category  because  they  can  be 
used  in  different  demographic  analyses.  For  instance,  if  a  subroutine's  purpose  is  to 
calculate  age-specific  fertility  rates,  given  a  fertility  pattern,  a  life  table,  the 
net  reproduction  rate,  and  the  proportion  of  female  births  to  total  births,  that  sub- 
routine is  classified  not  only  under  "fertility,"  but  also  under  "projections"  and 
"stable  population."  The  purpose  of  each  subroutine  is  described  in  the  first  category 
under  which  it  is  listed;  only  the  name  is  given  in  succeeding  categories.  The  "print- 
ing" category  includes  those  subroutines  which  are  used  for  printing  standard  results  -- 
for  instance,  a  life  table,  a  population  age  distribution  in  a  projection,  etc. 

References  in  the  descriptions  below  to  "Coale-Demeny"  are  to  Ansley  J.  Coale  and 
Paul  Demeny,  Regional  Model  Life  Tables  and  Stable  Populations,   Princeton  University 
Press,  Princeton,  New  Jersey,  1966.  Similarly,  the  references  to  "United  Nations"  are 
United  Nations,  Methods  for  Population  Projections  by  Sex  and  Age,    ST/SOA  Series  A, 
Population  Studies  No.  25,  New  York,  1956  and  Accuracy  Tests  for  Census  Age  Distributions 
Tabulated  in  Five-Year  and  Ten-Year  Groups,    Population  Bulletin,  No.  2,  October  1952, 
pp.  59-79. 

Curve  Fitting,   Smoothing,  and  Graduation 

ABREV  -  To  adjust  the  number  of  age  groups  in  a  distribution  to  be  the  same  as  the  num- 
ber of  age  groups  in  the  second  distribution.  The  distribution  with  the  larger 
number  of  age  groups  is  adjusted  to  contain  the  same  number  of  age  groups  as 
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that  of  the  other  distribution.  The  distributions  can  be  either  two  populations, 
two  sets  of  survival  rates,  or  a  population  and  a  set  of  survival  rates. 

BEERS  -  To  separate  grouped  data  into  five  parts.  For  instance,  to  obtain  a  single-year 
age  distribution  from  a  population  given  in  5-year  age  groups,  or  to  obtain 
values  for  single  years  of  age  of  the  life  table  function  rL  . 

INTRP  -  To  make  a  linear  or  exponential  interpolation  between  two  values.  The  sub- 
routine can  be  used  to  interpolate  between  population  totals,  age-specific  fer- 
tility rates,  survival  rates,  life  expectancies,  or  other  such  demographic 
indicators. 

MDRNS  -  To  rank  a  given  set  of  values  and  determine  the  median. 

SMOTH  -  To  smooth  a  population  distribution  of  5-year  age  groups.  The  subroutine  first 
groups  the  5-year  age  groups  into  10-year  age  groups,  then  separates  the  10- 
year  age  groups  into  5-year  age  groups  under  three  different  assumptions. 

UNSMH  -  To  smooth  a  population  distribution  in  5-year  age  groups,  except  for  the  first 

two  and  last  two  5-year  age  groups,  using  a  formula  derived  by  the  United  Nations. 

Evaluation 

AGESX  -  To  calculate  age  and  sex  ratios  for  a  population  distribution  by  sex  and  5-year 
age  groups.  The  sex-ratio  score,  age-ratio  score,  and  joint  age-sex  ratio 
score  --  as  defined  by  the  United  Nations  --  are  calculated. 

FWDRV  -  To  adjust  age-sex  distributions  obtained  from  two  population  censuses  taken  10 
years  apart.  The  results  present  the  original  and  smoothed  population  distri- 
butions and  the  differences  between  them  for  each  of  the  enumeration  dates. 

IRDID  -  To  compare  the  age  distributions  of  two  populations  by  calculating  the  Index  of 
Relative  Difference  and  the  Index  of  Dissimilarity. 

PYRMD  -  To  make  one  or  two  age  pyramids  by  sex  from  one  or  two  age  and  sex  population 
distributions,  respectively. 

REVR5  -  To  rejuvenate,  five  years  backward  in  time,  each  sex  of  a  population  distribution, 
by  5-year  age  groups.  The  rejuvenation  utilizes  survival  rates  and  number  of 
migrants,  by  5-year  age  groups.  If  there  are  no  migrants,  the  variable  rep- 
resenting them  is  zero.  Although  this  subroutine  makes  the  rejuvenation  only 
for  a  5-year  period,  a  population  rejuvenation  can  be  made  for  a  time  period 
varying  from  5  to  50  years  by  using  the  main  program  as  given  in  this  publication. 


PURPOSES  OF  THE  SUBROUTINES 


RVFWD  -  To  obtain  an  estimate  of  the  underenumeration  of  age  group  0-4  in  a  population 
census,  under  the  assumption  that  fertility  has  remained  constant  during  the 
past  10  to  15  years.  This  subroutine  uses  a  population  distribution  by  sex  and 
5-year  age  groups,  5-year  survival  rates  for  each  sex,  migrants  by  sex  and  5-year 
age  groups,  and  the  sex  ratio  at  birth.   If  there  are  no  migrants,  the  variable 
representing  them  is  zero. 

Other  subroutines  frequently  used  in  connection  with  evaluation  techniques: 

SMOTH  -  See  Curve  Fitting,  Smoothing,  and  Graduation. 

UNSMH  -  See  Curve  Fitting,  Smoothing,  and  Graduation. 

Fertility 

ADJFR  -  To  calculate  new  age-specific  fertility  rates  from  a  given  set  of  age-specific 
fertility  rates  and  a  pattern  of  change.  The  pattern  of  change  can  be  given  in 
three  ways:  1)  a  proportional  change  for  each  age-specific  fertility  rate;  2) 
an  absolute  change  in  the  total  fertility  rate  and  the  percent  distribution  of 
this  change  among  the  age  groups;  3)  an  absolute  change  for  each  age-specific 
fertility  rate. 

BRASF  -  To  estimate  5-year  age-specific  fertility  rates  from  survey  or  census  information 
on  the  average  number  of  children  ever  born  per  woman  and  a  set  or  pattern  of 
age-specific  fertility  rates. 

NRSFR  -  To  calculate  age-specific  fertility  rates,  given  a  pattern  of  fertility  rates,  a 
life  table,  the  net  reproduction  rate,  and  the  proportion  of  female  births  to 
total  births. 

Mortality 

BLT   -  To  calculate  a  Coale-Demeny  regional  model  life  table  for  both  sexes  combined, 
given  a  life  expectancy  at  birth  for  both  sexes  combined,  a  region  (north, 
south,  east,  west)  of  the  model  life  tables,  and  the  sex  ratio  at  birth.  The 
subroutine  accepts  the  Coale-Demeny  differential  by  sex  of  the  life  expectancy 
at  age  10  for  calculating  the  life  table  for  both  sexes  combined. 

BRASM  -  To  estimate  the  level  of  infant  and  child  mortality,  based  on  tabulations  of  the 
average  number  of  children  ever  born  and  the  average  number  of  children  surviving, 
by  age  of  mother. 

ELT   -  To  calculate  an  abridged  life  table  from  age-specific  mortality  rates  (j-M  )  or 

0   A 

the  probabilities  of  dying  Lq  )  between  exact  ages  x  and  x+5.  The  life  table 

Z)      A 
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is  by  5-year  age  groups  except  for  ages  under  five,  which  are  divided  into  age 
0  and  the  age  group  1-4. 

GTCON  -  To  obtain  the  constants  or  coefficients  required  for  applying  the  techniques 

presented  in  subroutines  ADJBG,  BRASM,  and  MLT.  GTCON  is  used  only  in  conjunc- 
tion with  these  three  subroutines. 

LI  FIT  -  To  compare  two  sets  of  survival  rates  in  5-year  age  groups  from  two  different 
life  tables,  by  calculating  the  differences  between  the  two  sets,  by  age 

MLT   -  To  calculate  a. regional  model  life  table  corresponding  to  a  given  life  expect- 
ancy at  birth,  sex,  and  region  using  Coale-Demeny  regression  coefficients/  After 
generating  the  model  life  table  for  a  particular  sex,  this  subroutine  can  be  used 
to  obtain  the  model  life  table  for  the  opposite  sex  by  assuming  Coale-Demeny  sex 
differentials  in  life  expectancy  at  age  10. 

MORDJ  -  To  estimate  a  set  of  survival  rates  by  5-year  age  groups  for  a  particular  level 
of  life  expectancy  at  birth,  using  a  given  set  of  survival  rates  from  a  life 
table  and  the  life  expectancy  at  birth  from  the  life  table.  The  first  survival 
rate  in  each  set  must  be  from  birth  to  age  0-4. 

PKREG  -  To  determine  which  regional  pattern  of  survival  rates  in  the  Coale-Demeny  region- 
al model  life  tables  has  the  smallest  difference  from  a  given  pattern  of  survival 
rates  for  a  particular  sex. 

QXADJ  -  To  estimate  a  set  of  ,-q  values  (probability  of  dying  between  exact  age  x  and 
x+5)  for  a  particular  level  of  life  expectancy  at  birth,  using  a  given  set  of 
5q  values  from  a  life  table  and  the  life  expectancy  at  birth  from  the  life 
table.  For  ages  under  5,  the  values  are  for  age  0  and  age  group  1-4. 

SRX10  -  To  calculate  survival  rates  for  open-ended  age  groups  for  a  period  of  10  years  -- 
x  and  over  over  surviving  to  x+10  and  over  --  from  two  population  distributions 
enumerated  or  estimated  10  years  apart. 

SURVI  -  To  calculate  survival  rates  by  5-year  age  groups  from  two  populations  enumerated 
or  estimated  5,  10,  or  15  years  apart. 

TW0CN  -  To  estimate  the  life  expectancy  at  birth,  crude  birth  rate,  and  crude  death  rate 
from  two  population  distributions  by  5-year  age  groups.  The  enumeration  dates 
must  be  5,  10,  or  15  years  apart. 


PURPOSES  OF  THE  SUBROUTINES 


PBEER  -  To  print  out  the  results  of  the  BEERS  subroutine.  This  subroutine  is  used  only 
in  connection  with  BEERS.  It  is  advisable  to  read  the  documentation  for  the 
BEERS  subroutine  for  a  better  understanding  of  PBEER. 

PLT   -  To  print  out  the  functions  of  a  life  table.  This  subroutine  is  used  in  con- 
junction with  ELT  or  MLT.  It  is  advisable  to  read  the  documentation  for  these 
subroutines  for  a  better  understanding  of  PLT. 

PPROJ  -  To  print  out  the  results  of  a  population  projection.  The  subroutine  prints  the 
population  by  5-year  age  groups,  the  rate  of  natural  increase,  rate  of  growth, 
crude  birth  rate,  crude  death  rate,  general  fertility  rate,  total  fertility 
rate,  and  the  male  and  female  life  expectancies  at  birth.  This  subroutine  is 
used  in  connection  with  PR0J5  and  is  best  understood  if  the  documentation  for 
that  subroutine  is  read  first. 

PREVR  -  To  print  out  the  results  of  rejuvenating  a  population.  The  subroutine  prints 
the  population  by  5-year  age  groups,  the  rate  of  natural  increase,  rate  of 
growth,  crude  birth  rate,  crude  death  rate,  general  fertility  rate,  and  the 
male  and  female  life  expectancies  at  birth.  This  subroutine  is  used  in  con- 
nection with  REVR5  and  is  best  understood  if  the  documentation  for  that  sub- 
routine is  read  first. 

PSPP  -  To  print  out  the  distribution  of  a  stable  population  by  5-year  age  groups,  the 
cumulative  distribution,  and  other  parameters  of  the  stable  population  distri- 
bution. This  subroutine  is  used  in  connection  with  SPP  and  is  better  understood 
if  the  documentation  for  that  subroutine  is  read  first. 

Projections 

PR0J5  -  To  project  a  population  distribution  by  sex  and  5-year  age  groups  for  a  period 
of  five  years,  using  survival  rates  by  5-year  age  groups  for  each  sex,  5-year 
age-specific  fertility  rates,  and  the  number  of  migrants  by  sex  and  5-year  age 
groups  during  the  5-year  period.  Although  the  subroutine  makes  a  projection  for 
a  period  of  five  years  only,  a  population  projection  can  be  made  for  a  time 
period  varying  from  5  to  50  years  by  using  the  main  program  as  given  in  this 
publication. 

Other  subroutines  frequently  used  in  making  population  projections: 

ADJFR  -  See  Fertility 
MORDJ  -  See  Mortality 
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NRSFR  -  See  Fertility 
QXADJ  -  See  Mortality 

Stable  Population 

ADJBG  -  To  estimate  the  crude  birth  and  death  rates  and  the  gross  reproduction  rate  un- 
der quasi -stable  population  conditions.  The  estimates  are  obtained  from  the 
intrinsic  birth  rate,  the  gross  reproduction  rate,  and  information  on  the  num- 
ber of  years  that  mortality  has  been  declining. 

INTRT  -  To  determine  the  intrinsic  growth  rate,  given  the  female  life  table  function 
,-L  in  the  childbearing  ages  and  age-specific  fertility  rates  based  only  on 
female  births. 

INTSP  -  To  estimate  a  stable  population  distribution  and  the  life  table  pertaining  to 

such  a  population,  given  the  intrinsic  growth  rate  and  another  stable  population 
parameter. 

ONECN  -  To  calculate  stable  or  quasi-stable  estimates  of  the  crude  birth  and  death  rates 
from  the  age  distribution  and  the  rate  of  natural  increase  of  a  population.  The 
estimates  are  based  on  Coale-Demeny  stable  populations. 

SPP   -  To  generate  a  stable  population  distribution  and  its  parameters  from  the  ,-L 
column  of  a  life  table  and  an  intrinsic  growth  rate. 

Another  subroutine  frequently  used  in  connection  with  stable  population  estimates: 

NRSFR  -  See  Fertility. 


Chapter  3 

INSTALLATION  AND  OPERATION 


This  chapter  provides  several  definitions  and  technical  instructions  which  are  essen- 
tial for  the  user  to  know.  It  defines  subroutines  and  main  programs  and  describes  their 
relationship.  It  also  discusses,  in  brief  and  general  terms,  several  technical  factors 
that  must  be  considered  before  installing  and  using  the  subroutines.  These  factors 
include  differences  in  the  size  of  computer  memory,  procedures  for  entering  the  main 
programs  and  subroutines  into  a  computer,  and  modifications  required  in  the  programs  and 
subroutines  before  installing  them  in  the  computer. 

Subroutines  and  Main  Programs 

Two  fundamental  aspects  that  should  be  understood  are  1)  the  nature  and  function 
of  a  subroutine  and  a  main  program,  and  2)  the  relationship  between  the  two  --  the  link- 
ing process  through  which  data  are  transmitted  to  the  subroutines  and  the  results  sent 
back  to  the  main  program. 

A  subroutine  is  a  computer  program  designed  to  perform  specific  calculations.  How- 
ever, a  subroutine  by  itself  cannot  be  submitted  to  and  run  on  the  computer;  for  this 
purpose  a  main  program  is  needed.  The  main  program  "calls"  the  subroutine  (or  subrou- 
tines) to  perform  specific  calculations.  It  may  "call"  a  subroutine  or  several  differ- 
ent subroutines  as  often  as  needed. 

The  main  program  and  subroutine  are  connected  by  the  CALL  and  SUBROUTINE  statements. 
The  CALL  statement  in  the  main  program  contains  the  word  "CALL,"  the  name  of  the  subrou- 
tine, the  variables  —  data  --  to  be  transferred  to  the  subroutine,  and  the  variables  -- 
results  --  that  the  main  program  will  receive  from  the  subroutine.  Examples  of  CALL 
statements  are  given  in  the  documentation  of  each  main  program. 

Each  subroutine  begins  with  a  SUBROUTINE  statement.  This  statement  receives  infor- 
mation from  the  CALL  statement  in  the  main  program  and  also  transmits  the  results  of  the 
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subroutine's  calcaulation  to  the  CALL  statement  of  the  main  program.  Examples  of  SUB- 
ROUTINE statements  are  given  in  the  documentation  of  each  subroutine. 

In  summary,  main  programs  are  needed  to  command  a  subroutine  to  do  a  specific  set  of 
calculations  with  the  information  provided  by  the  main  program.  Main  programs  to  use 
each  of  the  subroutines  in  this  publication  are  provided  in  the  documentation.  A  main 
program,  the  subroutine,  and  explanations  of  how  to  use  them  constitute  the  documentation 
of  each  subroutine. 

Computer  SVIemory  Size 

The  main  programs  and  subroutines  given  here  were  designed  to  operate  on  computers 
with  a  small  memory  (core)  size.  The  amount  of  core  needed  depends  on  the  size  of  the 
main  program,  the  number  of  subroutines  involved,  and  the  type  of  FORTRAN  compiler  in 
the  computer,  Most  of  the  main  programs  and  subroutines  require  a  memory  size  of 
less  than  64K  (64,000  bytes),  according  to  experience  in  using  the  subroutines  on  com- 
puters with  that  core  size.  A  few  combinations  of  subroutines  may  require  slightly 
more  memory.  When  the  computer  memory  is  expressed  in  "words,"  the  required  memory  size 
must  be  established  by  relating  the  number  of  bytes  per  word  to  the  total  number  in  words. 

Preparation  of  input  to  the  Computer 

Chapter  4  contains  computer  listings  of  all  main  programs  and  subroutines  included 
in  this  publication.  Each  line  in  a  listing  represents  input  coding  or  data  that  are 
contained  in  one  punch  card.  The  programs  and  subroutines  can  be  entered  into  the  com- 
puter by  preparing  punch  cards  from  these  listings.  Copies  of  the  programs  and  subrou- 
tines on  punch  cards  or  on  magnetic  tapes  can  be  obtained  from  the  U.S.  Bureau  of  the 
Census,  as  indicated  on  the  Acknowledgement  page. 

The  "comment"  cards  (those  with  'C  in  column  1)  are  for  clarification  and  instructions 

to  the  user.  They  are  not  part  of  the  subroutine's  calculations,  and  need  not  be  punched 

for  the  programs  to  run.  However,  the  comment  cards  are  helpful  in  understanding  and 

using  the  programs  and  it  is  advisable  to  include  them  in  the  input  to  the  computer. 

Modifications  Required 

The  subroutines  and  main  programs  given  here  are  written  in  American  National  Standard 
(ANS)  FORTRAN.  This  version  of  FORTRAN  is  acceptable  at  any  computer  facility  with  a 
FORTRAN  compiler.  Nevertheless,  in  most  cases  changes  will  be  required  in  those  cards 
which  indicate  the  units  used  for  input  and  output. 


PURPOSES  OF  THE  SUBROUTINES        11 


Every  computer  facility  assigns  identifying  numbers  (called  unit  designators)  to  the 
various  units  at  the  facility  --  the  card  reader,  the  printer,  the  tape  units,  the  disc 
units,  the  operators'  console,  etc.  The  programs  in  this  publication  were  written  for 
a  computer  facility  in  which  the  card  reader  is  designated  "Unit  1,"  and  the  printer  is 
designated  "Unit  15."  If  these  designations  are  different  at  the  user's  facility,  either 
the  computer  control  cards  used  must  reflect  the  difference,  or  two  cards  in  each  main 
program  and  one  card  in  each  subroutine  must  be  changed. 

If  the  modifications  are  made  through  the  computer  control  cards,  all  changes  will 
depend  on  the  particular  control  cards  used  at  a  computer  facility,  and  it  is  advisable 
to  consult  with  the  appropriate  technicians  at  the  facility.  To  modify  the  programs  by 
changing  the  unit  designator  number,  the  user  should  request  the  numbers  that  the  com- 
puter facility  uses  for  the  card  reader  and  printer.  The  cards  that  must  be  changed  in 
the  main  programs  are  the  following: 

NREAD  =  1 

NPRNT  =  15 
Number  1  should  be  changed  to  the  number  used  to  designate  the  card  reader  at  the  par- 
ticular facility.  Number  15  should  be  changed  to  designate  the  printer  at  the  facility. 
These  two  cards  are  near  the  beginning  of  each  main  program.  They  usually  are  located 
immediately  following  the  DIMENSION  statement. 

It  is  necessary  to  change  only  the  following  card  in  the  subroutines: 

NPRNT  =  15 
As  for  the  main  programs,  the  number  15  should  be  changed  to  the  number  used  for  desig- 
nating the  printer.  This  card  is  located  near  the  beginning  of  each  subroutine,  usually 
following  the  DIMENSION  statement. 


Chapter  4 

DOCUMENTATION 


This  chapter  contains  detailed  documentation  for  all  of  the  subroutines  and  main  pro- 
grams presented  in  the  manual.  The  documentation  of  each  subroutine  consists  of  five 
sections.  Sections  I  and  II  contain  a  description  of  the  subroutines  and  the  demographic 
methodology  used  in  it. 

Section  III  presents  instructions  on  how  to  use  the  main  program  and  subroutine.  This 
section  has  three  subsections.  The  first,  subsection  III. A,  is  designed  for  users  who 
wish  to  write  their  own  main  programs  (see  also  the  Appendix).  Subsection  III.B  applies 
to  users  who  will  submit  their  main  programs  and  subroutines  on  card  decks.  Subsection 
III.C  describes  how  to  punch  the  input  data  for  the  main  program.  This  subsection  is 
presented  for  those  users  submitting  the  subroutines  and  main  programs  on  cards  as  well 
as  those  users  who  have  already  installed  the  subroutines  and  main  programs  on  a  computer. 
In  the  latter  case,  the  main  programs  and  subroutines  can  be  used  by  submitting  a  card 
deck  consisting  only  of  the  computer  control  cards,  the  cards  for  the  input  data  required 
for  the  main  program  as  given  in  this  subsection,  and  the  card  indicating  the  end  of 
the  deck. 

Section  IV  describes  the  SUBROUTINE  statement  which  receives  the  information  from  the 
main  program  and  transmits  the  results  of  the  calculations  performed  by  the  subroutine 
back  to  the  main  program.  Definitions  are  also  given  for  each  variable  transmitted  from 
the  main  program  to  the  subroutine  and  vice  versa. 

Section  V  has  computer  listings  of  the  main  program  and  subroutine.  It  also  has  sam- 
ple input  data  that  should  be  used  to  test  the  main  programs  and  subroutines.  In  order 
to  verify  whether  or  not  the  programs  and  subroutines  have  been  correctly  punched  in 
cards  or  properly  installed  on  a  computer,  the  user  should  use  the  sample  input  data 
presented  here.  The  computer  results  obtained  from  using  this  input  data  should  be  the 
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same  as  the  sample  output  presented  in  the  documentation.  If  they  are  the  same,  no 
errors  were  made  in  the  punching  or  installation  process. 

The  documentation  of  each  main  program  and  subroutine  presented  here  were  prepared  so 
that  a  knowledge  of  FORTRAN  is  not  required.  However,  in  the  documentation  there  are  a 
few  subsections  (III. A  and  IV. A)  directed  toward  users  writing  their  own  main  programs; 
these  subsections  require  some  knowledge  of  FORTRAN.  Users  lacking  FORTRAN  experience 
can  ignore  these  subsections  and  still  understand  how  to  use  the  subroutines  and  their 
main  programs. 


ABREV 


I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To  adjust  the  number  of  age  groups  in  a  distribution  to  be  the  same  as  the 
number  of  age  groups  in  a  second  distribution.   The  distribution  with  the 
larger  number  of  age  groups  is  adjusted  to  contain  the  same  number  of  age 
groups  as  that  of  the  other  distribution.   The  distributions  can  be  either 
two  populations,  two  sets  of  survival  rates,  or  a  population  and  a  set  of 
survival  rates. 

B.  DATA  NEEDED 

Two  distributions   in   5-year    age   groups   which   are   either: 

1.  Two   population   distributions   in   5-year   age   groups, 

2.  Two   sets  of    5-year   survival   rates,    or 

3.  One   population   distribution   and   one    set   of    5- year   survival   rates.      In 
this   case,    it   is   assumed   that   the    population  is  always   the   first    distribution, 

II.  MET  HODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  technigue  to  be  used  in  reducing  the  number  of  groups  in  a  distribution 
depends  on  whether  the  distribution  is  a  population  or  a  set  of  survival  rates. 

1.   Reduction  of  the  number  of  age  groups  in  a  population 

When  a  population  distribution  containing  m  age  groups  is  to  be  reduced  to 
n  age  groups  (where  the  last  age  group  is  the  open-ended  age  group  in  both 
cases) ,  the  nth  group,  the  open-ended  age  group  for  the  reduced  distribution, 
is  calculated  as  follows: 


y-5 


where 


+4 


5P.  represents  the  population  in  age  group  j,j 

x  is  the  beginning  age  of  the  open-ended  age  group 
in  the  reduced  population  distribution. 

y  is  the  beginning  age  of  the  open-ended  age  group 
in  the  population  distribution  to  be  reduced, 

2.   Reduction  of  the  number  of  groups  in  a  set  of  survival  rates. 

Bhen  a  set  of  survival  rates  containing  m   rates  is  to  be  reduced  to  n 
rates  (where  the  last  rate  in  both  cases  is  the  open-ended  survival  rate,) 
the  nth  survival  rate,  the  open-ended  survival  rate  for  the  reduced  distri- 
bution, is  calculated  as  follows: 


S   =  V?  (1) 

V     T 
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where 

T   is  the  function  of  a  life  table  representing 

the  number  of  years  to  be  lived  by  the  life  table 
population  after  age  x. 

Although  the  Tx  function  is  not  known,  the  ratio  of  Tx  and  Tx+-  can  be 

obtained  from  the  survival  rates. 

The  following  formulas  explain  how  to  reduce  a  set  of  survival  rates  from 
age  y+  to  age  x+. 

T^  =  CL  +  -L  .,  +  •  •  •  +  CL  +  T  ...  (2) 

x+   5  x   5  x+5        5  y   y+5 

where 


T      =  T 

y+5+   y+5 


and 


_L  =  T  -  T  .  _ 
5  y   y   y+5 


similarly 


5  y"5   5Sy-5 


Therefore  replacing  5L   from  (6)  into  (7) 


5y"5   5Sy-5'Sy+       * 


Following  the  same  procedure 


5V10-     5Sy_10'5Sy_5-Sy+       (1-V} 


(3) 


U) 


and 

T    =  -ft5-  (5) 

y      sy+ 

then   replacing    (5)    into    (4) 

^^•'-V  (6) 


It*—  (7) 


Tx!V--(1-S.J  (8) 


!y+5 ; /-    _  C      >  (9) 
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Therefore 


Ty-10  ~  5Ly-iO  +  5Ly-5  +  Ty 


(10) 


replacing    (5),    (8),    and    (9)    into    (10) 


T           = 

y-10 

T 

y+5 
V 

1   -  S   .                  1   -  S    , 

y+          ,              y       i   1 

5Sy_10'5Sy-5           5Sy-5 

similarly 

T           = 

y-15 

T 
Y+5 

V 

1  -  S  ,                             1  -  S  . 

y+                  ,                    y+           , 

1  -  s^ 
y+ 

5Sy-i5*  5Sy-l0*  5Sy-5         5Sy-iO*5Sy-5 

5Sy-5 

(11) 


+  1 


(12) 


Therefore  for  calculating  the  survival  rate  for  the  open  age  group 

x+  from  (1)  T  ,  C/S  ,  will  cancel  out  and  the  guotient  is  a  function  of 

y+5   y+ 

the  survival  rates  as 


v  = 

Z-f      y-5     «, 

j=x+5,5     IT      5  1 
i=.1.5 

y"5      1  -  s 
1  i    V*           v+ 

1     2-     y-5    s 

j=x,5       W     5  i 
i=j»5 

(13) 


B.   COHBENTS 

This  subroutine  makes  the  number  of  groups  in  two  distributions  be  the 
same.   In  the  case  where  the  first  distribution  is  a  population  and  the  second 
distribution  is  a  set  of  survival  rates  a  particular  aspect  has  to  be  taken 
into  account.   Since  both  distributions  Hill  have  the  same  number  of  groups, 
and  where  the  first  survival  rate  would  be  for  births  during  a  5-year  period 
surviving  to  ages  0-a,  then,  the  beginning  age  of  the  open-ended  group  in  the 
population  would  be  5  years  older  than  the  beginning  age  of  the  open-ended 
group  of  the  survival  rates. 

III.  MAIN   PBOGRAN 

A.   BEQOIREUENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 


Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 
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The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 
CALL  ABPEV  (K0DE,D1,  D2,NG) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in 
the  above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to 
a  group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then 
the  variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
greater  than  the  variable  name  is  dimensioned  in  any  subroutine  called  by  the 
main  program. 

For  this  subroutine  the  variable  nam-^s  D1  and  D2  in  the  argument  string 
are  arrays.  The  following  dimension  statement  must  be  included  in  any  main 
program  using  this  subroutine* 

DIMENSION  01(17),  D2<17) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other 
subroutines  presented  in  this  publication  or  functions  included  in  the  FORTRAN 
library. 

1.  Subroutines  from  this  package 
None 

2.  Library  functions 
None 

3.  Card  diagram  of  main  program  and  subroutines 


/ 

/   CARDS    INDICATING    END 
/_ 

OF    DECK 

/I 

/    1 

_/       i 

/ 
/                                  INPUT 
/ 

DATA 

/ 
/ 

/I        1 
1        1 
1        i 

/ 

/           COMPUTER    CONTROL 
/ 

CARDS 

/I 

/    1 

_    J      1 

1       / 
1    / 
1/ 

/ 
/                                SUBROUTINE 

&BREV 

/I        1 
/    1        1 
J       1        1/ 

/ 
/ 

t 

/ 

/                          MAIN    PROGRAM 

/ 

/I        1       / 
/I        1    / 
1        1/ 
1       / 
1    / 
1/ 

/ 

/                 COMPUTER   CONTROL    CARDS 

/                                                                       _      . 

/I 

/    1 

/       1 
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C. 


FORMAT  REQUIREMENTS  FOR  INPUT  DATA  CARD  FOE  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 


The  card  format  requirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the  columns 
specified.   For  a  more  detailed  description  of  th&  input  data,  see  the 
description  of  arguments  in  section  IV. B.   See  example,  section  V.C. 


Variable 
Card  Columns   Name   Definition 


I 


I 


I  1   I 


I  2   | 


1 

2-53 
54-80 

1 


I 

J  3-80 


I  3   ( 


!   9-16 


6  72-80 


I     i 

I    H       I   1-8 


I 

I   9-16 


« 

I  «*9-56 


57-80 


NXT 


KODE 


D1 


D1 


Blank 

Label  used  to  identify  the  output 

Blank 


The  code  indicating  if  there  is  another 
data  set  following  this  one.   A  zero 
punched  in  column  1  indicates  this  is  the 
last  set  of  data.   Any  other  number 
punched  in  column  1  indicates  another  set 
of  data  follows  this  one. 


The  selector  used  to  in 
groups  given  in  D1  and 
in  column  2  indicates  t 
are  both  population  dis 
punched  in  column  2  ind 
tributions  contain  sets 
three  punched  in  column 
distribution  is  a  popul 
the  second  distribution 
rates.  Whenever  one  di 
distribution  and  the  ot 
survival  rates,  the  pop 
always  be  punched  in  ca 
of  survival  rates  punch 

Blank 


dicate  the  types  of 
D2.   A  one  punched 
he  two  distributions 
tributions.   A  two 
icates  the  two  dis- 
of  survival  rates.   A 
2  indicates  the  first 
ation  distribution  and 

is  a  set  of  survival 
stribution  is  a  population 
her  distribution  a  set  of 
ulation  distribution  must 
rds  3  and  4  and  the  set 
ed  in  cards  5  and  6. 


First  5-year  group  of  the  first  distribution. 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 

Second  5-year  group  of  the  first  distribution. 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 


Tenth  5-year  group  of  the  first  distribution. 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 


Eleventh  5- year  group  of  the  first  distribution, 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 

Twelfth  5-year  group  of  the  first  distribution. 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 


Seventeenth  group  of  the  first  distribution. 
This  is  the  open-ended  group.   The  decimal  point 
should  be  somewhere  in  the  eight  columns. 

Blank 


The   variable   D1   always  requires  two   cards.      The   first  card 
(card   no.    3)    must   always   contain   data  whereas   the   second 
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card  (card  no.  4)  can  be  all  zeroes  depending  on  the  number 
of  age  groups  given.   The  last  age  group  given  must  always  be 
the  open-ended  age  group. 


1-8 


9-16 


72-80 


1-8 


9-16 


49-56 


57-80 


D2 


D2 


First  5-year  group  of  the  second  distribution 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 

Second  5-year  group  of  the  second  distribution. 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 


Tenth  5-year  group  of  the  second  distribution. 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 


Eleventh  5-year  group  of  the  second  distribution. 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 

Twelfth  5-year  group  of  the  second  distribution. 
The  decimal  point  should  be  somewhere  in  the 
eight  columns. 


Seventeenth  group  of  the  second  distribution. 
This  is  the  open-ended  group.   The  decimal  point 
should  be  somewhere  in  the  eight  columns. 

Blank 


The  variable  02  always  reguires  two  cards.   The  first  card 
(card  no.  5)  must  always  contain  data  whereas  the  second 
card  (card  no.  6)  can  be  all  zeroes  depending  on  the  number 
of  age  groups  given.   The  last  age  group  given  must  always 
be  the  open-ended  age  group. 


IV.  SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

&11  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  ABREV (KODE, D 1, D2,NG) 

B.  DESCRIPTION  OF  ARGUHENTS 


Name 

KODE 


How  Obtained   Definition 


Transferred  In 


J 

I  Indicates  the  type  of  distribution 
| given  in  D1  and  D2.   If  both  distribu- 
tions are  populations,  then  K0DE=1.   If 
Iboth  distributions  are  sets  of  survival 
I  rates,  then  K0DE=2.   If  the  first  distri- 
bution is  a  population  and  the  second 
(distribution  a  set  of  survival  rates, 
(then  Kode=3.   When  giving  two  different 
(types  of  distributions,  the  population 
(distribution  must  be  in  D1  and  the  set 
jof  survival  rates  in  D2,   If  KODE  has 
I  any  other  value,  the  subroutine  will 
| write  out  error  message  number  0101 
land  return  to  the  calling  program. 
I 
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D1 


D2 


NG 


Transferred  In 


Transferred  In 


Transferred  Out 


The  first  distribution  of  either  a 
5-year  population  distribution  or 
a  set  of  5-year  survival  rates. 
In  the  case  of  a  population  distribu- 
tion, D1  contains  the  population  in  age 
qroups  0-4,  5-9,  10-4,  etc.,  with  the  last 
group  being  the  open-ended  age  group.   A 
maximum  of  17  age  groups  can  be  given. 
In  the  case  of  a  set  of  survival  rates, 
D1  contains  the  survival  rates  of  birth 
to  0-4,  0-4  to  5-9,  5-9  to  10-14,  etc., 
with  the  last  group  being  the  open-ended 
survival  rate.   If  the  population 
distribution  contains  an  intermediate 
value  less  than  one  or  the  set  of  survival 
rates  contain  an  intermediate  value  less 
than  zero  or  greater  than  one,  error 
message  number  0102  will  be  written  out 
and  the  subroutine  will  return  to  the 
calling  program. 

The  second  distribution  of  either  a  5-year 
population  distribution  or  a  set  of  five- 
year  survival  rates.   See  the  descrip- 
tion of  argument  D1  for  more  details. 

The  number  of  groups  in  the  two  distribu- 
tions after  they  have  been  made  the  same 
length. 


C.   ERROR  MESSAGES 

0101  ***  ABREV  ERROR  NO.  0101  —  INPUT  ERROR  IN  KODE 

***  INPUT  DATA  DESCRIBING  THE  TYPES  OF  ARRAYS  AND  ADJUSTMENT 
MADE  MUST  BE  1,  2,  or  3. 

0102  ***  ABREV  ERROR  NO.  0102  —  INPUT  ERROR  EITHER  D1  OR  D2 
***  EITHER  ONE  OR  BOTH  OF  THE  INPUT  DISTRIBUTIONS  ARE  ALL 

ZERO  OR  HAVE  AN  ERROR  IN  AN  INTERMEDIATE  VALUE. 
***  IF  K0DE=3,  D1  MUST  CONTAIN  THE  POPULATION  AND  D2  THE 
SURVIVAL  RATIOS. 


V.    PROGRAM   AND   RESULTS 

A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 


c 

c 

C MAIN    PROGRAM    FOR    ABREV 

c . 

c 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  FOUR  READ 

G STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  10  READ  IN  THE 

C INDICATOR  (N XT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER  DATA  SET 

C FOLLOWING  THIS  ONE  AND  THE  SELECTOR  (KODE)  TO  DETERMINE  THE  TYPE 

C OF  REDUCTION  TO  BE  MADE. 

C NXT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  IN  COLUMN  1  INDICATES 

c THIS  IS  THE  LAST  DATA  SET>   ANY  OTHER  NUMBER  IN  COLUMN  1 

c INDICATES  THERE  IS  ANOTHER  SET  OF  DATA  FOLLOWING  THIS  ONE. 
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C- KODE   IS  IN  COLUMN  2  OF  THIS  CARD.   &  ONE  IN"  COLUMN  2  INDICATES 

C-, THAT  IH£  TWO  DISTRIBUTIONS  ARE  BOTH  POPULATION 

c- DISTRIBUTIONS.   A  TWO  IN  COLUMN  2  INDICATES  THAT  THE  TWO 

c DISTRIBUTIONS  BOTH  CONTAIN  SURVIVAL  RATES.   A  THREE  IN 

C COLUMN  2  INDICATES  THAT  THE  FIRST  DISTRIBUTION  IS  A 

c_ POPULATION  DISTRIBUTION  AND  THE  SECOND  DISTRIBUTION  HAS 

C-. SURVIVAL  RATES. 

C 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  FIRST 

C DISTRIBUTION (D1)  OF  THE  SET  WHICH  ARE  TO  BE  COMPARED  FOR  POSSIBLE 

C REDUCTION  IN  THE  NUMBER  OF  GROUPS  CONTAINED  IN  ONE  OF  THE  SETS. 

C— —  D1   VALUES  ARE  ON  TWO  CARDS.   FOR  EACH  D1  VALUE  EIGHT  COLUMNS 

c ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS  OF  THE 

c FIRST  CARD.   EACH  VALUE  MUST  CONTAIN  A  DECIMAL  POINT  AND  BE 

C— WITHIN  THE  FIRST  EIGHT  DIGITS  ALLOWED.   THUS,  ONLY  TEN 

c VALUES  CAN  APPEAR  ON  THE  FIRST  CARD.   THE  SECOND  CARD  HAS 

c SEVEN  VALUES  WITH  THE  SEVENTEENTH  VALUE  BEING  IN  COLUMNS 

c 49-56.   IF  LESS  THAN  SEVENTEEN  VALUES  ARE  TO  BE  GIVEN,  TWO 

C- CARDS  MUST  STILL  BE  USED  WITH  DATA  ONLY  IN  THE  NUMBER  OF 

C_-_ —        COLUMNS  NECESSARY  FOR  THE  NUMBER  OF  D1  VALUES  TO  BE  GIVEN. 
C 

C THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  SECOND 

C DISTRIBUTION  (D2)  OF  THE  SET  WHICH  ARE  TO  BE  COMPARED  FOR  POSSIBLE 

C REDUCTION  IN  THE  NUMBER  OF  GROUPS  CONTAINED  IN  ONE  OF  THE  SETS. 

C D2   VALUES  ARE  ON  TWO  CARDS  AND  HAVE  THE  SAME  REQUIREMENTS  AS 

c__ THE  D1  VALUES. 

£  —  —  -.  —  —  —  ———  —  —  —  —  —..—  —  _  —  .—  —,.—  —  — .—  —  —.  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  -  —  ———————  —  —  —  —  —  —  —  _-.,—  ..—  —  —  — 

c_ _ _ 

DIMENSION  D1  (17)  ,D2(17) 
NPRNT  =  15 
NREAD  *  1 

10  READ  (NREAD, 11) 

11  FORMAT (1X,52H  ) 
READ  (NREAD,  22)  NXT, KODE 

22    FORMAT(2I1) 

READ (NREAD, 33)   (D  1  (I)  ,1  =  1 ,  17) 
33   FORMAT  (10F8.0) 

R£AD(NREAD,33)  (D2  (I) ,1=1  ,  17) 

WRITE (NPRNT, 4U) 
U4  FORMAT  (1H1) 

WRITE  (NPRNT, 11) 

CALL    ABREV(KODE,D1 ,D2,NG) 

WRITE(NPRNT,55) 
55  FORMAT (6X,2HD1,15X,2HD2) 

DO    20    1=1,17 
20    WRITE(NPRNT,66)       D1  (I)  ,    D2  (I) 
66    FORMAT(/, 1X,F13.5, 3X,F13.5) 

WRITE  (NPRNT, 77)     NG 
77    FORMAT (/,1X,19HNUMBER    OF    GROUPS    =    ,12) 

IF     (NXT)     10,30,10 
30    CONTINUE 

STOP 


END 


3.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  ABREV (KODE, D1 , D2,NG) 

C-_  — 

c : 

C —    PROGRAM    NO.     0100 

c_-___ 

C-- KODE,  D1,  AND  D2  ARE  INPUT  ARGUMENTS 

c_„_ —  NG  IS  AN  OUTPUT  ARGUMENT 

C KODE   INDICATES  THE  TYPE  OF  INPUT  VALUES  IN  D1  AND  D2,  AND  THE 

c_„ RELATION  THAT  SHOULD  EXIST  BETWEEN  THE  NUMBER  OF  VALUES  IN 

c_ D1  AND  THE  NUMBER  OF  VALUES  IN  D2. 

c D1   is  THE  FIRST  DISTRIBUTION  WHOSE  LENGTH  IS  TO  BE  COMPARED. 

C D2   IS  THE  SECOND  DISTRIBUTION  WHOSE  LENGTH  IS  TO  BE  COMPARED. 

C NG   IS  THE  NUMBER  OF  VALUES  IN  D1  AND  D2  AFTER  THE  TWO 

c DISTRIBUTIONS  HAVE  BEEN  ADJUSTED. 

c 

c _ 

DIMENSION  D1(17),  D2(17),  SX(17) 

M  =  0 
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N  =  0 
NT  =  0 
MT  =  0 
NPRNT=  15 


C VERIFY  INPUT  ARGUMENT  VALUES 

c„__ 


C 


100  NERR=  0 

IF  (KODE-1)  1010,10,50 
10  CONTINUE 

DO  15  1=1,17 

IF  (D2(I)-.999)  30,30,14 

14  N  =  N  +  1 

15  CONTINUE 
20  CONTINUE 

DO  25  1=1,17 

IF  (Dl(I)-.999)  40,40,24 

24  M  =  M  +  1 

25  CONTINUE 
GO  TO  174 

30  CONTINUE 

IF  (NT)  35,35,15 
35  NT  =  I 

GO  TO  15 
40  CONTINUE 

IF  (MT)  45,45,25 
45  MT  =  I 

GO   TO    25 
50   CONTINUE 

DO   56    I    =    1,17 

IF     (D2(I)-. 000001)     85,85,54 

54  CONTINUE 

IF    (D2(I)-1.)    55,55,85 

55  N   =    N    +    1 

56  CONTINUE 

IF  (KODE-2)  1010,65,60 
60    CONTINUE 

IF  (KODE-4)  20,20,1010 
65    DO    71    I    =    1,17 

IF     (D1  (I)-. 000001)     75,75,69 

69  CONTINUE 

IF    (D1(I)-1.)     70,70,75 

70  M    =    B    ♦    1 

71  CONTINUE 
GO    TO    174 

75    CONTINUE 

IF    (HT)    80,80,71 
80    MT   =    I 

GO    TO    71 
85    CONTINUE 

IF    (NT)     90,90,56 
90    NT   =    I 
GO    TO    56 
1010    NERR=    1 

IRITE     (NPHNT,111) 
111    FORMAT     (/,1X,47H***    ABREV    ERROR    NO.    0101    —    INPUT    ERROR    IN    KODE, 
*/,89H    ***    INPUT    DATA    DESCRIBING    THE    TYPES    OF    ARRAYS    AND    ADJUSTMENT 

*  HADE    MUST    BE    1,    2,    3,    OR    4.) 
GO   TO    190 

170    NERR=    1 

WRITE  (NPRNT,222) 
222  FORMAT  (/,59H  ***  ABREV  ERROR  NO.  0102  —  INPUT  ERROR  IN  EITHER  D1 

*  OR  D2,/,106H  ***  EITHER  ONE  OR  BOTH  OF  THE  INPUT  DISTRIBUTIONS  AR 
*E  ALL  ZERO  OR  HAVE  AN  ERBOR  IN  AN  INTERMEDIATE  VALUE.) 

GO  TO  180 

174  CONTINUE 

IF  (N)  170,170,175 

175  CONTINUE 

IF    (NT)     170,177,176 

176  CONTINUE 

IF  (N-NT+1)  170,177,170 

177  CONTINUE 

IF  (M)  170,170,178 

178  CONTINUE 

IF  (MT)  170,180,179 
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179  CONTINUE 

IP    (M-MT+1)     170,180,170 

180  CONTINUE 

IF     (NERR)     190,200,190 
190    WRITE    (NPRNT,333)KODE,D1,D2 
333    FORMAT    ( 

*/,27H  ABREV    INPUT    ARGUMENTS    , 

*  /11H  KODE=    ,16, 

*  /   9H  D1=    ,8F13.5   /9X,8F13.5,/,9X,F13. 5 

*  /  9H  D2=    ,8F13.5   /9X,8F13. 5,/,9X,F13. 5) 
NG=    0 

GO    TO    1000 

C 

c 

C CALCULATE    NUMBER    OF    AGE   GROUPS    WITH    DATA 

c 

C 

200    N1=    M 
N2=    N 
NG=    N2 
C 
c 

C DETERMINE    IF    D1    OR    D2    IS    TO    BE    SHORTENED. 

c 

C 

IF    (N1-N2)     240,1000,230 

C 

c 

C BRANCH    ACCORDING    TO    INPUT    TYPE  CODE,    KODE 

c 

C 

230    NG   =    N2 

K    =    N1 

L   =    N2 

LP1    =    L    +    1 

IF    (KODE-2)    235,390,235 

C 

c 

C SHORTEN    POPULATION    DISTRIBUTION    IN    D1 

r^  ............................  ....  ......  ............ 

c 

235    CONTINUE 

DO   336   I    =    LP1,K 

D1  (L)    =    D1(L)     ♦    D1(I) 
336   D1  (I)    =0.0 

GO   TO    1000 
240    NG   =    N1 
260    K   =    N2 

L   =    Nl 

IF    (KODE-1)    265,370,265 
C 
c 

C SURVIVAL   RATES    IN    D2   TO    BE   SHORTENED. 

c . 

C 

265   CONTINUE 

DO   270   I   =    1,17 
270    SX(I)    =    D2(I) 
275    A=    1.0 

B=    1.0 

SB=    0.0 

SA    =    0.0 

KB1    =    K    -1 

LP1=    L*1 

X=    1.0    -SX{K) 

C 

c 

C CALCULATE   NEW   TERMINAL    SURVIVAL    RATE 

c 

C 

DO    320  J=L,KH1 

DO   280   I    =    L,KH1 

k  =    A    *    SX  (I) 
280    B   =    B    *   SX(I) 

IF    (J-L)    310*310,300 
300    SA    =    SA    +     (X/A) 
310    SB    ~    SB    *     JX/BJ 
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A  =  1.0 
320  B  =  1.0 

SX(L)  =  (1.  ♦  SA)  /  (1.  +  SB) 
C 
c 

C zeko  REMAINING  SOBVIVAL  BATES 

c 

C 

DO  330  I=LP1,17 
330  SX(I)  =  0.0 

IF     (M-N)     350,1000,340 
C 
c 

c PUT    SHORTENED    SURVIVAL    RATES    IN    D1 

c 

C 

340  CONTINUE 

DO  345  I  =  1,17 
345  D1  (I)  =  SX(I) 
GO  TO  1000 
C 
c 

c p0T    SHORTENED    SURVIVAL   RATES    IN    D2 

c 

C 

350  CONTINUE 

DO  355  I  =  1,17 
355  D2(I)  =  SX(I) 
GO  TO  1000 
C 
c 

C SHORTEN  POPULATION  IN  D2 

c 

C 

370  LP1  =  L+1 

DO    371    I    =    LP1,K 
D2(L)     =    D2(L)     ♦    D2{I) 

371  D2{I)    =   0.0 
NG   =    N1 

GO    TO    1000 
C 
c 

C SURVIVAL    RATES    IN    D1    TO    BE   SHORTENED 

c 

C 

390  CONTINUE 

DO  395  I  =  1,17 
395  SX(I)  =  D1  (I) 
GO  TO  275 
1000  RETURN 
END 
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I.  DESCRIPTION      OF       PROGRAM 

A.  PURPOSE 

To  estimate  the  crude  birth  and  death  rates  and  the  gross  reproduction  rate 
under  quasi-stable  population  conditions.   The  estimates  are  obtained  from  the 
intrinsic  birth  rate,  the  gross  reproduction  rate  and  information  on  the  number 
of  years  that  mortality  has  been  declining. 

B.  DATA  NEEDED 

1.  The  rate  of  natural  increase  of  the  population  during  the  last  inter- 
censal  period. 

2.  The  rate  of  natural  increase  before  the  mortality  decline  began. 

3.  The  number  of  years  mortality  has  been  declining. 
U.   The  number  of  years  between  the  last  two  censuses. 

5.  The  eight  crude  birth  rates  corresponding  to  the  eight  stable 
populations  generated  by  the  intercensal  rate  of  natural  increase  and 
the  proportions  of  the  population  under  ages  5,  10,  15,  20,... ,40. 

6.  The  eight  gross  reproduction  rates  corresponding  to  the  eight  stable 
populations  generated  in  the  same  way  as  the  crude  birth  rates. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

Stable  populations  are  projected  for  a  period  of  40  years  with  steadily 
increasing  life  expectancies  equivalent  to  the  effect  on  the  age  composition 
of  a  1-percent  per  year  increase  in  fertility.   For  each  projection  period, 
stable  population  estimates  of  the  crude  birth  rate  and  gross  reproduction 
rate  are  calculated  based  on  the  age  distribution  at  the  end  of  the  projec- 
tion period  and  the  rate  of  natural  increase  during  the  projection  period. 
The  estimated  crude  birth  rates  and  gross  reproduction  rates  are  compared 
with  the  actual  rates  in  order  to  estimate  adjustment  factors  for  modifying 
stable  population  estimates  of  the  crude  birth  rate  and  gross  reproduction 
rate  for  the  effect  of  declining  mortality. 

The  adjustment  depends  on  the  period  of  mortality  decline,  the  population 
growth  rate  at  the  onset  of  tha  mortality  decline  and  the  population  growth 
rate  during  the  last  5  or  10  years  before  the  date  for  which  the  estimates 
are  made. 

The  adjusted  rate  is  determined  as 


R'  =  R  (1  +  1780  •  F  •  -§£-) 


where 

R'  is  the  adjusted  rate  (CBR  or  GRR)  ; 

R  is  the  stable  rate  given  as  input; 

F  is  the  appropriate  adjustment  factor  from  the  table  following; 

Dr  is  the  absolute  difference  between  the  current  growth  rate  and 
the  growth  rate  at  the  onset  of  the  mortality  decline;  and 

Dt  is  the  number  of  years  mortality  has  been  declining. 
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The  ad-justed  crude  birth  rate  corresponds  to  the  end  of  the  intercensal 
period.   The  rate  of  natural  increase  corresponds  to  the  intercensal  period. 
Therefore,  in  order  to  estimate  the  quasi-stable  death  rate,  the  rate  of 
natural  increase  must  be  adjusted  to  refer  to  the  end  of  the  intercensal 
period.   The  formula  for  the  adjustment  is 


.  t   Dr 
e    t    2    Dt 


where 

r   is  the  rate  of  natural  increase  at  the  end  of  the  intercensal  period; 

r   is  the  rate  of  natural  increase  for  the  intercensal  period  given  as 

input; 

t  is  the  number  of  years  in  the  intercensal  period;  and 

Dr  and  Dt  are  as  defined  previously. 

Once  r   is  known,  the  quasi-stable  crude  death  rate  at  the  end  of  the 
e  *  i 

intercensal  period  can  be  calculated  as  the  difference  between  the  rate  of 
natural  increase  and  the  crude  birth  rate  at  the  end  of  the  intercensal  period. 


TABLES  OF  F  FACTORS  TO  BE  USED  TO  ADJUST  STABLE  POPULATION 
ESTIMATES  OF  THE  CRUDE  BIRTH  RATE  AMD  GROSS  REPRODUCTION  RATE 
ASSUMING  MORTALITY  HAS  BEEN  DECLINING  t  YEARS 


Part  (a).   For  use  to  correct  stable  estimates  when  the  current  rate  of 
growth  is  for  a  10-year  intercensal  period. 


t          5 

10 

15 

20 

25 

30 

35 

40 

5 

-.016 

-.030 
-.015 

.012 

.032 

.040 

.043 

.044 

.043 

Gross 

-.032 
-.017 

.010 

.029 

.037 

.040 

.041 

.040 

Birth  rate 

-.027    -.025 
-.019    -.023 
.011     .001 
.043     .034 
.064     .066 
.073     .085 
.076     .094 
.076     .096 

reproduction 

-.035    -.014 
-.027    -.011 
.013     .012 
.045     .045 
.065     .078 
.074     .096 
.077     .105 
.076     .108 

s 

-.028 
-.025 
-.004 
.021 
.053 
.081 
.099 
.106 

rate 

-.005 
-.002 
.019 
.045 
.078 
.106 
.124 
.131 

-.033 
-.027 
-.006 
.018 
.043 
.072 
.096 
.112 

-.006 
.005 
.026 
.051 
.077 
.  107 
.131 
.147 

-.039 
-.029 
-.004 
.022 
.047 
.069 
.094 
.116 

-.005 
.006 
.032 
.059 
.085 
.108 
.133 
.156 

-.043 

10 

15 

20 

25 

006 

-.032 

-.004 

.026 

.051 

30 

006 

.073 

35 

40 

006 

.092 
.  1 14 

5 

-.017 

-.010 

10 

-.009 

.001 

15 

.........   .000 

.031 

20 

001 

.062 

25 

005 

.088 

30...... 

.005 

.111 

35 

006 

.130 

40 

005 

.  153 
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Part  (b) -   For  use  to  correct  stable  estimates  when  the  current  rate  of 
growth  is  for  a  5-year  intercensal  period. 
_         _     __      --       __      __      __      __      -_ 


.005 

-.002 

-.oou 

.039 

.024 

.019 

.070 

.055 

.045 

.089 

.085 

.075 

.096 

.102 

.102 

.098 

.109 

.118 

.094 

.108 

.123 

Birth  rates 

5  -.003  -.007    -.010    -.012     -.013 

10 010  .017 

15 021  .045 

20 025  .062 

25 025  .068 

30 025  .069 

35 023  .066 

40 022  .063 

Gross  reproduction  rate 

5  -.005  -.009    -.004     .005      .017 

10 007  .015     .012     .016      .027 

15 018  .042     .045     .042      .050 

20 022  .058     .076     .073      .076 

25 023  .065     .094     .103      .108 

30 022  .065     .102     .120      .135 

35 021  .063     .103     .127      .150 

40 019  .059     .100     .126      .156 


014 

-.016 

-.018 

000 

-.001 

.000 

021 

.028 

.031 

045 

.054 

.059 

068 

.075 

.082 

095 

.096 

.101 

117 

.118 

.119 

129 

.137 

.138 

021 

.019 

.015 

034 

.038 

.0  34 

057 

.065 

.066 

081 

.092 

.096 

106 

.114 

.120 

133 

.136 

.  140 

155 

.158 

.158 

167 

.178 

.  177 

Sources: 

Ansley  J.  Coale,  "Estimates  of  Various  Demographic  Measures  Through  the  Quasi- 
Stable  Age  Distribution,"  in  Emerging  Techniques  in  Population  Research,  Milbank 
Memorial  Fund,  1963,  pp.  175-193. 

Paul  Demeny,  "Estimating  Vital  Rates  for  Populations  in  the  Process  of 
Destabilization,"  Demography  (Chicago),  Vol.  2,  1965,  pp.  516-530. 

United  Nations,  Manual  IV:   Methods  of  Estimating  Basic  Demographic  Measures 
from  Incomplete  Data.   ST/SOA/Series  A42. 

B.   COMMENTS 

This  subroutine  adjusts  the  birth  rate  and  gross  reproduction  rate  from  a 
stable  population.   The  adjustment  is  made  because  both  rates  are  estimates 
of  the  actual  rates  of  an  actual  population.   This  actual  population  —  from 
which  the  stable  population  parameters  were  estimated  —  is  not  a  stable 
population  but  rather  a  quasi-stable  population  which  has  registered  a  mor- 
tality decline  during  a  period  of  time.   It  is  assumed  that  the  intrinsic 
growth  rate  of  the  stable  population  is  the  actual  growth  rate  of  the  actual 
population  during  a  specific  period  of  5  or  10  years. 

Since  this  subroutine  is  restricted  to  the  mortality  patterns  of  Coale- 
Demeiy  Regional  Model  Life  Tables,  both  the  fertility  and  mortality  rates  are 
based  on  the  patterns  as  given  by  Coale-Demeny  in  Regional  Model  Life  Tables 
and  Stable  Populations.   Although  the  stable  population  distribution  and  its 
parameters  can  be  generated  for  either  sex,  when  a  male  stable  population 
distribution  is  estimated,  the  female  fertility  rates  are  applied  to  the  male 
distribution  for  purposes  of  determining  the  crude  birth  rate  and  gross  re- 
production rates. 

III.M  A  I  N   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 
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1 .   C&LL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  C&LL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  ADJBG(RNG,INT,NT,RNG1,CBR,GRR,CBRA,GRRA,CDRA) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  variable  names  CBR,GRR,CBRA,GRRA  and  CDRA  in 
the  argument  string  are  arrays.   The  following  DIMENSION  statement  must 
be  included  in  any  main  program  using  this  subroutine. 

DIMENSION  CBR(8)  ,GRR(8)  ,CBRA  (8)  ,GRRA(8)  ,  CDRA  (8) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1 .  Subroutines  from  this  package 
GTCON 

2.  Library  functions 
MOD  (modulus) 

3.  Card  diagram  of  main  program  and  subroutines 


/ 
/ 

CARDS    INDICATING   END   OF    DECK         /| 

/ 

/ 

INPUT    DATA                        /|     | 

/ 
/ 

COMPUTER    CONTROL   CARDS         /|     |     | 

/III 

/ 

SUBROUTINE   GTCON              /III/ 
_         _                 __/    I     I     1/ 

/ 

/ 

SUBROUTINE   ADJBG                 /III/ 

/III/ 

/ 

MAIN    PROGRAM                        /III/ 
/III/ 

/  COMPUTER  CONTROL  CARDS    /III/ 

I  I  / 
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C.   F0HH4T  REQOIREHENTS  FOB  CARD  INPUT  DATA  FOR  THE  HAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
subroutine  package  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV. B.   See  examnle,  section  V.C. 


Variable 
Card  Columns   Name    Definition 


1 

2-53 

54-80 

1-6 

7 
8-9 

10 
11-12 

13 
14-19 

20 
21 


22-80 


1-6 


8-13 


14 


RNG 


INT 


NT 


RNG1 


NXT 


CBR 


Blank 

Label  used  to  identify  the  output. 

Blank 


The  rate  of  natural  increase  of  the 
population  during  the  last  intercensal 
period.   The  decimal  should  be  entered 
in  column  2. 

Blank 

The  number  of  years  between  the  last 
two  censuses.   The  value  should  end 
in  column  9. 

Blank 

The  nuTiber  of  years  mortality  has  been 
declining.   The  value  should  end  in 
column  12. 

Blank 

The  rate  of  natural  increase  of  the 
population  before  the  mortality  decline 
began.   The  decimal  point  should  be 
entered  in  column  15. 

Blank 

The  code  indicating  if  there  is 
another  data  set  following  this  one. 
A  zero  punched  in  column  21  would 
indicate  that  this  is  the  last  set  of 
data.   Any  other  digit  punched  in 
column  21  would  indicate  that  another 
set  of  data  follows  this  one. 

Blank 


The  crude  birth  rate  corresponding 
to  the  stable  population  generated 
by  the  intercensal  rate  of  natural 
increase  and  the  proportion  of  the 
population  under  age  5.  The  deci- 
mal point  should  be  entered  in 
column  1. 

Blank 

The  crude  birth  rate  corresponding 
to  the  stable  population  generated 
by  the  intercensal  rate  of  natural 
increase  and  the  proportion  of  the 
population  under  age  10.  The  deci- 
mal point  should  be  entered  in 
column  8. 

Blank 
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15-20 


50-55 


56-80 


1-5 


6 
7-11 


12 
13-17 


4  3-47 


48-80 


GRR 


The  crude  birth  rate  corresponding 
to  the  stable  population  generated 
by  the  intercensal  rate  of  natural 
increase  and  the  proportion  of  the 
population  under  age  15-  The  deci- 
mal point  should  be  entered  in 
column   15. 


The  crude  birth  rate  corresponding 
to  the  stable  population  generated 
by  the  intercensal  rate  of  natural 
increase  and  the  proportion  of  the 
population  under  age  40.  The  deci- 
mal point  should  be  entered  in 
column   50. 

Blank 


The  gross  reproduction  rate  corres- 
ponding to  the  stable  population 
generated  by  the  intercensal  rate  of 
natural  increase  and  the  proportion 
of  the  population  under  age  5-  The 
decimal  point  should  be  entered  in 
column  2. 

Blank 

The  gross  reproduction  rate  corres- 
ponding to  the  stable  population 
generated  by  the  intercensal  rate  of 
natural  increase  and  the  proportion 
of  the  population  under  age  10.  The 
decimal  point  should  be  entered  in 
column  8. 

Blank 

The  gross  reproduction  rate  corres- 
ponding to  the  stable  population 
generated  by  the  intercensal  rate  of 
natural  increase  and  the  proportion 
of  the  population  under  age  15.  The 
decimal  point  should  be  entered  in 
column  14. 


The  gross  reproduction  rate  corres- 
ponding to  the  stable  population 
generated  by  the  intercensal  rate  of 
natural  increase  and  the  proportion 
of  the  population  under  age  40.  The 
decimal  point  should  be  entered  in 
column  44. 

Blank 
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IV.    SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine,  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  ADJBG (RNG,INT, NT, RNG 1 , CBR, GRR, CBRA,GRR A, CDRA) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


RNG 


How  Obtained   Definition 


INT 


NT 


RNG1 


CBR 


GRR 


CBRA 


GRRA 


CDRA 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 


Transferred  Out 


Transferred  Out 


The  rate  of  natural  increase  of  the  popu- 
lation during  the  last  intercensal  period. 
The  value  of  RNG  must  be  between  -0.01 
and  0.05.   If  RNG  takes  on  any  other 
value,  error  message  number  0131  will 
be  written  out  and  the  subroutine  will 
return  to  the  calling  program. 

The  number  of  years  between  the  last 
two  censuses.   INT  must  equal  either 
5  or  10.   If  INT  takes  on  any  other 
value,  error  message  number  0132  will 
be  written  out  and  the  subroutine  will 
return  to  the  calling  program. 


The  nunb 
declinin 
greater 
than  40 
value,  e 
written 
turn  to 
of  NT  mu 
If  it  is 
will  be 
will  ret 


er  of  years  mor 
g.  The  value  o 
than  the  value 
years.  If  NT  t 
rror  message  nu 
out  and  the  sub 
the  calling  pro 
st  also  be  a  mu 
n't,  error  mess 
written  out  and 
urn  to  the  call 


tality  has  been 
f  NT  must  be 
of  INT  but  less 
akes  on  any  other 
mber  0133  will  be 
routine  will  re- 
gram.   The  value 
ltiple  of  five, 
age  number  0134 
the  subroutine 
ing  program. 


The  rate  of  natural  increase  of  the  popu- 
lation before  the  mortality  decline  began. 
The  value  of  RNG1  should  be  between 
-0.01  and  0.05.   If  RNG1  takes  on  any 
other  value  a  warning  message  will  be 
written  out. 

The  eight  crude  birth  rates  corresponding 

to  the  eight  stable  populations  generated 

by  the  intercensal  rate  of  natural  increase  and 

the  proportions  of  the  population  under  ages 

5, 10, 15, 20, ...,45. 

The  eight  gross  reproduction  rates 
corresponding  to  the  eight  stable 
populations  generated  in  the  same  way 
as  the  crude  birth  rates. 

The  eight  crude  birth  rates  after 
adjustment  for  the  effect  of  the 
mortality  decline. 

The  eight  gross  reproduction  rates 
after  adjustment  for  the  effect  of 
the  mortality  decline. 

The  eight  crude  death  rates  after 
adjustment  for  the  effect  of  the 
mortality  decline. 
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C.       ERROR    MESSAGES 

0131  ***    ADJBG    ERROR    NO.    0131    INPUT    ERROR   IN    VARIABLE   RNG 

***    RATE    OP    NATORAL    INCREASE   MUST    BE   WITHIN    RANGE    -0.01    TO    0.05 

0132  ***    ADJBG    ERROR    NO.    0132    INPUT    ERROR   IN    VARIABLE  INT 

***    THE   INTERCENSAL    PERIOD    MOST    BE   FIVE   OR    TEN    YEARS 

0133  ***    ADJBG    ERROR    NO.    0133    INPUT    ERROR   IN    VARIABLE    NT 

***    THE   NUMBER   OP    YEARS   MORTALITY    HAS    BEEN    DECLINING   MUST    BE   GREATER 
THAN    THE    LENGTH    OF    THE    INTERCENSAL    PERIOD   BUT    LESS    THAN   40    YEARS 

0134  ***    ADJBG    ERROR    NO.    0134    INPUT    ERROR   IN    VARIABLE   NT 

***    THE    NUMBER   OF    YEARS    MORTALITY    HAS    BEEN    DECLINING   MUST 

BE    A   MULTIPLE   OF    FIVE 

V.       PROGRAMS      AND      RESULTS 

A.       COMPUTER    LISTING    FOR    MAIN   PROGRAM 

C 

c 

C MAIN  PROGRAM  FOR   SUBROUTINE   ADJBG 

c 

c 

C- THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  BY  FOUR 

C READ  STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C- STATEMENTS  AS  FOLLOWS, 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

C TO  BE  USED  TO  IDENTIFY  THE  OUTPUT.   THIS  LABEL  WOULD  USUALLY 

C- CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

C ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

C THE  TYPE  OF  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 

C IN  COLUMNS  2-53  OF  THE  CARD. 

C 

C- THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C -THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  (1)  THE 

C RATE  OF  NATURAL  INCREASE  (RNG)  OF  THE  POPULATION  DURING  THE  LAST 

C INTERCENSAL  PERIOD,  (2)  THE  NUMBER  OF  YEARS  BETWEEN  THE  LAST  TWO 

C- CENSUSES  (INT) ,  (3)  THE  NUMBER  OF  YEARS  MORTALITY  HAS  BEEN 

C- DECLINING  (NT),  (4)  THE  RATE  OF  NATURAL  INCREASE  (RNG1)  OF  THE 

C~ POPULATION  BEFORE  THE  MORTALITY  DECLINE  BEGAN,  AND  (5)  THE  CODE 

C INDICATING  IF  THERE  IS  ANOTHER  DATA  SET  FOLLOWING  THIS  ONE  (NXT) . 

C RNG   IS  LOCATED  IN  COLUMNS  1-6  WITH  THE  DECIMAL  POINT  IN  COLUMN  2. 

C  — — INT   IS  LOCATED  IN  COLUMNS  8-9,  ENDING  IN  COLUMN  9.   INT   MUST 

c EQUAL  5  OR  10. 

C NT   IS  LOCATED  IN  COLUMNS  11-12,  ENDING  IN  COLUMN  12.   NT   MUST 

c_____        BE  a  MULTIPLE  OF  5. 

C— RNG1   IS  LOCATED  IN  COLUMNS  14-19  WITH  THE  DECIMAL  POINT  IN 

c COLUMN  15. 

C -NXT   IS  LOCATED  IN  COLUMN  21.   A  ZERO  PUNCHED  IN  COLUMN  21  INDI- 

c__ CATES  THIS  IS  THE  LAST  SET  OF  DATA.   IF  ANY  OTHER  NUMBER 

c- IS  poNCHED  IN  COLUMN  21,  ANOTHER  SET  OF  DATA  FOLLOWS 

c_____        THIS  0NE. 

C 

C —THE  THIRD  BEAD  STATEMENT  USES  ONE  DATA  CARD. 

C —THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  EIGHT 

C  — —  CRUDE  BRITH  RATES  (CBR)  CORRESPONDING  TO  THE  EIGHT  STABLE  POPU- 

C- -LATIONS  GENERATED  BY  THE  INTERCENSAL  RATE  OF  NATURAL  INCREASE  AND 

O THB  PROPORTIONS  OF  THE  POPULATION  UNDER  AGES  5,  10,  15,  ...,40. 

C- CBR   IS  CONTAINED  ON  ONE  CARD  WITH  THE  DECIMAL  POINTS  IN  COLUMNS 

c„____        1#  Qt    i5#  22,  29,  36,  43,  AND  50. 
C 

C- THE  FOURTH  READ  STATEMENT  USES  ONE  DATA  CARD. 

C- THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  EIGHT 

C -GROSS  REPRODUCTION  RATES  (GRR)  CORRESPONDING  TO  THE  EIGHT  STABLE 

C- -POPULATIONS  GENERATED  BY  THE  INTERCENSAL  RATE  OF  NATURAL  INCREASE 

C— — AND  THE  PROPORTIONS  OF  THE  POPULATION  UNDER  AGES  5,  10,  15,  ...,40. 

C- GRR   IS  CONTAINED  ON  ONE  CARD  WITH  THE  DECIMAL  POINTS  IN  COLUMNS 

c„ 2,  8,  14,  20,  26,  32,  38,  AND  44. 

c_ _ 

c . 
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DIMENSION    CBB  (8)  ,GRR  (8)  ,CBBA(8)  ,GBBA  (8)  ,CDBA(8) 

NBEAD=1 

NPBNT=15 

1  BEAD(NBEAD,4) 

READ(NHEAD,5)     RNG, INT, NT , RNG1 , NXT 

READ{NREAD,6)  (CBB  (I) ,1=1 , 8) 

READ(NREAD,7)  (GRR (I) , 1=1, 8) 

WRITE  (NPBNT,8) 

WRITE  (NPBNT,<») 

CALL  ADJBG(RNG,INT,NT,BNG1,CBB,GBB,CBBA,GRRA,CDRA) 

WHITE  (NPBNT,9) 

DO  2  1=1,8 

IAGE=5*I 

WRITE  (NPBNT,  10)  I  AGE, CBB  (I)  ,GRB(I)  ,CBRA  (I)  ,GBBA  (I)  ,  CDBA  (I) 

2  CONTINUE 

IF  (NXT)  1,3,1 

3  STOP 

4  F0RMAT(1X,52H 

5  FORMAT (F6. 4,  1X,I2,  1X,  12,  11,  F6.  «»,  1  X,  11 ) 

6  FOBMAT  (F6.5,7(1X,F6.5)) 

7  FOBMAT  (F5.3,7(1X,F5.3)) 

8  F0RHAT(1H1) 

9  FOBMAT(/1X,3HAGE,5X, 17HSTABLE  POPULATION, 1 2X, 23HQ0ASI-STABLE  POPUL 
* AT ION, /,  9X,17HESTI MATES  (INPUT) , 19X, 9HESTIHATES,/, 1 1X,3HCB8,7 X,3HG 
*BR,11X,3HCBR,7X,3HGBR,14X,3HCDR) 

10    FORMAT  (1X,I2,4X,F8.5,5X,F5.3, 6X,F8.5,5X,F5.3,  5X,F12.5) 
END 


B.   COMPUTER  LISTING  FOB  SUBBOUTINE 

c___ . „ „ 

c _„ „ . _ 

SUBBOUTINE  ADJBG  (BNG,INT, NT, BNG1 ,CBB, GRR, CBRA,GBRA, CDRA) 
c _ _ „ _ — 

C PBOGBAM  NO.  0130 

c . . _ 

C THE  INPUT  ABGUMENTS  TO  THIS  SUBBOUTINE  ABE   RNG,  INT,  NT,  BNG1, 

C CBB,  GRB,  AND  CBDA. 

C THE  OUTPUT  ABGUMENTS  FBOM  THIS  SUBROUTINE  ABE  CBBA  AND  GBRA. 

C RNG       IS    THE    BATE   OF    NATUBAL    INCBEASE   OF   THE   POPULATION    DUBING  THE 

C LAST    INTERCENSAL    PERIOD. 

C INT       IS   THE    NUMBEB   OF    YEABS   BETWEEN    THE   LAST   TWO    CENSUSES. 

C NT      IS   THE    NUMBEB    OF    YEARS    MOBTALITY    HAS    BEEN    DECLINING. 

C BNG1       IS    THE   BATE    OF    NATUBAL   INCBEASE   OF    THE   POPULATION    BEFORE   THE 

C MORTALITY    DECLINE    BEGAN. 

C CBR       ARE   THE   EIGHT    CRUDE    BIBTH    BATES   COBBESPONDING   TO    THE    EIGHT 

c__„__        STABLE  POPULATIONS  GENEBATED  BY  THE  INTEBCENSAL  BATE  OF 

C NATURAL  INCBEASE  AND  THE  PBOPG8TIONS  OF  THE  POPULATION  UNDEB 

C AGES  5,  10,  15,  20,  ...,40„ 

C GBB   ARE  THE  EIGHT  GROSS  BEPBODUCTION  BATES  COBBESPONDING  TO  THE 

C EIGHT  STABLE  POPULATIONS  GENEBATED  BY  THE  INTERCENSAL  BATE 

C OF  NATUBAL  INCBEASE  AND  THE  PBOPOBTIONS  OF  THE  POPULATION 

C UNDEB  AGES  5,  10,  15,  ...,40. 

C CBBA      ABE   THB    EIGHT   CBUDE    BIRTH    RATES    AFTER    ADJUSTMENT    FOR    THE 

C EFFECT    OF    DECLINING    MORTALITY. 

C GRRA      ABE    THE   EIGHT    GBOSS    BEPBODUCTION    BATES    AFTEB    ADJUSTMENT    FOB 

c THE    efpecT   OF    DECLIWING    MOBTALITY. 

C CDBA      ABE    THE    EIGHT   CBUDE    DEATH    BATES    AFTEB    ADJUSTMENT    FOB   THE 

C EFFECT    OF    DECLINING    MOBTALITY. 

c „ 

c__„ 

DIMENSION   CBB  (8)  ,GBB  (8)  ,CBBA(8)  ,GBBA  (8)  ,CDBA  (8) 

DIMENSION   CONST     (8,2),    BONST(78) 

EQUIVALENCE  (BONST(1)  .CONST  (1,1)) 

NPBNT=  15 
C 
c . 

C VEBIFICATION  OF  INPUT  VABIABLES 

c _ „ __ . 

c 

NERR=  0 

IF    (BNG   ♦    0.01)     100,110,95 
9  5    CONTINUE 

IF    (RNG    -    0.05)     110,110,100 
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100  WRITE  (NPENT, 111) 

111  PORMAT(//47H  ***  ADJBG  ERROR  NO.  0131  —  INPUT  ERROR  IN  RNG, 

*/,65H  ***  RATE  OF  NATURAL  INCREASE  BUST  BE  WITHIN  RANGE   -0.01  TO 
♦0.05) 

NERR=  1 
110  CONTINUE 

IF  (INT-5)  130,140,120 
120  CONTINUE 

IF  (INT-10)  130,140,130 
130  WRITE  (NPRNT,222) 

222  FORMAT  (//47H  ***  ADJBG  ERROR  NO.  0132  —  INPUT  ERROR  IN  INT, 
*/,50H  ***  THE  INTERCENSAL  PERIOD  MUST  BE  5,  OR  10  YEARS) 

NERR=  1 
140  CONTINUE 

IF  (NT  -  5)  160,150,145 
145  CONTINUE 

IF  (NT  -  40)  150,150,160 

160  WRITE  (NPRNT,333) 

333  FORMAT  (//46H  ***  ADJBG  ERROR  NO.  0133  —  INPUT  ERROR  IN  NT, 

*  /,69H  ***  THE  NUMBER  OF  YEARS  MORTALITY  HAS  BEEN  DECLINING  MUS 
*T  BE  GREATER, /,69H  ***  THAN  THE  LENGTH  OF  THE  INTERCENSAL  PERIOD  B 
*UT  LESS  THAN  40  YEARS) 

NERR=  1 
150  CONTINUE 

IF     (MOD(NT,5))     161,170,161 

161  WRITE (NPRNT, 666) 

666    FORMAT (//46H    ***    ADJBG    ERROR    NO.    0134    --    INPUT    ERROR    IN    NT, 

*  /,77H  ***  THE  NUMBER  OF  YEARS  MORTALITY  HAS  BEEN  DECLINING  MUS 
*T    BE    A   MULTIPLE   OF    5) 

KERR    =    1 
170    CONTINUE 

IF     (RNG1    +    0.01)     180,190,175 
175    CONTINUE 

IF     (RNG1    -    0.05)     190,190,180 
180    WRITE     (NPRNT, 444) 
444    FORMAT  (//43H    ***    ADJBG    WARNING    --    INPUT   WARNING   IN    RNG1, 

*/,65H    ***    RATE   OF    NATURAL    INCREASE    MUST   BE    WITHIN    RANGE      -0.01    TO 
*0.05) 
190    CONTINUE 

IF     (NERR)     900,220,900 


c _ 

C CALCULATION    OF    ADJUSTED      CBR       AND       GRR 

c .„_„. ___ 

C 

220    T=INT 

TIME=NT 

DK=1780.0* (RNG-RNG1)/  (TIME-T/2.) 

I=NT/5 

K=INT/5 

CALL   GTCON     (2, I , K, CONST) 

DO    23  0   J=1,8 

CBRA (J) =CBR (J) *DK*CONST (J, 1) *CBR  (J) 

CDRA(J)  =  CBRA  (J)  -  (RNG  +  (T/2.0)  *  DK  /  1780.0) 
230  GRR  A  (J)=GRR  (J) +DK*CONST  (J,  2)  *GRR  (J) 

GO  TO  1000 
900  WRITE  (NPRNT, 555)  RNG, INT,NT,RNG1 , CBR, GRR 
555  FORMAT  (/28H      ADJBG  INPUT  ARGUMENTS, 


*  /10H 

RNG=  ,F8.3 

*  /10H 

INT=  ,16 

*  /  9H 

NT=  ,16 

*  /11H 

RNG1=  ,F8.3 

*  /10H 

CBR=  ,8F8.5 

*  /10H 

GRR=  ,8F8.3 

DO  910  I- 

=  1,8 

CDRA(I)  * 

=  0.0 

CBRA  (I)  = 

0.0 

910  GRRA  (I)  = 

0.0 

000  RETURN 

END 
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D.       SAMPLE    OUTPUT 
1st    SET 
SOUVENIR    POPULATION 


AGE 

STABLE 

POPULATION 

QUASI 

-STABLE 

POPULATION 

ESTIMATES 

(INPUT) 

ESTIMATES 

CBR 

GRR 

CBR 

GRR 

CDR 

5 

0.04280 

3.029 

0.04230 

3.083 

0.00811 

10 

0.0*»U50 

3.158 

0.04450 

3.248 

0.01032 

15 

0.04630 

3.293 

0.04712 

3.451 

0.01294 

20 

0.04640 

3.300 

0.04816 

3.525 

0.01398 

25 

0.04600 

3.265 

0.04863 

3.556 

0.01445 

30 

0.04510 

3.203 

0.04871 

3.561 

0.01452 

35 

0.04470 

3.167 

0.04910 

3.580 

0.01492 

40 

0.04460 

3.166 

0.04944 

3.611 

0.01526 

2nd    SET 
SOUVENIR    POPULATION     (TEST    OF    ERROR    0131) 


***    ADJBG  ERROR    NO.     0131    —    INPUT    ERROR    IN    RNG 

***   RArE    OF    NATURAL    INCFEASB    MUST    BE   WITHIN    RANGE      -0.01    TO    0.05 

ADJBG  INPUT    ARGUMENTS, 

RNG=  0. 063 

INT=  5 

NT=  30 

RNG1=  0.020 

CBR  =  0.04280    0.04450    0.04630    0.04640    0.04600    0.04510    0.04470    0.04460 

GRR=  3.029         3.158         3.293        3.300         3.265         3.203         3.167         3.166 


AGE 


STABLE    POPULATION 
ESTIMATES     (INPUT) 


QUASI-STABLE    POPULATION 


CBR 

GRR 

5 

0.04280 

3.029 

10 

0.04450 

3.158 

15 

0.04630 

3.293 

20 

0.04640 

3.300 

25 

0.04600 

3.265 

30 

0.04510 

3.203 

35 

0.04470 

3.167 

40 

0.04460 

3»166 

CBR 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


ESTIMATES 

GRR 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

CDR 
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I.  DESCPTPTION      OF      PROGRAM 

A.  PORPOSE 

To  calculate  new  age-specific   fertility   rates   from  a   given   set  of   age- 
specific   fertility   rates   and   a  pattern  of   change.      The   pattern   of  change   can 
be   given   in  three    ways:       1)    a  proportional   change   for  each  age-specific 
fertility  rate;    2)    an  absolute  change   in  the  total    fertility   rate   and  the 
percent   distribution  of    this  change    among    the    age   gtoups;    3)    an    absolute 
change   for   each   age-specific    fertility   rate. 

B.  DATA   HEEDED 

1.  The  seven  age-specific   fertility  rates   in    5-year    age  groups   15-19, 
20-2U,    ...,    i»5-49.      The   magnitude   of   the   fertility   rates  should    be 

per    woman,    not    per   thousand   women. 

2.  A  code    indicating   the   procedure  to   be  used   for   adjusting  the   fertility 
rates. 

3.  The  adjustments   to   the   fertility  rates.      The   adjustments    can   be   given 
in  three   ways: 

a.  Seven  proportional  changes,    one  for   each  age- 
specific   fertility  rate,  can  be   given. 

b.  The  absolute  change   in  the  total   fertility   rate 
plus   the  age   group  percent  distribution   of  the  total  change 
can  be    given. 

c.  Seven  absolute  changes,   one   for   each  age-specific 
fertility   rate,  can  be   given. 

4.  A   code    which    indicates    whether    the   results   of  the    subroutine   are   to    be 
written   out. 

II.  HETHODOLOGY 

MATHEMATICAL   DERIVATION 

There  are   three   possibilities   according  to   the   hypothesis    of   how   the    rates 
will  change. 

Case   I.      When    the   proportional    change    —   negative   for   a  decline  --  of   each 
age-specific   fertility  rate   is   known.      In   this  case,   the   rates  to   be  obtained 
are: 


5^=5<-(l+5V 


where 


.0  and   9  are  the  given  and  calculated    age- 

->  x  5  x 

specific   fertility    rates,   respectively. 

5V      is   the   proportional   change  to  the  age-specific 
rate  for   ages   x,x+U. 
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Case   II.      When   an   absolute   change    in   the   total   fertility  rates   is   given 
with   the   pattern   of   change   —    the  age-specific   distribution  of   the   total 
change.      In    this  case. 


where 

5D      is   the    proportion   of  the  total   change  at  age   x,x+<» 

TC   is   the   absolute  change   in  the  total   fertility   rate. 


Case   III.      When   the   absolute  change   in   each  age-specific   fertility 
rate   is   given. 

J2  =   c01   +  ,AV 
5  x      5  x      5    x 

where 

5AVx    is   the    absolute  change   —    negative   for   a   decline 

of   fertility    —   in   the   age-specific    fertility   rate   at 
age   x,x+U. 

ITI.M    A    I    N       PROGRAM 

A.       REQUIREMENTS 

The  main  program   is   reguired  to    use   this   subroutine   and   obtain   the  data 
(input)    necessary   for   the   subroutine  to   perform   its   calculations.      A  main 
program  can   use   a   subroutine   alone    or   in  conjunction    with   other   subroutines. 
For    a   detailed    explanation   of   writing  main    programs   using   more  than  one  sub- 
routine  see   the   Appendix. 

1.      CALL  statement 

Once   the  main   program  has   obtained   the   data   reguired   for  the   subroutine  to 
do    its   calculations,    the   main    program   transmits   this  data   to  the   subroutine 
and  the  subroutine   returns   the   results   of   the   calculations   performed  to  the 
main  program.      This    communication   process   is  made   through   the   CALL  statement. 

The    form  of   the    CALL   statement  for   this    subroutine  is   as  follows: 

CALL   &DJFR  (KODB,NWRIT, ASFRP, TOT, ASFR) 


2.       DIMENSION   statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to 
a  group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then 
the  variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
greater  than  the  variable  name  is  dimensioned  in  any  subroutine  called  by  the 
main    program. 

For   this  subroutine   both  variable  names   ASFRP   and  ASFR   in   the   argument 
string   are   arrays.      The   following  DIMENSION   statement  must  be   included   in  any 
main   program   using    this   subroutine. 

DIMENSION    ASFRP (7) , ASFR  (7) 
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B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other 
subroutines  presented  in  this  publication  or  functions  included  in  the 
FOBTFAN  library. 

1.  Subroutines  from  this  package 
None 

2.  Library  functions 
ABS  (absolute  value) 

3.  Card  diagram  of  main  program  and  subroutines. 


/  / 

/    CARDS  INDICATING  END  OF  DECK    / 

/  /I 

/  INPUT  DATA  /  | 

/ /   I 

/  /I   I   / 

/     COMPUTER  CONTROL  CARDS         /  |   |  / 
/ /   I   I/ 

/  /I   I   / 

/  SUBROUTINE    ADJFR  /    |       |    / 

/ /        I        I/ 

/  /I        I       / 

/  MAIN    PROGRAM  /    |        |    / 

/  7 1     i    / 

/       COMPUTER  CONTROL  CARDS       /  |   |  / 

/ /   I   I/ 

I   / 


:.   FORMAT  REQUIREMENTS  FOB  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V. A. 

The  card  format  requirements  for  the  main  program  included  with  this 
subroutine  package  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data,  see  the 
description  of  arguments  in  section  IV. E.  See  example,  section  V.C. 


Variable 
Card  Columns    Name    Definition 


1 

2-53 

5U-80 

1 


NXT 


NHRTT 


Blank 

Label  used  to  identify  the  output 

Blank 

The  code  indicating  if  there  is 

another  data  set  following  this 

one.   A  zero  punched  in  column  1  indicates 

this  is  the  last  set  of  data.   If  any 

other  number  is  punched  in  column  1, 

another  set  of  data  follows  this  one. 

The  code  indicating  whether  the 

results  of  the  subroutine  are  to 

be  printed  out.   A  zero  punched  in  column  2 

indicates  the  results  are  not  to  be  printed 

out.   If  any  other  number  is  punched  in 

column  2,    the  results  of  the  subroutine 

will  be  printed  out. 
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IKODE 


«»-8 


9-80 


TOT 


| The  code   indicating    the    procedure 
to   be  used   for   adjusting   the   fertility 
rates.      A    1    punched    in  column    3   indicates 
that  the  age-specific   fertility   rates 
are   to   be  adjusted   by   a   proportional 
change   for  each   age-specific  fertility 
rate;    a    2    punched   in  column    3  indicates 
that   the  adjustment   Hill  be  by   an   absolute 
change   in   the   total   fertility  rate  along 
with   the  proportional   age   group  distribution 
of   this  change;    and   a   3   punched  in   column   3 
indicates  the   adjustment   will    be   by    an 
absolute  change   for  each   age-specific 
fertility   rate. 

The   absolute  change   in   the   total   fertility 
rate.      These   columns   are   used  only   when 
a   2    is    punched    in   column    3.      The   value 
should   be  entered   with    the   decimal   point 
in   column    6.      If  the  absolute  change   is 
negative,    a  minus   sign   should  be  entered 
in  column  4. 

Blank 


The  next    card  depends   on    the   value    given   for   KOBE    in  card    3. 

If    the    value  for   KODE   is    1,    the   proportional  change    for  each  of   the 

age-specific  fertility  rates   is  read   in. 

3      |    1-7        |ASFFP        | The   proportional  change   for  age   group    15-19 
I       .  I  I      . 

I      •  I  I       • 


|  43-49  | 

I        I 

|  50-80  | 


|The  proportional  change  for  age  group  45-49 

I 

j Blank 


If  KODE  has  the  value  2,  the  distribution  of  the  absolute  change  in  the 
total  fertility  rate  is  read  in. 


1-7 


4  3-49 


50-80 


ASFHP         | The    proportion   of   the  change  in  the 

| total   fertility  rate  in   age   group   15-19 


| The    proportion   of    the   change  in   the  total    fertility 

Irate   in   age   group   45-49. 

I 


j Blank 


If    KODE   has   the    value   3,    the  absolute  change   for   each  age-specific   fertility 

rate   is    read   in 


1-7    IASPEP  | The   absolute  change    for    age    group    15-19 

•      I  I 

.       I  I 


43-49    | 

I 
50-80    | 


| The   absolute  change    for  age   group    45-49 
I 


I  Blank 


Seven  columns  are  allowed  for  each  ASFRP  value.   Each  value 
must  be  entered  so  that  the  decimal  points  are  in  columns  2, 
9,..., 37,  and  14.   If  any  of  the  values  are  negative,  a 
minus  sign  must  be  entered  in  the  column  preceding  the  decimal 
point. 
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1-6 
7-12 

13-18 


37-42 
U3-80 


ASFR  | The   fertility  rate    for    age    group    15-19 

|The   fertility  rate    for    age   group  20-24 

I 

| The   fertility   rate    for   age    group   25-29 

I 
I 
I 
I 
|The   fertility  rate   for    age   group  45-49 

I 

I  Blank 


Six   columns    are   allowed    for   each    ASFR    value.      Each    value 
must   be   entered   so  that   the   decimal    points  are   in  columns 
1,7,. ..,31,    and   37. 


IV.    SUBROUTI    NE 

A.  SUBROUTINE    STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  ADJFR (KODE, N WRIT, ASFRP , TOT , ASFR ) 

B.  DESCRIPTION    OF    8RGUHENTS 

Name  How  Obtained      Definition 


KODE 


NWRIT 


ASFRP 


Transferred   In 


Transferred    In 


Transferred  In 


The   type  of   adjustment    that    is 
to   be   made  to   the  age-specific 
fertility  rates.      KODE=1   indicates 
that  the  age-specific  fertility 
rates   are   to  be   adjusted   by   a   pro- 
portional  change.       RODE=2    indicates 
that  the  age-specific   fertility 
rates   are  to   be  adjusted  by  con- 
sidering an  absolute   change   in  the 
total   fertility   rate   and  the   age 
group   percent  distribution   of   the 
total    change.      KODE=3    indicates 
that  the  age-specific   fertility   rates 
are  to   be  adjusted   by  an  absolute 
change.      If    KODE  has   any   other   value, 
error  message  number   0161    is   written 
out   and   the    subroutine   will   return   to 
the  calling   program. 

Code    indicating    whether    the  results 
of   the    subroutine    should   be   printed 
out.      NWRIT=0   indicates    the    results 
of   the   subroutine   should   not  be 
written  out.      If  NWRIT   eguals  any 
other    number  the   results   of   the  sub- 
routine  will  be   written  out. 

The   adjustments   to   the   fertility 
rates.      These  will   be   either    1)    the 
proportional  changes,    2)    the  dis- 
tribution of   the  absolute  change  in 
the   total  fertility   rate,   or   3)    the 
absolute  changes.      In  all   cases, 
seven    values  must   be   given,   one   for 
each   age-specific   fertility   rate.      In 
all  cases,    all   seven  values   of   ASFBP 
must  be   within   the    range   -1   to   +1. 
If   any    value   of    ASFRP  is   outside   this 
range,    error  message  number  0162   will 
be   written   out    and   the   subroutine    will 
return  to  the  calling  program.      If  the 
second   option  for   adjusting   fertility 
rates   is  used    (i  .e   if   K0DE  =  2)    the  sum  of 
the   7    values   of    ASFRP  must   egual   one. 
If  it   does  not,    error  message  number  0165 
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TOT 


ASFR 


Transferred   In 


Transferred   In 
and   Out 


will   be   written  out   and  the  subroutine 
will  return  to   the    calling   program. 

If   the  second   option   for  adjusting   the 
fertility  rates    is    used    (i.e., if   KODE=2) , 
TOT    is   the    absolute   change   in  the  total 
fertility  rate.      If   the  second  option   is 
not  chosen,    the    value   of   TOT  is  not   used 
in   the   subroutine.      The    value  of  TOT  must 
be    between    plus   or  minus  one-half   of  the 
total    fertility  rate.      If  this   is  not   the 
case,    error   message  number    0163   will   be 
written  out   and  the   subroutine  will   return 
to   the  calling    program. 

The   seven   age-specific    fertility  rates   that 

are  to   be  ad-justed.       All  values   of    ASFR 

must   be    within   the    range    0.0  to   0.5.      If 

any   value   is   not    within   this  range,    error 

message   number   0164   will   be   written 

out    and   the  subroutine    will   return   to   the 

calling    program.       After   completion  of   the 

adjustment    procedure,    ASFR    has   the   value    of 

the  seven  new   adjusted   age-specific    fertility 

rates    which    are   transferred    back   to  the   calling 

program. 


C.   ERROR  MESSAGES 

0161  ***  ADJFR  ERROR  NO.  0161  —  INPUT  ERROR  IN  KODE, 
***  THE  ADJUSTMENT  CODE  BUST  BE  1,2,  or  3. 

0162  ***  ADJFF  ERROR  NO.  0162  —  INPUT  ERROR  IN  ASFRP, 

***  AT  LEAST  ONE  VALUE  OF  THE  FERTILITY  RATE  PATTERN  OF  CHANGE  IS  NOT  BETWEEN 
-  1.0  TO  1.0. 

0163  ***  ADJFR  ERROR  NO.  0163  --  INPUT  ERROR  IN  TOT, 

***  CHANGE  IN  TOTAL  FERTILITY  RATE  MUST  BE  BETWEEN  PLUS  OR  MINUS  ONE  HALF  OF 
THE  TOTAL  FERTILITY  RATE. 

0164  ***  ADJFR  ERROR  NO.  0164  —  INPUT  ERROR  IN  ASFR, 

*♦*  AT  LEAST  ONE  AGE-SPECIFIC  FERTILITY  RATE  IS  LESS  THAN  0.0  OR  GREATER  THAN 
0.5. 

0165  ***  ADJFR  ERROR  NO.  0165  —  INPUT  ERROR  IN  ASFRP 

***  THE  SUM  OF  THE  DISTRIBUTION  FOR  THE  AGE-SPECIFIC  FERTILITY  ADJUSTMENTS 
MUST  BE  EQUAL  TO  1.0. 


PROGRAM 


AND 


RESULTS 


COMPUTER   LISTING    FOR    MAIN    PROGRAM 


c 

c . _ _ 

C MAIN    PROGRAM    FOR    ADJFR 

c 

c , 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  FOUR  READ 

C STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C —  STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

c GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  CR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C THE    SECOND   READ    STATEMENT   USES   ONE    DATA    CARD. 

C THE    PURPOSE    OF   THE    SECOND    READ    STATEMENT    IS    TO    READ    (1)THE 

C INDICATOR(NXT)     USED  TO   SIGNAL    IF    THERE   IS   ANOTHER    DATA    SET 

C FOLLOWING    THIS   ONE    (2) THE    WRITE    INDICATOR (NWRIT)    WHICH   DETERMINES 

C WHETHER    THE    RESULTS    OF   THE    SUBROUTINE    ADJFR    SHOULD    BE   WRITTEN 

C OUT,     (3)  THE    TYPE   OF    ADJUSTMENT  (KODE)     THAT   IS    TO    BE   HADE    TO    THE 

C AGE-SPECIFIC    FERTILITY    RATES,    AND     (4)  IF    FERTILITY    IS    TO    BE 
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C ADJUSTED  BY  THE  TOTAL  FERTILITY  PATE,  THE  TOTAL  CHANGE  IN  THE 

C TCTAL  FERTILITY  BATE  (TOT). 

C NXT   IS  IN  COLOHN  1  OF  THIS  CARD.   A  ZERO  IN  COLOHN  1  INDICATES 

c THIS  is  THE  L&ST  DATA  SET.   any  OTHER  NOHEER  IN  COLOHN  1 

c INDICATES  THERE  IS  ANOTHER  SET  OF  DATA  FOLLOWING  THIS  ONE. 

C NWRIT   IS  IN  COLOHN  2  OF  THIS  CARD.   A  ZERO  IN  COLOHN  2  INDICATES 

c THAT  THE  RESULTS  OF  THE  SOBROOTINE  ADJFR  ARE  NOT  TO  BE 

c PRINTED  OOT.   FOR  ANY  OTHER  NUMBER  IN  COLOHN  2  THE  RESOLTS 

c 0F  THE  SOBEOUTINE  ADJPR  HILL  BE  PRINTED  OOT. 

C KODE   IS  IN  COLUMN  3  OF  THIS  CARD.   A  1  IN  COLOHN  3  INDICATES 

c THAT  THE  AGE-SPECIFIC  FERTILITY  RATES  ARE  TO  BE  ADJOSTED  BY 

C A  PROPORTIONAL  CHANGE.   A  2  IN  COLOHN  3  INDICATES  AN 

C ABSOLOTE  CHANGE  IN  THE  TOTAL  FERTILITY  RATE  WITH  THE 

c DISTPIBOTION  OF  THE  CHANGE  GIVEN  ON  THE  FOLLOWING  CARD.   A 

c 3  IN  COLOHN  3  INDICATES  THAT  THE  AGE-SPECIFIC  FERTILITY 

C RATES  TO  BE  ADJOSTED  BY  THE  ABSOLOTE  CHANGE  GIVEN  ON  THE 

c FOLLOWING  CARD. 

c T0T   IS  IN  COLOHNS  U-8  OF  THIS  CARD.   THESE  COLOMNS  ARE  OSED  ONLY 

C ~        RHEN  KODE  =  2.   THE  DECIMAL  POINT  IS  ENTERED  IN  COLOHN  SIX 

c__ &ND  IF  THE  TOTAL  FERTILITY  RATE  IS  DECLINING  THEN  A  MINOS 

C SIGN  SHOOLD  BE  ENTERED  IN  COLOHN  4. 

C 

C THE  THIRD  READ  STATEMENT  OSES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE 

C PROPORTIONAL  CHANGE,  THE  DISTRIBUTION  OF  THE  CHANGE,  OR  THE 

C ABSOLOTE  CHANGE  (ASFRP)  IN  THE  AGE-SPECIFIC  FERTILITY  RATES. 

C ASFEP   VALUES  ARE  CONTAINED  ON  ONE  CARD.   FOR  EACH  ASFRP  VALOE, 

C SEVEN  COLUMNS  APE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT 

C COLOMNS.   EACH  VALOE  MUST  BE  ENTERED  SC  THAT  THE  DECIMAL 

c POINTS  WILL  BE  IN  COLUMNS  2,  9,  ...,  37,  AND  4U.  IF  ANY  OF 

c THE  VALUES  ARE  NEGATIVE  A  MINUS  SIGN  MOST  EE  ENTERED  IN  THE 

c COLOMN  PRECEDING  THE  DECIMAL  POINT. 

C 

C THE    FOURTH    READ    STATEMENT    USES   ONE    DATA    CARD. 

C THE    PURPOSE   OF    THE   FOURTH    READ   STATEMENT    IS    TO    BEAD    IN    THE    AGE- 

C SPECIFIC    FERTILITY    RATES (ASFR)     THAT    ARE    TO    BE    ADJUSTED. 

C ASFR       VALUES    ARE    CONTAINED    ON    ONE    CARD.       FOR    EACH    ASFR    VALUE,    SIX 

C COLOMNS    ARE    ALLOWED   STARTING    WITH    THE    FIRST    SIX   COLOMNS    OF 

c THIS   CARD.       EACH    VALOE    HOST    BE    ENTERED    SO    THAT   THE    DECIMAL 

c POINTS    WILL    BE    IN   COLUMN    1,    7,     ...,    31,    AND    37. 

c . 

c 

DIMENSION  ASFRP (7) , ASFR  (7) 

NEEAD  =  1 

NPRNT  =  15 

10  READ  (NREAD,11) 

11  F0FMAT(1X,52H 

READ  (NREAD,22)  NXT,  NWRIT,  KODE,  TOT 
22  FORMAT  (3I1,F5.  3) 

READ(NREAD,33)   (ASFRP  (I)  ,1=1  ,7) 
33  FORMAT  (7F7. 5) 

READ  (NREAD,<H»)      (ASFR  (I)  ,  1=1  ,7) 
U*«    FCFMAT(7F6.5) 

WRITE  (NPRNT, 55) 
55    FORMAT  (1H1) 

WRITE(NERNT,11) 

CALL    ADJFR (KODE,  NWRIT, ASFRP, TOT, ASFR) 

IF     (NXT)     10,20,10 
20   CCNTINOE 

STOP 

END 


B.       COMPOTER   LISTING   FOR    SOBROOTINE 

SOBROOTINE    ADJFR  (KODE, NWRIT  ,  ASFRP, TOT,  ASFR) 

c 

c . 

C PROGRAM  NO.  0160 

c 

C THE  INPOT  ARGOMENTS  ARE  KODE,  NWRIT,  ASFRP,  TOT,  AND  ASFR 

C THE  OOTPOT  ARGOMENT  IS  ASFE  AFTER  IT  IS  ADJOSTED. 

C KCDE   INDICATES  THE  TYPE  OF  ADJUSTMENT  TO  BE  MADE  TO  THE  AGE- 

C SPECIFIC  FERTILITY  RATES. 

C NWRIT   IS  THE  WRITE  INDICATOR  WHICH  DETERMINES  WHETHER  THE 

C RESULTS  OF  THIS  SUBROUTINE  ARE  TO  EE  PRINTED  OUT. 
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C ASFRP      ARE   THE    AGE-SPECIFIC    ADJUSTMENTS    TO    BE    HADE   TO   THE   AGE- 

c SPECIFIC   FERTILITY    RATES. 

C TOT      IS    THE    TOTAL    CHANGE    IN    THE    TOTAL    FERTILITY    RATE    IF    THE    AGE- 

c SPECIFIC    FERTILITY    RATES    ARE    TO    BE    ADJUSTBD    BY   THE  TOTAL 

c FERTILITY   RATE. 

C ASFR       ARE   ON   INPUT    THE    AGE-SPECIFIC    FERTILITY   RATES   TO    BE 

C ADJUSTED    AND    ON    OUTPUT   ARE    THE    ADJUSTEE    AGE-SPECIFIC 

c FERTILITY    RATES. 

c 

DIMENSION  ASFRP  (7)  , ASFR  (7) 

NFFNT=  15 

C 

c 

C VERIFY  INPUT  ARGUMENT  VALUES 

c 

C 

100  NERR  =  0 

IF     (KODE    -    1)     110,120,105 
105   CONTINUE 

IF     (KODE    -    3)     120,120,110 

110  WRITE  (NPRNT, 111) 

111  FORMAT  (/48H  ***  ADJFR  ERROR  NO.  0161  ~  INPUT  ERROR  IN  KODE, 
*/44H  ***  THE  ADJUSTMENT  CODE  MUST  BB  1,  2,  OR  3.) 

NERP  =    1 

120  do   mo  1=1,7 

IF     (ASFRP(T)     ♦    1.0)     130,  1U0,  125 
125    CONTINUE 

IF    (ASFEP(I)     -    1.0)     140,140,130 
130    WRITE     (NPRNT,222) 
222    FORMAT     (/49H    ***    ADJFR    ERROR    NO.    0162    ~    INPUT    ERROR   IN    ASFRP, 

*/87H    ***    AT   LEAST    ONE    VALUE   OF    FERTILITY    RATE    PATTERN    OF   CHANGE   IS 

*  NOT    BETWEEN    -1.0    TO    1.0    ) 
NEPR=    1 

GO    TO    150 
140    CONTINUE 
150    DO    170    1=1,7 

IF    (ABS  (ASFF(I))     -    .000001)     160,170,155 
155    CONTINUE 

IF    (ASFR(I)     -    0.5)     170,170,160 
160    WRITE    (NPRNT,444) 
444    FORMAT     (/,48H    ***    ADJFR   ERROR    NO.    0164   —    INPUT    ERROR    IN    ASFR, 

*/83H    ***    AT    LEAST    ONE    AGE-SPECIFIC   FERTIIITY    BATE    IS    LESS    THAN    0.0 

*  CB    GREATER    THAN    0.5.) 
NERR=    1 

GO    TO     180 

170  CONTINUE 

IF    (KODE- 2)    200,171,200 

171  TCTC   =    0. 

DO    175    I    =1,7 
175    TCTC    =   TOTC    +    5.*ASFR(I) 

TOT1    =    .5   *    TOTC 
180    CONTINUE 

IF     (ABS  (TOT)     -    ABS  (TOT  1))     191,191,190 

190  WRITE    (NPBNT,333) 

333  FORMAT  (/,47H  ***  ADJFR  ERROR  NO.  0163  —  INPUT  ERROR  IN  TOT, 

*/,103H  ***  CHANGE  IN  TOTAL  FERTILITY  RATE  MUST  BE  BETWEEN  PLUS  OR 
♦MINUS  ONE  HALF  OF  THE  TOTAL  FERTILITY  RATE.) 
NEBR=  1 

191  SUM  =0.0 

DO  195  I  =  1,7 

195  SUM    =   SUM   ♦    ASFRP(I) 
SUM    =    AES  (SUM-1.) 

IF    (SUM   -.01)    200,200,196 

196  NERR    =    1 

WRITE  (NPRNT,  199) 

199  FOBMAT(/, 1X, 50H***    ADJFR    ERROR    NO.    0165    —    INPUT    ERROR    IN   ASFRP 
*/#1*»97H***   THE    SUM    OF    THE    DISTRIBUTION    FOR    THE    AGE-SPECIFIC    FERTI 
*LITY    ADJUSTMENTS    MUST    BE    EQUAL   TO    1.0.    ) 

200  CONTINUE 

IF     (NERR)     210,300,210 
210    WRITE     (NPRNT, 555)     KODE, ASFRP, TOT,  ASFR 
555    FORMAT    (/26H  ADJFR    INPUT    ARGUMENTS 

*/11H  KODE=    ,16 

*/12H  ASFRP=    ,7(F8.5,2X) 

*/10H  TOT=    ,F8.2 

*/11H  ASFR=    ,7(F8.5,2X)) 

GO    TO    1000 
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C 

c 

C BRANCH    ACCORDING    TO    AEJUSTHENT   CODE 

c 

C 

300    GO    TO    (310,330,350)  ,KODE 

C 

c 

c 1DJOST  BY  PROPORTION  OP  PREVIOUS  FERTILITY 

c . 

C 

310  DO  320  1=1,7 

320    ASFR(I)=    ASFR(I)  *  (1  .0+ASPRP  (I)  ) 
GO    TO    900 
C 
c 

C ADJUST    BY   PROPORTION    OF   CHANGE   IN    TOTAL    FERTILITY 

c 

C 

330    T5=   TOT/5.0 

DO    340   1=1,7 
340    ASFR(I)=    ASFR  (I)  +  (ASFRP(I)  *T5) 

GO    TO    900 

C 

c 

C ADJUST    BY    ABSOL01E    CHANGE 

c 

C 

350    DO   360    1=1,7 

360    ASFR  (I)  =    ASFR  (I)+ASFFP(I) 

C 

c 

C WRITE    RESULTS    IF   NHRIT   IS   NOT   EQUAL    TO    ZERO. 

c _ 

C 

900   CONTINUE 

IF     (NHRIT)    9  10,1000,910 
910    MRITE(NFRNT,  999)      (ASFR  (I)  ,1=1 ,  7) 
999    FORMAT (/, 1X,37HADJUSTED    AGE-SPECIFIC    FERTILITY   RATES,/, 1X, 

*2X,6H    15-19, 5X,6H    20-24, 5X,6H    25-29, 5X,6H    30-34, 5X,6H    35-39, 5X, 
*6H    40-44, 5X,6H   45-49,/, 2X, 7  (F8.5,3X) ) 
C 
c 

C RETURN    TO   CALLING    PROGRAM 

c 

C 
1000    FETUFN 
END 
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D.       SAMPLE   ODTPDT 

1st   SET 

ADJUST    ASE-SPECIFIC    FERTILITY    PATES    1960    PROPORTION 

ADJUSTED    AGE-SPECIFIC    FERTILITY    RATES 

15-19  20-21  25-29  30-31  35-39  40-44  45-49 

0.08118  0.25812  0.30086  0.25451  0.20150  0.08507  0.02740 


2nd   SET 

ADJOST    AGE-SPECIFIC   FERTILITY    RATES    1960    TOT    FERT 

ADJUSTED    AGE-SPECIFIC    FERTILITY    RATES 

15-19  20-24  25-29  30-34  35-39  40-44  45-49 

0.07020  0.24680  0.25670  0.21970  0.18550  0.07140  0.01410 


3rd   SET 

adjust    age-specific  fertility    rates    1960   absolute 

ADJOSTED    AGE-SPECIFIC    FERTILITY    RATES 

15-19  20-24  25-29  30-34  35-39  40-44  45-49 

0.09000  0.28000  0.31000  0.25000  0.21000  0.09000  0.02000 
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I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To   calculate   aqe  and   sex   ratios    for   a    population  distribution   by   sex    and 
5-year   aqe   groups.      The  sex-ratio   score,    age-ratio   score,    and    joint   age-sex 
ratio   score   -    as   defined   by  the   United   Nations    -  are   calculated. 

B.  DATA    NEEDED 

1.  Bale    population  in   5-year    age   groups. 

2.  Female   population   in   5-year   age   groups. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

Sex  ratios  for  each  age  group  are  calculated  as  the  number  of  males  for 
every  hundred  females. 


MP 

K  =  —^ — —  100 

5  x    _FP   X  * 
5  x 

where 

5K   is  the  sex  ratio  for  age  group  x,x  +  4 

MP   is  the  male  population  from  age  x,x+4 
5FP  is  the  female  population  from  age  x,x+U 

Age  ratios  are  defined  as  100  times  the  quotient  of  a  particular  age  group 
divided  by  the  arithmetic  average  of  the  two  adjacent  groups.   That  is, 

MP 
MAR  =  — 2_x 100< 

i-^x-5  +  5^ 

where 

..MAR   is  the  male  age  ratio  for  aqe  x,  up  to  x+5. 
5   x 

,-FAR  ,  the  female  age  ratio,  is  calculated  the  same  way. 
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The   sex-ratio  score   is   defined   as   the  arithmetic   mean  of    the   absolute 
differences   between   each   consecutive   sex   ratio   no  further   than  for   tne   age 
qroup   65-69 


w-5 
m    Jo,5  5X       5x+5 


where 

KS  is  the  sex  ratio  score 
m  is  the  number  cf  differences  used. 

w  is  the  lower  bcund  of  the  last  age  group  of  the  last 
used  sex  ratio  in  calculating  this  score. 

The  age-ratio  score  is  the  mean  deviation  of  the  age  ratios  from  100 
percent  regardless  of  sign.   Hence: 

w=10 

MAS  =  —    J2       LMAR     -   100.1 
m     x^,5     5       X 


where 

MAS  is  the  male  age-ratio  score  and 
m  is  the  number  of  age  ratios 

FAS,  the  female  age-ratio  score,  is  calculated  in 
the  same  manner. 

Finally,  there  is  another  empirical  index  which  is  called  the  joint  score 
and  is  defined  as: 

JS  =  3  KS  +  MAS  +  FAS 

where 

MAS  and  FAS  are  the  male  and  female  age  ratio  scores 
KS  is  the  sex  ratio  score. 

Levels  of  the  joint  score  under  20  are  acceptable,  between  20  and  40  indicate 
marked  inaccuracies  in  the  age  reporting,  and  over  HO   indicate  great  errors  in 
the  aqe  reporting. 

Reference 


United  Nations,  "Accuracy  Tests  for  Census  Age  Distribution  in 

Five-year  and  Ten-Year  Groups,"  Population  Bulletin,  No.  2,  October,  1952, 

pp.  59-79. 

B.   COMMENTS 

Usually  this  subroutine  is  used  to  calculate  age  and  sex  ratios  for 
5-year  age  groups  which  can  be  analyzed  for  possible  errors  in  the  aqe 
distributions  for  males  and  females. 

The  sex  and  age  ratios  as  well  as  the  joint  score  index  should  be  used 
with  caution  when  different  populations  are  being  analyzed.   This  is  the  case 
for  populations  which  have  experienced  migration,  fertility  fluctuations 
durinq  the  past  or  any  other  event  that  may  have  affected  the  smoothness  of 
the  age-sex  distribution. 
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III.     MAIN       PROGRAM 

A.  REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1 .  CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL   AGESX (PM, PF) 

For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.  DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to 
a  group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then 
the  variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
greater  than  the  variable  name  is  dimensioned  in  any  subroutine  called  by  the 
main  program. 

For  this  subroutine  both  variable  names,  PM  and  PF,  in  the  argument  string 
are  arrays.   PM  refers  to  all  of  the  age  groups  for  male  and  PF  refers  to  all 
of  the  age  groups  for  females.   A  maximum  of  17  age  groups  can  be  given  for 
each  sex  --  16  5-year  age  groups  and  the  open-ended  age  group.   The  following 
DIMENSION  statement  must  be  included  in  any  main  program  using  this 
subroutine. 

DIMENSION   PM(17)  ,PF  (17) 

B.  OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  HITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other 
subroutines  presented  in  this  publication  or  functions  included  in  the  FORTRAN 
library. 

1.  Subroutines  from  this  package 
ABREV 

2.  Library  functions 
ABS  (absolute  value) 
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3.      Card   diaqram  of  main   program  and   subroutines. 


/  / 

/    CARDS  INDICATING  END  OF  DECK    / 

/  7i 

/  INPUT  DATA  /  | 

^  _^   ^ 

/  COMPUTER  CONTROL  CAhDS    /  |   |  / 

/ /  I  1/ 

/  /I  I  / 

/  SUBROUTINE  ABREV       /  |  |  / 

/ /   I   1/ 

/  /I   I   / 

/             SUBROUTINE  AGESX       /  |   |  / 
/ /   I   1/ 

/  /i   I   / 

/  BAIN  PROGRAM  /    \        |  / 

/ /  I   (/ 

/  /I  I   / 

/       COMPUTER  CONTROL  CARDS       /  |  |  / 

/ /   I  1/ 

i  / 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the  columns 
specified.   For  a  more  detailed  description  of  the  input  data,  see  the 
description  of  arguments  in  section  IV. B.  see  example,  section  V.C. 

Variable 
Card  Columns   Name   Definition 


1 

2-53 
54-80 

1-8 

9-16 

72-80 

1-8 
9-16 

49-56 
57-80 


PM 


PM 


Blank 

Label  used  to  identify  the  output 

Blank 


Male  population  0-4.   The  number  should 
end  in  column  8. 

Male  population  5-9.   The  number  should 
end  in  column  16. 


Male  population  45-49.   The  number  should 
end  in  column  80. 


Male  population  50-54.   The  number  should 
end  in  column  8. 

Male  population  55-59.   The  number  should 
end  in  column  16. 


Open  ended  male  population  80+.   The  number 
should  end  in  column  56, 

Blank 


The   variable   PM   always  requires   two   cards.      The   first  card 
(card   no.    2)    must   always   contain   data  whereas   the  second 
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card  (card  no.  3)  can  be  all  zeroes  depending  on  the  number 
of  age  groups  given.   The  last  age  group  given  must  always 
be  the  open  ended  age  group. 


1-8 
9-16 

72-80 

1-8 

9-16 

• 

19-56 
57-80 


PF 


PP 


Female  population  0-1.   The  number  should 
end  in  column  8. 

Female  population  5-9.   The  number  should 
end  in  column  16. 


Female  population  45-19.   The  number  should 
end  in  column  80- 


Female  population  50-51.   The  number  should 
end  in  column  8. 

Female  population  55-59.   The  number  should 
end  in  column  16. 


Open  ended  female  population  80+. 
number  should  end  in  column  56. 

Blank 


The 


The  variable  PF  always  reguires  two  cards.   The  first  card 
(card  no.  1)  must  always  contain  data,  whereas  the  second 
card  (card  no.  5)  can  be  all  zeroes  depending  on  the  number 
of  age  groups  given.   The  last  age  group  given  must  always 
be  the  open-ended  age  group. 


2-80 


NXT 


I 

|The  code  indicating  if  there  is  another  data 

| set  following  this  one   A  zero  punched  in 

| column  1  indicates  that  this  is  the  last 

| set  of  data.   Any  other  digit  punched  in 

| column  1  indicates  that  another  set  of 

| data  follows  this  one. 

I 

I  Blank 


IV.    SOB    ROUTINE 

A,  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  AGESX (PM,PF) 

B.  DESCRIPTION  OF  ARGUMENTS 

Name   How  Obtained   Definition 

I 
I  Transferred  In  |Male  population  in  5-year  age  groups 

| beginning  with  0-1,   The  last  age  group 
|is  the  open-ended  age  group  for  males, 
lit  is  possible  to  use  the  subroutine  with 
Ibetween  1  and  17  5-year  age  groups.   If 
J  less  than  four  age  groups  are  given,   the 
I  subroutine  will  write  out  error  message 
| number  0191  and  return  to  the  calling 
I  program. 
I 
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PF  | Transferred  In  | Female  population  in  5-year  age  groups 

| beginning  with  0-4.   The  last  group  is  the 
lopen-ended  age  group  for  females.   It  is 
| possible  to  use  the  subroutine  with  between 
I  4  and  17  5-year  age  groups.   If  less  than 
Ifour  age  groups  are  given,  the  subroutine 
I  will  write  out  error  message  number  0191  and 
| return  to  the  calling  program, 

C.   ERROR  MESSAGES 

0191  ***  AGESX  ERROR  NO.  0191  —  INPUT  ERROR  IN  PM  OR  PF 

***  BOTH  MALE  AND  FEMALE  POPULATIONS  MOST  CONTAIN  AT  LEAST 
FOUR  AGE  GROUPS. 

V.        PROGRAMS      AND       RESULTS 
A.       COMPUTER    LISTING   FOR    MAIN    PROGRAM 

c 

c 

C MAIN  PROGRAM  FOR   SUBROUTINE   AGESX 

c _ 

c 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  BY  FOUR 

C READ  STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

C TO  BE  USED  TO  IDENTIFY  THE  OUTPUT.   THIS  LABEL  WOULD  USUALLY 

C CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

C ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

C THE  TYPE  OF  ANALYSIS  ^THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 

C IN  COLUMNS  2-53  OF  THE  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  TWO  DATA  CARDS, 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  THE  MALE 

C POPULATION  IN  FIVE  YEAR  AGE  GROUPS  (PM) . 

c PH   Is  CONTAINED  ON  TWO  CARDS.   EACH  VALUE  OF   PM   MUST  BE  LOCATED 

C WITHIN  EIGHT  COLUMNS,  STARTING  WITH  THE  FIRST  EIGHT 

C COLUMNS.   A  MAXIMUM  OF  TEN   PM   VALUES  CAN  APPEAR  ON  THE 

c FIRST  CARD,  ENDING  IN  COLUMNS  8,  16,  24,  ...  ,80.   A 

C MAXIMUM  OF  SEVEN   PM   VALUES  CAN  APPEAR  ON  THE  SECOND  CARD, 

c ENDING  IN  COLUMNS  8,  16,  24,  ...  ,56.   IF  TEN  OR  FEWER   PM 

c VALUES  ARE  GIVEN,  THE  SECOND  CARD  WILL  BE  BLANK. 

C 

C THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS. 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  FEMALE 

C POPULATION  IN  FIVE  YEAR  AGE  GROUPS  (PF) . 

c pF   IS  CONTAINED  ON  TWO  CARDS.   EACH  VALUE  OF   PF   MUST  BE  LOCATED 

C WITHIN  EIGHT  COLUMNS,  STARTING  WITH  THE  FIRST  EIGHT 

C COLUMNS.   A  MAXIMUM  OF  TEN   PF   VALUES  CAN  APPEAR  ON  THE 

c FIRST  CARD,  ENDING  IN  COLUMNS  8,  16,  24,  ...  ,80.   A 

c MAXIMUM  OF  SEVEN   PF   VALUES  CAN  APPEAR  ON  THE  SECOND  CARD, 

c ENDING  IN  COLUMNS  8,  16,  24,  ...  ,56.   IF  TEN  OR  FEWER   PF 

c VALUES  ARE  GIVEN,  THE  SECOND  CARD  WILL  BE  BLANK. 

C 

c THE  FOURTH  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  CODE 

C (NXT)  INDICATING  IF  THERE  IS  ANOTHER  DATA  SET  FOLLOWING  THIS  ONE. 

C NXT   IS  LOCATED  IN  COLUMN  1.   A  ZERO  PUNCHED  IN  COLUMN  1  INDICATES 

c THIS  Is  THE  LAST  SET  0F  DATA.   ANY  OTHER  DIGIT  PUNCHED  IN 

C COLUMN  1  INDICATES  ANOTHER  SET  OF  DATA  FOLLOWS  THIS  ONE. 

c 

c 

DIMENSION    PM(17),    PF(17) 
NREAD=1 
NPRNT=15 
1    READ(NREAD,3) 
READ  (NREAD,4)     PM 
READ(NREAD,4)     PF 
READ(NR£AD,5)     NXT 
WRITE(NPRNT,6) 
WRITE (NPRNT,3) 
CALL    AGESX     (PM,PF) 
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IF    (NXT)     2,2,1 

2  STOP 

3  FORMAT (1X,52H 

4  FORMAT(10F8.0/7F8.0) 

5  FORMAT(H) 

6  F0RMAT(1H1) 
END 


B.       COMPUTER    LISTING    FOR    SUBROUTINE 

SUBROUTINE    AGESX     (PM,PF) 

— PROGRAM    NO.     0190 

• — THE    INPUT    ARGUMENTS    TO    THIS   SUBROUTINE    ARE       PM      AND      PF. 
• — THERE    ARE    NO    OUTPUT    ARGUMENTS    FROM    THIS    SUBROUTINE. 
— PM       IS    THE    MALE    POPULATION    IN    FIVE    YEAR    AGE   GROUPS. 
•  —  PF       IS    THE    FEMALE    POPULATION    IN    FIVE    YEAR    AGE    GROUPS. 

DIMENSION    PM(17)  ,PF(17) 
DIMENSION    PM5(17),PF5 (17) 
NPRNT=15 

•—COUNT    THE   NUMBER    OF    AGE    GROUPS,    ABBREVIATE    IF    NECESSARY    AND 
■ — VERIFY    THE    INPUT   DATA 


120,120,118 


.0000001)     122,122,121 


100    NERR=    0 

DO    110    1=1,17 
PM5  (I)  =    PM(I) 

110  PF5(I)  =    PF  (I) 
NM    =    0 

DO    113    1=1,17 
IF    (PM(I)    -    0.9)     114,114,112 

112  NH   =    NM    +    1 

113  CONTINUE 
GO  TO  117 

114  DO    116   J=I,17 
IF     (ABS(PM(J))     -    .0000001)     116,116,115 

115  NERR    =    1 

116  CONTINUE 

117  NF  =  0 
DO  119  1=1,17 
IF  (PF(I)  -  0.9) 

118  NF  =  NF  +  1 

119  CONTINUE 
GO  TO  123 

120  DO  122  J=I,17 
IF  (ABS(PF(J))  - 

121  NERR  =  1 

122  CONTINUE 

123  CONTINUE 
IF  (NERR  - 

125  CONTINUE 

IF  (NM  -  4)  129,126,126 

126  CONTINUE 

IF  (NF  -  4)  129,130, 130 

129  WRITE  (NPRNT,111) 

111  FORMAT  (  //64H  ***  AGESX  ERROR  NO.  0191  —  INPUT  ERROR  IN  VARIABLE 
*  PM  OR  PF,/,110H  ***  EITHER  THERE  ARE  LESS  THAN  4  AGE  GROUPS  IN 
*A  DISTRIBUTION  OR  AN  AGE  GROUP (S)  IS  LESS  THAN  OS  EQUAL  TO  0.9) 

WRITE  (NPRNT, 222) PM, PF 
222  FORMAT  (//27H      AGESX  INPUT  ARGUMENTS, 
*//9H      PM=  ,9F12.2/9X,8F12.2 
*//9H      PF=  ,  9F12.2/9X,8F12.2) 
GO  TO  1000 

130  CALL  ABREV  ( 1 , PM5, PF5, NG) 
135  CONTINUE 

IF  (NG-16)  140,150,150 
140  N=  NG-2 

GO  TO  160 
150  N=  14 


1)  125,129,125 
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160    NP1  =    N+1 
NM1  =    N-1 
TDEVM    =0.0 
TDEVF   =    0.0 
TSEDF=   0.0 

C 

c 

C CALCULATION  AND  PRINTING  OF  SEX  RATIOS,  AGE  RATIOS  AND  DEVIATIONS 

c 

C 

SR2=(100.0*PM5(1{)/PF5  (1) 
WRITE     (NPRNT,333)  PH5{1)  ,PF5(1)  ,SR2 
333    FORBAT     (//29H    UNITED    NATIONS    AGE-SEX    RATIO       ,    ///,4X, 

*  3HAGE,     12X,     10HPOPULATION,    13X,    9HAGE    RATIO,     12X,    9HDEVIATION, 

*  10X,    3HSEX,/, 

*  3X,    5HGROUP,8X,4HMALE,7X,    6HFEHALE,    8X,     13HMALE         FEMALE, 

*  7X,14HMALE  FEMALE,    6X,     5HRATIO,    5X,    1  OHDIFFERENCE 

*  //11H  0-    4         ,F10.0,3X,F10.0,47X,F5.1) 
NAGE1  =    0 

DO    170    1=2, N 

ARM    =     (200.0    *    PM5(I))     /    (PM5(I-1)     +    PM5(I  +  1)) 
DEVM    =    ARM    -    100. 0 
TDEVM    =    TDEVM    +    ABS(DEVM) 

ARF    =     (200.0   *    PF5(I))    /    (PF5(I-1)    +    PF5(I+1)) 
DEVF    =    ARF    -    100.0 
TDEVF    =    TDEVF    +    ABS(DEVF) 
SR1=     (100.0    *    PM5(I))    /    PF5(I) 
SRDIF=    SR1-SR2 
SR2=    SR1 

TSRDF    =    TSRDF    +    ABS  (SRDIF) 
NAGE1=    NAGE1+5 
NAGE2=    NAGE1+4 
170    WRITE     (NPRNT,444)  NAGE1 ,  N  AGE2,  PM5  (I)  ,PF5(I)  ,  Afc  M,  ARF, DEVM,  DEVF, SR2  , 

*  SRDIF 

444  FORMAT  (3X, 12, 1H- , 12 ,3X ,F1 0. 0, 3X, F10 . 0, 6X, F5. 1 ,4X,F5. 1 , 6X, 

*  F5.1,  5X,  F5.1,  6X,  F5.1,  8X,  F5. 1) 
NS=  NAGE2 

NA=  NS+5 

NGM1=NG-1 

DO    190    I=NP1,NGM1 

NAGE1=    NAGE1+5 

NAGE2=    NAGEH-4 

IF     (NG-I)     180,180,190 
180    NAGE2=    999 
190    WRITE    (NPRNT,555) NAGE1,NAGE2,PM5 (I) ,PF5 (I) 

555  FORMAT    (3X,I2, 1H-, 12, 3X, F10.0, 3X, F 10. 0) 
NAGEl=NAGE1+5 

WRITE  (NPRNT,556)  NAGE1  ,  PM5  (NG)  ,PF5(NG) 

556  FORMAT(3X,I2,1H+,5X,F10.0,3X,F10.0) 
ADEVM    =TDEVM    /(NM1) 

ADEVF  =TDEVF  /(NM1) 

ASRDF  =  TSRDF  /(NM1) 

AGSXR=  (3.0*ASRDF)+  ADEVM  +  ADEVF 

WRITE  (NPRNT,666)  ADEVM,  ADEVF,  ASRDF, AGSXR,N A, NS 
666  FORMAT (/, 2X, 38HAVERAGE  AGE  RATIO  DEVIATION  FOR  MALES=,F8.2 
*/,2X,40HAVERAGE  AGE  RATIO  DEVIATION  FOR  FEM ALES=, F8. 2 
*>,2X,29HAVERAGE  SEX  RATIO  BIFFERENCE=, F8. 2 
*/,2X,23HAGE-SEX  ACCURACY  INDEX=,F8.2, 

*//,2X,2lHNOTE:   AGE  GROUPS  0  -,I3,27H  USED  TO  COMPUTE  AGE  RATIOS 
*/,9X,14HAGE  GROUPS  0  -,I3,27H  USED  TO  COMPUTE  SEX  RATIOS   ) 
1000  RETURN 

END 
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BEERS 


I.       DESCRIPTION      OF      PROGRAM 


A.       PURPOSE 


To  separate   grouped   data    into    five   parts.      For   instance,    to   obtain   a 
single-year  age  distribution   from   a   population   given  in   5-year    age   groups,    or 
to  obtain   values   for   single   years   of    age   of   the   life   table   function   5L    . 

B.       DATA    NEEDED 

1.  The  grouped  data  to  be  subdivided. 

2.  The  number  of  groups  plus  one  that  will  be  subdivided.   For  instance, 
for  a  5-year  age  group  population  distribution  (0-1, 5-9. .., 65-69,70+)  to  be 
subdivided  into  single  ages,  the  open  age  group  70+  will  not  be  subdivided. 
Hence,  the  number  of  groups  to  be  subdivided  is  14,  and  the  number  to  be  used 
in  this  subroutine  will  be  15,  that  is  the  number  of  groups  to  be  sudivided 

(14)  plus  one. 

IT.     METHODOLOGY 

A.       MATHEMATICAL    DERIVATION 

Beers   calculated   these   coefficients   by    using  a    fourth   degree    polynomial 
function    which   gives  an   osculatory   interpolation.      Two   successive 
interpolation   curves  are    joined   so   that   they   have  a   common   ordinate,    tangent 
and   radius   of  curvature    for   a   certain  pivotal   point.      There  are   three   sets   of 
coefficients.      Each   set    utilizes  five    5-year    age   groups.      Two  sets   are   for 
breaking   down   the    first   two  and    the    last   two   5-year   age   groups.      The  third 
set    is    for    breaking   down   the   central   5-year   age   groups.       For   instance   for 
obtaining    the   population    at   age    x   from   a   central    5- year  age   group   the 
formula   is 


Px  "  C1  ,x  *  5Px-10  +  C2,x  *  5Px-5  +  °3,x  '  5?x  +  C^,x  '  5Px+5  +  °5,x  *  5Px+10 


where 

P   is  the  population  at  age  x. 

P   is  the  population  in  age  group  x,x+4. 

CJ    is  the  BEERS1  coefficient  for  P 
i,x 


These  coefficients  are: 


For 

Ag 

e   Groups 

Single 

Ages 

0-4 

5-9 

10-14 

15-19 

20-24 

0 

.3333 

-.1636 

-.0210 

.0796 

-.0283 

1 

.2595 

-.0780 

.0130 

.0100 

-.0045 

2 

.  1924 

.0064 

.0184 

-.0256 

.0084 

3 

.1329 

.0844 

.0054 

-.0356 

.0129 

4 

.0819 

.  1508 

-.0158 

-.0284 

.0115 
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b)       For   the   second    5 -year   age  group 


For 

Age    Groups 

Single 

Ages 

0-4 

5-9 

10-14 

15-19 

20-24 

5 

.0404 

.2000 

-.0344 

-.0128 

.0068 

6 

.0093 

.2268 

-.0402 

.0028 

.0013 

7 

-.0108 

.2272 

-.0248 

.0112 

-.0028 

8 

-.0198 

.1992 

.0172 

.0072 

-.00  38 

9 

-.0191 

.  1468 

.0822 

-■.0084 

-.0015 

c)      Fcr  any   central    5-year    age   group 


For 

Age 

Groups 

Single 

Ages 

x-10,x-6 

x-5,x- 1 

x,x+4 

x+5,x+9 

x+10. 

X 

-.0117 

.0804 

.1570 

-.0284 

.0027 

x+1 

-.0020 

.0160 

.2200 

-.0400 

.0060 

x+2 

.0050 

-.0280 

.2460 

-.0280 

.0050 

x  +  3 

.0060 

-.0400 

.2200 

.0160 

-.002  0 

x+4 

.0027 

-.0284 

.1570 

.0804 

-.0117 

For   breaking  down   the    two   oldest    5-year    age   groups,    the  coefficients   for 
the  two   youngest    5-year   age   groups   are    reversed. 

Reference 


H.    S.    Beers,    "Six-Term   Formulas   for    Routine    Actuarial    Interpolation," 
Record   of   the   American   Institute  of    Actuaries,    Vol.    34,    June,    1945. 

B.       CCMHENTS 

This   subroutine   can   be    used   for   obtaining    single   year   distributions   a)     from 
5-year    age   groups   of   populations,    b)    from  a   5L      column  of   a   life   table 

and/or   the    ^    column  of   a    life   table,   c)    to   estimate  annual  values   of   a 

particular   variable   given   in   5-year    intervals,    etc.      Nevertheless,    when 
grouped   data  distributions   have   strong    fluctuations    from   one  group  to   the  next, 
the  resultant   single  ages   or  fifths  might  not   conform  to   an   expected   behavior. 
This    also   could   be   the   case   for   subdividing   deaths  in   age   group   0-4    into   single 
ages   or   for    separating   the    5LX   and    5dx   function   of   the   life   table.      Also,    it 

should  be   remembered   that   the   subroutine   will    separate  into  five   parts   the 
first   grouped    data   assuming  that   such   group   is   the   first  one  of   a 
distribution.      Therefore,    in    a   particular   case,    in   which   single   ages   are 
desired    cnly   for   ages   between    10   and   49,    it   would   be  better  to    include   age 
group   0-4   and    5-9   as   well   as    50-54   and    55-59  so  that   the   age   groups   10-14   and 
45-49   are   separated    into   single   ages    without   considering   them   as   extreme  age 
groups  of  the    population. 

III.     H    A   I    N       PROGSAH 

A.   REQUIREMENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 


The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 
CALL  BEERS  (P, NP5, NP  1 , P1) 
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For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in 
the  above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.   If  they  refer  to  an  array,  then  the 
variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
greater  than  the  variable  name  is  dimensioned  in  any  subroutine  called  by  the 
main  program. 

Por  this  subroutine  both  variable  names  P  and  P1  in  the  argument  string  are 
arrays.  The  following  DIMENSION  statement  must  be  included  in  any  main  program 
using  this  subroutine. 

DIMENSION  P(99)  ,P1  (491) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other 
subroutines  presented  in  this  publication  or  functions  included  in  the  FORTRAN 
library. 

1.   Subroutines  from  this  package 
PREER* 


♦This  subroutine  is  not  called  by  the  subroutine  BEERS, 
used  only  by  a  main  program. 

Library  functions 
Ncne 

Card  Diagram  of  main  program  and  subroutines. 


It  is 


/  / 

/  CARDS  INDICATING  END  OF  DECK    / 

/  /I 

/  INPOT  DATA  /  J 

/  /I   I   / 

/  COMPOTER  CONTROL  CARDS    /  |   |  / 


/   I   I/ 

/  /I   I   / 

/  SUBROUTINE    PBEER  /     |        |    / 

/  7 1  I  / 

/  SUBROUTINE  BEERS       /  |    |  / 

/ /   I   1/ 

/  /I   I   / 

/  MAIN  PROGRAM  /  |    |  / 

/ /   I   1/ 

/  /I   I   / 

/       COHFUTER  CONTROL  CARDS       /  |   |  / 

I   / 


BEGINNING    OF   DECK 


I    / 
1/ 
/ 


/ 
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C. 


FORMAT    REQUIREMENTS   POR   CARD   INPUT    DATA    FOR    THE    MAIN    PROGRAM    GIVEN 
IN    SECTION    V.A. 


The  card   format   requirements  for  the   main   program  included   with  this 
publication   are   as    given   belov.      The   data    should  be   punched   in  the   columns 
specified.      For  a  more   detailed   description  of  the   input  data,   see   the 
description  of  arguments   in  section  IV. B.    See  example,  section  V.C. 

Variable 
Card  Columns        Name        Definition 


1 

2-53 

54-80 

1-4 

5 
6-8 

9 
10 


11-80 


1-8 


9-16 


7  3-80 


IV  AL 


NP5 


NXT 


Blank 

Label    used   to   identify   the   output 

Blank 


The  youngest  single  year  of  age  of 
the  population  to  be  subdivided. 
The  number  should  end  in  column  4. 

Blank 

The  number  of  groups  to  be  separated   into 
five  parts   plus   one.      The  number  should 
end   in  column    8. 

Blank 

The  code  indicating  if  there  is  another 
data  set  following  this  one.   A  zero  in 
column  10  indicates  this  is  the  last  set 
of  data.   Any  other  digit  punched  in 
column  10  indicates  that  another  set  of 
data  follows  this  one. 

Blank 


The   first  group   to   be   separated   into  five  parts. 
It   should  have   a  decimal   point   somewhere 
in   the   eight   columns. 

The  second   group  to  be   separated   into   five  parts. 
It  should  have   a  decimal   point   somewhere 
in  the  eight   columns. 


The   tenth  group  to   be  separated  into  five   parts. 
It   should  have   a  decimal   point   somewhere 
in  the  eight   columns. 


Note:      P  can  have  any   number  of   values   between  6    and  99.      The 
number   of  cards   to  be   used  depends   on   the  number  of   values 
given.      There  are   10   values   on  each   card,   so,   the  number  of   cards 
tc  be   used  can    be   from   1   to   10. 


IV.    S0BR00TINE 

A.       SOBROOTINE    STATEMENT 

All   external   subroutines   begin   with  the   word   SOBROOTINE  followed   by  a 
space,   the   name  of  the  subroutine   and  the  argument   string  enclosed   in 
parentheses.      This   subroutine   begins   as  follows: 


SUBROUTINE    BEERS    (P,  NP5,  NP1,  P1) 


B.       DESCRIPTION    OF     ARGUMENTS 


BEERS        71 


Name 


NP5 


NP1 


P1 


How  Obtained 


Transferred   In 


Transferred    In 


Transferred    In 


Transferred   Out 


Definition 

Grouped   data   that    is   to  be    separated    into 
five   parts.      If  there    is    less   than  five 
groups  the   subroutine   will   write  out 
error   message   number    0221    and   return 
to  the   calling    program.      This   subroutine 
has   been   written   assuming   that  most 
of  the   time  the   subroutine    will   be   used 
for   separating   5-year  age   groups   con- 
taining an  open-end   group.      For   this   reason, 
the   argument    P   always    includes   the  open-end 
group,    although   it   is  not   considered 
for  separating    the   grouped   data   into 
five   parts.      The   open-end   group   is  later 
transferred  out   as   the    last   group   of   the 
subdivided   distribution. 

For   grouped   data    which   has   no  open-end 
group,    it    is  necessary  to  assume  an 
open-end   group    which   would    be   "zero". 

Number   of   groups  to   be  subdivided   plus   one. 
For  instance,   if    there   are   16   5-year 
age   groups  to  be   separated   into   single 
ages,    this   argument   should   be    17. 
Notice   in  this   example  that   it    is   for 
16   5-year    age   groups   and  the  usual 
open-end   group   is   not    counted.      The 
open-end   group  also   will   be   trans- 
ferred  into  P    but   will   not   be   separated 
into   single  ages  nor   should  be  counted 
as   a    group    for  determining  NP5.      The  value 
of   NP5  must   be   greater   than   five.      If   NP5 
is  not  greater   than  five,    the  subroutine 
will   write   out   error  message  number  0221 
and  return   to   the   calling   program. 

Number   of   subgroups  obtained   from   the 
grouped   data   plus   cne.      For  instance,    in 
a   population   distribution  of   5-year  age 
groups   from  age  0    to  age   69   with  an 
open-end   group    70+,    NP 1   will  be   71.      In 
general   NP1=5xNP5-«.      If   NP1   is  not 
egual  to    5xNP5-U,    the   subroutine   will 
write   out   error  message  number  0222 
and  return   to   the   calling   program. 

Results  of   separating  the  grouped   data   into 
five    parts   -   there   will   be   NP1-1    subgroups 
plus    the   last    NP1    value   which    will   be 
the  last  open-end    group.      The   lastNPl     value 
is  the   same  as   the   last   value   in   P. 


C.       ERROR    MESSAGES 

0221    ***    BEERS    EPROR    NO.    0221    —    INP0T    EBROR    IN    VARIABLE    NP5 

***   THE    NUMBER    OF    GROOPS    TO   BE    SPLIT    OP    HOST    BE    GREATER    THAN    5 
AND   LESS    THAN    100. 


0222    ***    BEERS    EBROR   NO.    0222   —    INPOT    ERROR   IN    VARIABLE   NP 1 

***    THE   NOHBER    OF    S0BGH00PS     (NP1)     DOES    NOT    EQOAL    5(NP5-«) 
***   IF    NF5=XXX,    THEN    NP1    SHOOLD   EQOAL    1111 
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V.       F    F    0   G    R    A    M      AND      RESULTS 

A.       COMPUTER   LISTING   FOR    MAIN    PROGRAM 

c _ . 

c 

C BAIN  PROGRAM  FOR  BEERS  AND  PBEER  SUBROUTINES 

c 

c 

C THIS    PROGRAM   USES    A    SET    OF   DATA   CARDS    WHICH    IS   READ   IN    BY  THREE 

C READ    STATEMENTS.       THE    DATA    CARDS    ARE    RELATED   TC    EACH    OF   THE    READ 

C STATEMENTS    AS    FOLLOWS, 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  PIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

C TO  BE  USED  TO  IDENTIFY  THE  OUTPUT.   THIS  LABEL  WOULD  USUALLY 

C CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

C ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

C THE  TYPE  OF  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 

C IN  COLUMNS  2-53  OF  THE  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURFOSE  OF  THE  SECOND  READ  STATEMENT  IS  TC  READ  IN  (1)  THE 

C YOUNGEST  SINGLE  YEAR  OF  AGE  (IVAL)  OF  THE  DISTRIBUTION  TO  BE 

C SUBDIVIDED,  (2)  THE  NUMBER  OF  GROUPS (NP5)  TO  BE  DIVIDED  INTO 

C SUBGROUPS  PLUS  ONE,  AND  (3)  THE  CODE  (NXT)  INDICATING  IF  THERE  IS 

C ANOTHER  DATA  SET  FOLLOSING  THIS  ONE. 

C IVAL   IS  LOCATED  IN  COLUMNS  1- U,  ENDING  IN  COLUMN  H. 

C NP5   IS  LOCATED  IN  COLUMNS  6-8,  ENDING  IN  COLUMN  8. 

C NXT  IS  LOCATED  IN  COLUMN  10.   A  ZERO  PUNCHED  IN  COLUMN  10  INDICATES 

c THIS  IS  THE  LAST  DRTA  SET  T0  BE  SPLIT.   IF  ANY  OTHER  VALUE 

c Is  PUNCHED  IN  COLUMN  10,  ANOTHER  SET  OF  DATA  FOLLOWS   THIS  ONE. 

C 

C THE    THIRD    READ    STATEMENT    USES    AT   LEAST   ONE    DATA    CARD. 

C THE    PUFFOSE  OF    THE    THIRD    READ   STATEMENT    IS    TO    READ   IN    THE    DATA     (P) 

C TO   BE   SEPARATED   INTO    FIVE    PARTS    BY    USING    EEERS    MULTIPLIERS. 

c p      Is   CONTAINED    ON   AT    LEAST    ONE   CARD.       EACH    VALUE   OF      P      MUST    BE 

c LOCATED   WITHIN    EIGHT    COLUMNS,    STARTING    WITH    THE   FIRST    EIGHT 

c COLUMNS.       A    MAXIMUM    OF    TEN      P       VALUES    CAN    APPEAR    ON  EACH 

c CARD,    ENDIN3    IN    COLUMNS    8,     16,     24,    ...     ,80.       IF    MORE  THAN 

c ONE   DATA    CARD    IS    NECESSARY,    THE    DATA    SHOULD   BE    ENTERED   ON 

c EftCH    ADDITIONAL    CARD    IN    THE    SAME    MANNER    AS    ON   THE    PREVIOUS 

c CARD.       THE    LAST       P      VALUE    WILL    NOT    BE    SPLIT.       USUALLY 

c THIS    VALUE    WILL    BE    AN    OPEN-ENDED   GROUP.      IF   THE   LAST    VALUE 

c GIVEN    SHOULD    BE    SPLIT   THEN    AN    ADDITIONAL    VALUE    IS    REQUIRED. 

C A    ZERO    MAY   BE    GIVEN    FOR    THIS    VALUE. 

c 

c . 

DIMENSION  P(99),  P1(H9  1) 

NFEAD=1 

NPRNT=15 
6    READ  (KREAD,3) 

FEAD(NREAD,1)     IVAL, NP5, NXT 

READ(NPEAD,2)     (P(I)  ,1  =  1,  NP5) 

WRITB  (NPRNT,4) 

WRITE(NFRNT,3) 

NP1=5*NP5-tt 

CALL    BEERS  (P  ,NP5,NP  1  ,P1) 

IF     (NP1    -    99)     10,10,20 
10    CALL    PBEER(P,NP5,NP1,P1,IVAL) 
20    CONTINUE 

IF    (NXT)    5,5,6 
5    STOP 

1  FORMAT(I1,  IX, 13,  1X,I1) 

2  FOFHAT(10F8.0) 

3  FORMAT  (1X,52H  ) 

4  FORMAT(1H1) 
END 
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B.       COMPUTER  LISTING    FOR    SUBROUTINE 

c 

c 

SUBROUTINE  BEERS (P,NP5,NP1, P1) 
c 

C PROGRAM  NO.  0220 

c 

C THF  INPUT    ARGUMENTS    TO    THIS    SUBROUTINE   ARE      P,       NP5,      AND      NP1. 

C THE  OUTEUT    ARGUMENT    FROM    THIS    SUBROUTINE    IS      PI. 

c p      IS   THE    GROUPED    DATA    TO    BE    DIVIDED    INTO    SUBGROUPS    (INCLUDING    AN 

C OPEN-ENDED    LAST    GROUP    WHICH    IS    NOT    SUBDIVIDED)  . 

C NP5  IS    THE   NUMBER    OF   GROUPS    IN      P. 

C NP1  IS    THE    NUMBER    OF    GROUPS   TN      PI. 

c P1  xs    THE  OUTPUT    OF    SUBGROUPS.    THE    LAST    GROUP   IN      PI      IS    SET 

C EQUAL    TO    THE   OPEN-ENDED    LAST    GROUP    IN       P. 

c 

c 

DIMENSION    P(99),    P1(491) 
NPRNT=15 

C 

c 

C VERIFICATION    OF    INPUT    ARGUMENT   VALUES 

c 

C 

NERR=0 

IF    (NP5    -    99)     22,3,1 
22    CONTINUE 

IF    (NP5-6)     1,3,3 

1  NEBR=1 

WRITE  (NPRNT,2) 

2  FORHAT(    /58H    ***    BEERS    ERROR    NO.    0221    --    INPUT    ERROR    IN    VARIABLE 
*NP5    ,/,90H    ***    THE    NUMBER    OF   GROUPS    TO    BE    SPLIT    MUST    BE    GREATER    TH 
*AN    FIVE    AND    LESS    THAN    ONE    HUNDRED.) 

3  NR=5*NP5-U 

IF    (NP1-NR)    t,6,U 
«    NERR=1 

WFITE(NPRNT,5)       NP5,NR 

5  FOFMAT     (    /57H    ***    BEERS   ERROR    NO.    0222    —    INPUT    ERROR    IN   VARIABLE 
*    NP1,/,71H    ***    THE    NUMBER    OF    SUBGROUPS    (NP1)     DOES    NOT    EQUAL      5  (NP5 
*)     -    l»    IF    NP5    =    ,13,    24H,    THEN    NP1    SHOUID    EQUAL      ,    IU) 

6  NB1    =    NI5-1 
DO   8    1=1, NM1 

IF    (P(I))     8,7,8 

7  WRITE  (NPRNT,9) 

8  CONTINUE 

9  FOFMAT(    /50H    ***    BEERS    WARNING    --    INPUT    WARNING    IN    VARIABLE      P,/, 
*U7H    ***    AT   LEAST    ONE    GROUP    TO    BE    SPLIT    EQUALS    ZERO) 

IF     (NEFR)     11,11,100 

C 

c 

C DETERMINATION    OF    WHICH    SET    OF    EQUATIONS    ARE    TO    BE    USED 

c 

C 

11    K=1 

GO    TO    50 
10    K-K+1 

IF    (K-3)     60,70,20 
20   CONTINUE 

IF     (K-NP5+2)    70,80,90 
30    H=N  +  l» 

DO   40    1  =  1, M 
«0    P1  (I)=P1  (I)/10000. 
P1(N  +  5)=P(NP5) 
GO    TO    1000 
C 
c 

C EQUATIONS    FOR    SPLITTING    THE    FIRST    GROUP    INTO    FIFTHS. 

c 

c 

50   P1(1)  =   3333*P(1)  -1636*P(2)  -0210*P(3)  +  0796*P  (4) -0283*P  (5) 

P1(2)  =    2595*P(1)-0780*P(2)  +0130*P(3)  *0100*P(«J)  -00«5*P (5) 

P1(3)  =    192«*P(1)  +006«»*P(2)  +018«»*P(3)  -0256*P(U)  ♦008U*P(5) 

F1  (*4)  =    1329*P(1) +08UU*P(2) +005a*P(3) -0356*P  («»)+0129*P(5) 

P1(5)  =    0819*P  (1)  +  1508*P(2)-0158*P(3) -028a*P(«l) +0115*P(5) 

GO    TO  10 
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C 

c 

C EQUATTCKS  FOR  SPLITTING  THE  SECOND  GROUP  INTO  FIFTHS. 

c 

C 

60  P1(6)  =  0404*P(1) +2000*P(2) -03«H»*P(3)-0128*P(4)+0068*P(5) 
P1  (7)  =  0093*P(1)  +2268*P(2)  -0402*P  (3) +0028*P  (U) +0013*P  (5) 
P1  (8)  =-0108*P  (1)+227  2*P(2)-0248*P(3)  +0112*P(fl)  -0028*P(5) 
P1(9)  =  -0198*P(1)  +1992*P(2)  +0172*P  (3) +0072*P(U)  -0038*P(5) 
P1  (10)=-0191*P(1)  +  1<*68*P(2)  +  08  22*P(3)-0084*P(4)-0015*P(5) 
GO  TO    10 

C 

c 

C EQUATIONS    FOR    SPLITTING   THE    MIDDLE    GROUPS    INTO    FIFTHS. 

c 

C 

70    N=5*K-U 

P1(N)  =-0117*P(K-2)  +080tt*P(K-1)+157  0*P(K)-0284*P  (K+1) +0027*P  (K  +  2) 
P1  (N+1)  =-002  0*P(K-2)  +0160*P(K-1)+2200*P(K)-0U00*P(K+1)+0060*P(K+2) 
P1  (N  +  2)  =  0050 *P  (K-2)-0  280*P(K-1)  +2460*P (K) -02 80*P (K+1)  +0050*P  (K+2) 
P1  (N  +  3)  =  006  0*P(K-2)  -0«00*P  (K-1)  +  2200*P  (K) +0160  +  F (K  +  1)  -0020*P(K  +  2) 
P1  (N+t»)  =  0027*P(K-2)  -0  284*P(K-1)  +  1570*P  (K) +0804*P  (K+  1)-0  1 17*P(K+2) 
GO  TO    10 

C 

c 

C EQUATIONS    FOR    SPLITTING    THE    NEXT-TO-LAST    GROUP    (DISREGARDING   THE 

C OPEN-ENEED   LAST   GROUP)     INTO    FIFTHS. 

c _ 

C 

80    N=5*K-«» 

P1  (N)  =-0015 *P  (K-3) -0084*P  (K-2)  +  08  22*P(K-1)  +  1U68*P  (K) -0191*P  (K+1) 
P1  (N+1)=-0038*P  (K-3)  +0072*P  (K-2)  +  0172*P(K-1)  +1992*E(K)  -0198*P  (K  +  1) 
Pl(N  +  2)=-0028*P(K-3)  *0112*P(K-2)  -0248  *P  (K-1) +2272 *P  (K) -0108*P  (K+ 1) 
P1  (N+3)  =  0013*P(K-3)  +0028*P(K-2)  -0U02*P (K- 1) + 2268*P (K) +0093*P (K+1) 
P1  (N  +  H)  =  006  8*P  (K-3)-0128*P  (K-2)  -03«i»*P(K-1)  +2000*P(K)  +0404+P (K+1) 
GO    TO    10 

C 

c 

C EQUATIONS    FOR    SPLITTING    THE    LAST    GROUP (DISREGARDING   THE    OPEN-ENDED 

C — LAST?    GROUP)    INTO    FIFTHS. 

C 

c 

90    N=5*K-a 

P1(N)  =  0115*P(K-4)  -0284*P  (K-3)-0158*P(K-2)  +1508*P(K-1)  +0819*P(K) 
P1  (N  +  1)  =  0129*P(K-U)  -0356*P(K-3)  +005<**P  (K-2)  +08<H»*P  (K-  1)  *1329*P(K) 
P1  (N  +  2)=  0084*P  (K-«*)-0  256*P(K-3)  *018a*P(K-2)  *006H*P(K-1)  +  1924*P(K) 
P1  (N  +  3)  =-004  5*P  (K-ft)  +0100+P  (K-3)  +0130*P  (K-2)  -0780*E(K-1)  +2595*P(K) 
P1  (N+4)  =-028 3 *P  (K-4)  +0796+P  (K-3)  -0210*P  (K-2)  -  1636*P  (K-  1)  +3333*P(K) 
GO   TO   30 

C 

c_ 

C ZEROING   OUT    OF      P1    VALUES      BECAUSE   OF    AN    ERROR    CONDITION    AND 

C PRINTING    OF    INPUT 

c 

C 

100    DO    110    1=1,491 
110    P1  (I)    =    0.0 

»RITE(NPRNT,140) 
1«»0    FOBMAT(//27H  BEERS    INPUT    ARGUMENTS,,/) 

HRITE(NPRNT,120)        (P  (I)  ,1  =  1,  NP5) 
120    FORHAT(/,9H  P   =    ,9F12.3,/,  (    9X,9F12.3)) 

WRITE  (NEFNT,  130)     NP5,NP1 
130    FORMAT(11H  NP5    =    ,I10,/,11H  NP1    =    ,110) 

1000    RETURN 

END 
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I.  DESCRIPTION      OF      PROGRAMS 

A.  PURPOSE 

To  calculate   a   Coale-Demeny   regional   model    life    table    for  both    sexes 
combined,   given  a    life   expectancy  at    birth    for    both  sexes   combined,    a    region 
(north,   south,    east,    west)    of    the   model   life  tables,    and   the   sex    ratio  at 
birth.      The   subroutine   accepts   the    Coale-Demeny    differential   by    sex    of   the   life 
expectancy  at    age    10   for  calculating   the   life    table   for   both   sexes   combined. 

B.  DATA    NEEDED 

1.  Life  expectancy    at    birth    for    both   sexes   combined. 

2.  Sex  ratio    at    birth. 

3.  A  region   from  the    Coale-Demeny   model   life    table   system. 

II.  METHODOLOGY 

A.       MATHEMATICAL    DERIVATION 

Since  the   Coale-Demeny   regression  coefficients    which  relate   e°_ 

with   g     are   separated   by  sex,    the  subroutine  must    first  estimate   the 

life   expectancies   at   birth   for  males   and   females   which  combine   to 
produce   the   life  expectancy  at    birth   for   both  sexes  combined.      The 
subroutine  assumes    that    the   Coale-Demeny  assumptions   of  the   sex 
differential  in   life  expectancy  are    applicable  to  the  country    being 
analyzed. 

The  estimate   of   female    life   expectancy    at   birth  is   made   by   a 
linear   interpolation  and   an  iterative   process   as   follows.      For   the 
interpolation,    pivotal   levels  of  female   life  expectancy   at   birth 
and  the  corresponding   life   expectancies  at   birth   for  both   sexes 
combined   are  used. 

1 

3  _     1    .    i  2         -K       ebs  "  ebs 
ef  -  6f  +   (ef  -  ef )  •  — — 

e,      -  e, 
bs         bs 


where 


i  o 

e'    and   e*      are   the  pivotal    values  of   female   life 

expectancy   at    birth 

1  2 

et        and  e,         are   the  corresponding    pivotal    values   of 

bs  bs 

life   expectancy   at    birth   for    both   sexes   combined 

e  is   the    value   of  life   expectancy  at  birth   for  both 

b  s 

sexes  combined  given  as  input,  and 

o 

e;;   is  the  new  estimate  of  female  life  expectancy  at  birth. 
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The  initial  pivotal  values  of  female  life  expectancy  at  birth  are 
given  by 


ej  =  .667  +  1.107  ebs 


2  _  1    /  1       v 
ef  "  ef  "  (ebs  "  ebs} 


The  values  of  life  expectancy  at  birth  for  both  sexes  combined 
corresFcnding  to  a  given  female  life  expectancy  at  birth  is  calculated 
by  first  using  subroutine  HLT  to  calculate  the  male  life  expectancy  at 
birth  and  then  calculating  the  both  sexes  life  expectancy  by 


i  =  K  '  em  +  ef  (2) 

ebs      1  +  K 


where 


K  is  the  sex  ratio  at  birth  and  e  .  ec,  and  e,    are  the 

m  f  bs 

male,    female,   and   both   sexes   life   expectancies   at   birth 
respectively . 


3  3 

With  the  estimate   of  e,  calculated   in   formula    (1),    a  value  of   e, 

f  bs 

can  be  calculated  using  formula  (2) .   This  value  of  e   is  compared  with 

bs 

e   ,  the  value  of  life  expectancy  at  birth  for  both  sexes  combined 
bs 

3 
given  as  input.   If  |  e,    -  e,  |  >  .0004,  an  iteration  is  made  in 

D  s       bs 

3  12  3  1 

formula    (1).      e.  will  replace  er  or   e.   and   et        will  replace   e,         or 

r  rrbs  bs 

o 

e    depending  on  which  of  the  two  both  sexes  life  expectancy  is  furthest 

bs 

from  e,  . 
bs 

The  iterative  process  is  repeated  until   l  e,   -  e,  I  <  .0004. 

1  bs     bs '  — 

Once  this  is  achieved,  the  qx's  for  the  both  sexes  combined  life  table 
are  computed  from  the  q  '  s  for  the  underlying  male  and  female  regional 
model  life  tables  by  the  formula 


bs  _ 
n*x 

K  •      m  +       f 
1  +  K 

where 

bs 

m                      f 
n'V    and    n^x    are    Vs    f0t    the 

fe 

male    life   table    respectively. 

Subroutine  ELT  is  then  used  to  complete  the  life  table  from  the 
q  '  s. 
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E.       COMMENTS 

In   generating   the  life  table,    this    program  assumes   the   sex   differential 
in   mortality   implicit   in   the   Coale-Demeny  tables. 


IIT.M  AIN   PROGRAM 

A.  REQUIREMENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.  CALL  statement 

Once  the  main  program  has  obtained  the  data  reguired  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL   BLT  (SRB,EO,NREG, EOF, EOM, BSMLT) 

For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.  DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single- valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine,  variable  name  BSMLT  in  the  argument  string  is  an 
array.   The  following  DIMENSION  Statement  must  be  included  in  any  main 
program  using  this  subroutine. 

DIMENSION  BSMLT (18,8) 

B.  OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 

a .  ML  T  \ 

b.  ELT 
C.   GTCON 

2.  Library   functions 
Ncne 
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3.      Card  diagram  of  main    program  and   subroutines. 


CARDS    INDICATING    END    CF    DECK      / 
/ 


INPUT   DATA 


COMPUTER  CONTROL  CARDS 


SUBROUTINE  GTCON 


SUBROUTINE  ELT 


/ 


SUBROUTINE    MLT 


/I 

/    I 

/I     I 
._/    I     I 
/III/ 

/    I     I     1/ 

/III/ 

/    I     I     1/ 

/III/ 
./    I     I     t/ 


SUBROUTINE    BLT  /III/ 

._ /    III/ 

MAIN    PROGRAH  /III/ 
__/     I     I     1/ 


COMPUTER    CONTHOL    CARDS         /III/ 

/    I     I     1/ 

I     I    / 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAH  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
subroutine  package  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV. B.  See  example,  section  V.C. 

Variable 
Card  Columns   Name    Definition 


1 
2-53 
5«-80 

1 


2 
3-7 

8-13 
14 

15-80 


NXT 


SRB 


EO 


NREG 


Blank 

Label  used  to  identify  the  output 

Blank 


The  indicator  used  to  signal  if 
there  is  another  set  of  data  following 
this  one.   A  zero  in  column  1  indicates 
this  is  the  last  data  set.   Any  other 
number  indicates  there  is  another  set 
of  data  following  this  one. 

Blank 

The  sex  rate  at  birth.   The  value 
should  be  entered  so  that  the  decimal 
point  is  in  column  4. 

The  life  expectancy  at  birth  for  both 
sexes  combined.   The  value  should  be 
entered  so  that  the  decimal  point  is 
in  column  10. 

The  Coale-Demeny  region  to  be  used  for 
generating  a  both  sexes  life  table. 
A  1  punched  in  column  14  indicates  west  region, 
a  2  indicates  north  region,  a  3  indicates  east 
region,  and  a  <t  indicates  a  south  region. 

Blank 
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IV.    SUBROUTINE 


A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine,  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  BLT ( SRB, EO, NREG, EOF ,EOM , BSHLT) 

B.  DESCRIPTION  OF  ARGUMENTS 

Name    How  Obtained   Definition 


SRB 


EO 


NREG 


EOF 
EOM 
BSMLT 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 
Transferred  Out 
Transferred  Out 


Sex  rate  at  birth.   SRB  must  be 
between  0.9  and  1.1.   If  SRE  is 
not  within  this  range,  error 
message  number  0253  will  be  written 
out  and  the  subroutine  will  return 
to  the  calling  program. 

life  expectancy  at  birth  for  both 
sexes  combined.   EO  must  be  between 
20  and  80.   If  EO  is  not  within  this 
range,  error  message  number  0252 
will  be  written  out  and  the  sub- 
routine will  return  to  the  calling 
program. 

Indicates  which  region  from  the 
Coale-Demeny  model  life  table  system 
is  being  used.   NRE3=1,2,  3,4 
indicates  respectively  the  west, 
north,  east,  and  south  region.   If 
NREG  equals  any  other  value,  error 
message  number  0254  will  be  written 
out  and  the  subroutine  will  return 
to  the  calling  program. 

Life  expectancy  at  birth  for  females. 

Life  expectancy  at  birth  for  males. 

The  both  sexes  life  table  given  as 
output.   For  a  detailed  description  of  this 
array,  see  the  description  of  the  argument  XLT 
in  the  documentation  of  subroutine  ELT. 


C.   ERROR  MESSAGES 

0252  ***  BLT  ERROR  NO.  0252  INPUT  ERROR  IN  EO 

***  LIFE  EXPECTANCY  AT  BIRTH  SHOULD  BE  BETWEEN  20.0  AND  80.0. 

0253  ***  BLT  ERROR  NO.  0253  INPUT  ERROR  IN  SRB 

***  SEX  RATE  AT  BIRTH  SHOULD  BE  BETWEEN  0.9  AND  1.1. 


0254  ***  BLT  ERROR  NO.  0254  INPUT  ERROR  IN  NBEG 

***  COALE-DEMENY  REGION  MUST  BE  1,2,3,  cr  4. 

0255  ***  BLT  ERROR  NO.  0255 

***  SUBROUTINE  BLT  CANNOT  INTERPOLATE  APPROPRIATE  LIFE  TABLE 

***  POSSIBLE  ERROR  IN  SUBROUTINES  BLT,  MLT,  OR  ELT 
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V.       PROGRAM      AND       RESULTS 

A.       COMPUTER    LISTING    FOP    MAIN    PROGRAM 

c _ 

c 

C HAIN    PFOGBAH    FOR    BLT 

c 

c 

C THIS  PROGRAM  OSES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  TWO  READ 

C STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

C THE    FIRST    READ    STATEMENT    OSES   ONE    DATA    CARD. 

C THE    PURPOSE    OF   THE    FIRST    READ    STATEMENT    IS    TO    READ   THE   LABEL   TO 

C BE    USEE    TO    IDENTIFY    THE    OUTPUT.      THE    LABEL    WCULD    USUALLY   CONTAIN 

C THE    NAME    OF    THE    COUNTRY    OR    AREA    WHOSE    DATA    ARE    BEING    ANALYZED    AND 

C GIVE    SOME    INDICATION    AS    TO    THE    TYPE    OF    DATA    OR    THE   TYPE   OF 

C ANALYSIS    THAT    IS    BEING    DONE.       THIS    LABEL    IS    LOCATED   IN   COLUMNS 

C 2-53    OF    THIS   CARD. 

C 

C THE    SECOND    READ    STATEMENT    USES    ONE    DATA    CARD. 

C THE    PURPOSE    OF    THE    SECOND    READ    STATEMENT    IS    TO    READ     (1)THE 

C INDICATOR  (NXT)     USED    TO    SIGNAL    IF    THERE    IS    ANOTHER    DATA    SET 

C FOLLOWING    THIS   ONE,     (2)THE    SEX    RATIO    AT    BIRTH (SRB),     (3)  THE    LIFE 

C EXPECTANCY    AT    BIRTH  (EO)     FOR    BOTH    SEXES,     AND     (<*)THE    COALE-DEHENY 

C REGION  (NREG)     TO    BE    USED    TO    GENERATE    A   LIFE    TABLE   FOR    BOTH   SEXES. 

C NXT      IS    IN    COLUMN    1    OF   THIS    CARD.       A    ZERO    IN    COLUMN    1    INDICATES 

c THIS    IS    THE   LAST   DATA    SET.       ANY   OTHER    NUMBER    IN    COLUMN    1 

c INDICATES    THERE    IS    ANOTHER    SET    OF    DATA    FOLLOWING    THIS    ONE. 

C SRB      IS    IN    COLUMNS    3-7    OF    THIS    CARD.       THE    VALUE    SHOULD    BE   ENTERED 

c £0    THAT    THE    DECIMAL    POINT    WILL    BE    IN    COLUMN    4. 

C EO       IS    CONTAINED    IN   COLUMNS    8-13    OF    THIS    CARD.       THE    VALUE   SHOULD 

C BE    ENTERED    SO    THAT    THE    DECIMAL    POINT    WILL    BE  IN   COLUMN    10. 

C NREG       IS   IN    COLUMN    1U    OF    THIS    CARD.        A   ONE    INDICATES    WEST,    A    TWO 

c INDICATES    NORTH,    A    THREE   INDICATES    EAST    AND    A    FOUR 

c INDICATES    SOUTH. 

c _ 

c 

DIMENSION    BSMLT(18,8) 
NREAD    =    1 
NPRNT   =    15 

10  READ(NREAD,11) 

11  FORMAT  (1X,52H  ) 
READ  (NREAD, 22)     NXT  ,SR  B,EO  , NREG 

22    FOEMAT(I1, 1X,F5.U,F6.3,I1) 

WRITE  (NPRNT,  33) 
33    FORMAT  (1H1) 

WRITE(NERNT,  11) 

CALL    BLT     (SRB, EO,  NREG,  EOF, EOM,  BSMLT) 

WRITE  (NPRNT, <*U)     EOM, EOF 
U«t    FOBMAT(/, 1X,32HMALE   LIPE    EXPECTANCY    AT    BIRTH    =    , F6. 3,/, 1X, 34H FEHAL 
*E    IIFE    EXPECTANCY    AT    BIRTH    =    ,  F6 .  3) 

CALL    PLT  (BSMLT, 3, NREG) 

IF     (NXT)     10,20,10 
20    CONTINUE 

STOP 

END 


B.       COMPUTER   LISTING    FOR    SUBROUTINE 

SUBROUTINE   BLT (SRB, EO, NREG, EOF , EOM , BSMLT) 

c 

c 

c EFOGRAM    NO.     0250 

c 

c 

c THE    infUT    ARGUMENTS    ARE    SRB,    EO,     AND    NREG. 

c THE    OUTPUT    ARGUMENTS    ARE    EOF,    EOM,    AND    BSMLT. 

C SRB      IS    THE    SEX    RATIO    AT    BIRTH. 

C EO      IS    THE   LIFE    EXPECTANCY    AT    BIRTH    FOR    BOTH    SEXES. 

C NREG       IS    THE    COALE-DEMENY    REGION    TO    BE    USED    IN    GENERATING  THE 

C BOTH    SEX    LIFE   TABLE. 

c EOF      IS    THE    LIFE    EXPECTANCY    AT    BIRTH    FOR    FEMALES. 
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C EOM       IS    THE    LIFE    EXPECTANCY    AT    BIRTH    FOR    HALES. 

c BSHLT      IS   THE   LIFE    TABLE   FOR    BOTH    SEXES. 

c 

c 

DIMENSION    BSMLT(18,8) 

DIMENSION   SMLX  (18)  ,    QX(18),    EOI(2),    EOR(2)r    ISX(2) 

NPRNT   =    15 
C 
c 

C VERIFY  INPUT  ARGUMENT  VALUES 

c 

C 

100  NERR  =  0 

IF    (EO    -    20.0)     110,120,105 
105    CONTINUE 

IF    (EO    -    80.0)     120,120,110 

110  WPITE(    NPRNT, 111) 

111  FORMAT  (/,44H    ***    BLT    ERROR    NO.    0252   —    INPUT    ERROR    IN    EO, 

*/,62H    ***   LIFE    EXPECTANCY    AT    BIRTH    SHOULD    BE    BETWEEN    20.0    AND    80.0 
*•) 
NERR    =    1 
120    CONTINUE 

IF     (SEB    -    0.9)     124,126,122 
122    CONTINUE 

IF    (SRB   -    1.  1)     126,126,12«» 
124    WRITE  (NFRNT, 222) 

222    FORMAT (/,45H    ***    BLT    ERROR    NO.    0253   —    INPUT    ERROR    IN    SRB 
*/,5UH   ***   SEX   RATIO    AT    BIRTH    SHOULD    BE    BETWEEN    0.9    AND    1.1.) 
NEFR    =    1 

126  CONTINUE 

IF    (NREG    -    1)      130, 1«I0, 127 

127  CONTINUE 

IF     (NREG    -    4)     1U0, 1U0,  130 
130    WRITE    (NPRNT, 333) 

333    FORMAT     (/,46H    ***    BLT    ERROR    NO.    0254    —    INPUT    ERROR    IN    NREG 
*/,«7H    ***   COALE-DEMENY    REGION    MUST    BE    1,     2,    3,    OR    4.) 
NERR    =     1 
140    CONTINUE 

IF     (NERR)     150,150,900 
C 
c 

C ESTIMATE    CORRESPONDING    FEMALE   LIFE    EXPECTANCY 

c 

C 

150    EOF   =   0.667    +     1.017    *    EO 
ISX(1)     =    1 
ISX(2)     =    2 
IF    (EO-75.0)     158,158,157 

157  SRB  =  1/SRB 
ISX(1)  =  2 
ISX(2)  =  1 

EOF  =  ECF  -  3.5 
C 
c 

C INTERPOLATION   LOOP 

c 

c 

158  DO    290    N=1,15 
EOX   =   EOF 
NSX    =    2 

C 

c 

C GENERATE    MODEL    LIFE    TABLE 

c 

C 

160   CALL    MLT     (EOX ,ISX (NSX) , NREG, BSMLT) 
GO    TO    (190,170)  ,NSX 

C 

c 

C STORE    FEMALE    SMALL    LX,    SEPARATION    FACTORS    AND   LIFE    EXPECTANCY    AT 

C BIRTH. 

c 

C 

170    DO    180    I   =    1,18 

180    SMIX(I)     =   BSMLT  (1,4) 

SOF   =     (BSMLT  (1,5) -SMLX  (2))    /     ( 100000.  0-SMLX  (2) ) 

S1F   =    (BSMLT(2,5)  -4  .  0*SMLX  (3) )    /     (SMLX  (2  ) -SMLX  (3)  ) 
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EOF    =   ECX 
C 
c 

c PREPARE    TO    GENERATE    HALE    MODEL   LIFE    TABLE 

c . 

C 

BOX    =   99.0 

USX    =    1 

GO   TO    160 
C 
c _ 

C STORE    HALE   SEPARATION    FACTORS   AND   LIFE    EXPECTANCY    AT    BIRTH 

c 

C 

190    SOH    =    (BSHLT  (1 ,5) -BS HLT  (2,4) )    /    ( 100000.  0-BSHLT(2,  4)  ) 

S1H   =    (BSHLT(2,5)  -4.0*BSHLT  (3,4)  )    /    (BSHLT  (2  , 4)  -BSHLT  (3,4) ) 
EOH    =   BSHLT  (1,8) 

C 

c __ 

C CALCULATE  ESTIHATE  OF  BOTH  SEX  LIFE  EXPECTANCY  AT  BIRTH 

c 

c 

EOE  =  (SRB*EOH+EOF)  /  (SRB+1.) 

C 

c 

C TEST    FOR    ACCEPTABLE   LIFE   EXPECTANCY 

c 

C 

IF    (ABS  (EO-EOE)     -    0.0004)     300,300,210 

210    CONTINUE 

IF    (N-3)     220,240,210 

C 

c 

C STORE  EARAHBTERS  OF  1ST  AND  2ND  ITERATIONS 

c 

C 

220    EOI(N)    =    EOF 
EOR (N)    =    EOE 
60    TO     (230,280) ,N 
230    EOF    ■   EOF    -    (EOE-EO) 
GO  TO    290 
C 
c 

C INTERPOLATE    FOR    NEW   CORRESPONDING    FEHALE   LIFE    EXPECTANCY 

c 

C 

240    CONTINOE 

IF    (ABS(EOR(1) -EOE)     -    ABS  (EOR  (2) -EOE)  )    250,250,260 
250   I    =   2 

GO    TO    270 
260   I   =    1 
270    EOI(I)     =   EOF 

EOR  (I)    =    BSHLT  (1,8) 
280    EOF    =   EOI(1)     ♦     (EOI(2)  -EOI(1))     *     (EO-EOR(1))    /     (EOR  (2)-EOR  (1) ) 
290    COMTINOE 
C 
c 

c ERROR    CONDITION 

c _ 

C 

WRITE  (NPRNT,444) 
444    FOFHAT    (//19H   ***    BLT    ERROR    0255 

*  /61H    ***   SOBROOTINE    BLT   CANNOT   INTERPOLATE    APPROPRIATE    LIFE   TABLE 

*  /51H   ***   POSSIBLE    ERROR   IN    SOBROOTINES    BLT,    HLT,    OB    ELT      ) 
900    MPITE(NPRNT,  555)     EO,SRB,NREG 

555    FORHAT(//24H    ***    BLT   INPOT    ARGOHENTS 

*  /   9H  EO=    ,F8.2 
*/10H              SRB=    ,F6.3 

*  /11H      NREG=  ,16   ) 
DO  910  J=1,8 

DO  910  1=1,18 
910  BSHLT  (I, J)  =  0.0 
GO  TO  1000 
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C 

c 

c CALCULATE   COBBINED    Q (X)    VALUES 

c 

C 

300 


TL1    = 

100000. 

,0    +    SRB 

*    100000.0 

DO    31C 

11=1, 

,17 

TL2    = 

BSHLT(I+1,«t)     * 

SRB 

+    SBLX(I* 

D 

QX(I) 

=     (TL1- 

■TL2)    /   ' 

rL1 

TL1    = 

TI2 

QX(18) 

■    1.0 

310 

C 

c 

c CALCULATE   SEPARATION    FACTORS 

c . 

C 

SBLX1    =    BSBLT(2,4)     *   SBB    ♦    SMLX(2) 

SHLX5   =    BSMLT(3,«)     *    SRB    +    SBLX(3) 

SEPO=(SOF*100000.+SRB*SOH*100000.+  (1.-SOP)*SBLX(2) 
*+(1.-S0H)  *SRB*BSMLT(2,4)-SHLX1)/(100000.*(1.  +  SRB)-SBLX1) 

SEP1=(S1F*SHLX(2)  +SR  B*S  1H*BSMLT  (2  , «»)  +(4.-S1F)  *SBLX(3) 

*+  (4.-S1  H)  *SRB*BSHLT(3,«)  -ft.*SBLX5)  /  (SMLX1-SMLX5) 

C 

c 

C GENERATE   BOTB    SEX    LIFE    TABLE 

c 

C 

CALL    ELT     (NREG,3,1,SEP0,SEP1,QX,BSBLT) 
C 
c 

C RETURN  TO  CALLING  PROGRAB 

c 

C 

1000  RETURN 
END 
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D.       SAHPLE   OUTPUT 

1st    SET 

BOTH   SEX    LIFE   TABLE   FOR    SOUVENIR    1970 

HALE   LIFE    EXPECTANCY    AT    BIRTH    =   58.352 
FEHALE   LIFE   EXPECTANCY   AT    BIRTH    =    62.264 


ABRIDGED  LIFE   TABLE 
BOTH       SEXES 
COALE-DEMENY    SOUTH    FEGIOH 


GE 

Q(X) 

D(X) 

M(X) 

KX) 

L{X) 

S(X) 

T(X) 

E(X) 

0 

0.09254 

9254. 

.09846 

100000. 

93985. 

.89302 

6025432. 

60.25 

1 

0.04175 

3789. 

.01075 

90746. 

352525. 

.96965 

5931447. 

65.36 

5 

0.00842 

732. 

.00169 

86958. 

432958. 

.99292 

5578923. 

64.16 

10 

0.00573 

494. 

.00115 

86225. 

429892. 

.99285 

5145966. 

59.68 

15 

0.00858 

735. 

.00172 

85731. 

426818. 

.98958 

4716075. 

55.01 

20 

0.01227 

1043. 

.00247 

84996. 

422373. 

.98729 

4289257. 

50.46 

25 

0.01315 

1104. 

.00265 

83953. 

417006. 

.98583 

3866885. 

46.06 

30 

0.01521 

1260. 

.00306 

82849. 

411097. 

.98360 

3449879. 

41.64 

35 

0.01761 

1437. 

.00355 

81589. 

404355. 

.97977 

3038782. 

37.24 

40 

0.02289 

1835. 

.00463 

80152. 

396175. 

.97362 

2634428. 

32.87 

45 

0.02996 

2346. 

.00608 

78318. 

385722. 

.96351 

2238253. 

28.58 

50 

0.04323 

3284. 

.00884 

75971. 

371646. 

.94759 

1852531. 

24.38 

55 

0.06200 

4507. 

.01280 

72687. 

352168. 

.92174 

1480886. 

20.37 

60 

0.09560 

6518. 

.02008 

68180. 

324606. 

.87921 

1128718. 

16.55 

65 

0.14864 

9165. 

.03211 

61662. 

285398. 

.80783 

804113. 

13.04 

70 

0.24331 

12773. 

.05540 

52497. 

230552. 

.69504 

518715. 

9.88 

75 

0.38643 

15351. 

.09580 

39724. 

160244. 

.44391 

288163. 

7.25 

80 

1.00000 

24373. 

. 19054 

24373. 

127920. 

.0 

127920. 

5.25 
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2nd   SET 

MULTIPLE   ERROR 

***    BLT    ERROR    NO.    0252   —    INPUT    ERROR   IN  EO 

***   LIFE    EXPECTANCY   AT    BIRTH    SHOULD    BE    BETWEEN    20.0   AND   80.0. 

***    BLT   ERROR    NO.    0253   —    INPUT    ERROR    IN  SRB 

***   SEX    RATIO    AT    BIRTH    SHOULD    BE   BETWEEN  0.9    AND    1.1. 

***   BLT    ERRCP    NO.    0254    —    INPUT    ERROR    IN  NREG 

***  COALE-DEHENY    REGION    BUST    BE    1,    2,    3,  OR    4. 


***    BLT    INPUT    ARGUMENTS 
EO=  17.6U 

SRB=      0.405 
NREG=  0 

HALE   LIFE    EXPECTANCY   AT    BIRTH    =    58.352 
FEMALE    IIFE    EXPECTANCY    AT    BIRTH   =    62.264 


ABRIDGED    LIFE    TABLE 
BOTH      SEXES 
EMPIRICALLY    DERIVED 


AGE 


Q(X)  D(X)  M(X)  I(X) 


L(X) 


S(X) 


T(X) 


E(X) 


0 

0.0 

0. 

.0 

0. 

0.  .0 

1 

0.0 

0. 

.0 

0. 

0.  .0 

5 

0.0 

0. 

.0 

0. 

0.  .0 

10 

0.0 

0. 

.0 

0. 

0.  .0 

15 

0.0 

0. 

.0 

0. 

0.  .0 

20 

0.0 

0. 

.0 

0. 

0.  .0 

25 

0.0 

0. 

.0 

0. 

0.  .0 

30 

0.0 

0. 

.0 

0. 

0.  .0 

35 

0.0 

0. 

.0 

0. 

0.  .0 

40 

0.0 

0. 

.0 

0. 

0.  .0 

45 

0.0 

0. 

.0 

0. 

0.  .0 

50 

0.0 

0. 

.0 

0. 

0.  .0 

55 

0.0 

0. 

.0 

0. 

0.  .0 

60 

0.0 

0. 

.0 

0. 

0.  .0 

65 

0.0 

0. 

.0 

0. 

0.  .0 

70 

0.0 

0. 

.0 

0. 

0.  .0 

75 

0.0 

0. 

.0 

0. 

0.  .0 

80 

0.0 

0. 

.0 

0. 

0.  .0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 
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I.  DESCRIPTION      OF       PROGRAM 

A.  PURPOSE 

To   estimate   5-year    age-specific    fertility   rates   from  survey   or   census 
information   on   the   average   number   of   children  ever    born   per    woman   and  a   set   or 
pattern  of   age-specific   fertility   rates. 

B.  DATA  NEEDED 

1.  Average  number  of  children  ever  born  per  woman  for  each  5- year 
age  group  between  ages  15-19. 

2.  A  set  or  pattern  of  age-specific  fertility  rates  by  5-year  age 
groups  for  ages  15  to  49.   This  set  or  pattern  of  rates  is  usually  calcu- 
lated from  census  or  survey  information  on  children  born  during  the  pre- 
ceding year  by  age  of  mother.   (See  also  section  II. B.  COMMENTS) 

3.  In  this  technigue,  multiplying  factors  are  used  for  correcting 
observed  fertility  rates  for  errors  of  omission  and  reference  period. 
These  multiplying  factors  can  be  based  on  either  age  group  20-24  or  25-29. 
Although  corrections  based  on  both  age  groups  are  calculated  by  this  sub- 
routine, only  one  corrected  set  of  fertility  rates  is  transferred  back 

to  the  calling  program  through  the  argument  string  of  the  CALL  state- 
ment.  Therefore  it  is  necessary  to  indicate  which  set  of  corrected 
fertility  rates  are  to  be  transferred  back  to  the  calling  program. 

4.  A  code  indicating  whether  the  data  on  births  during  the  preceding 
year  is  tabulated  by  age  of  woman  at  the  time  of  the  survey  or  at  the  time 
the  birth  occurred. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  method,  which  was  devised  by  William  Brass,  can  be  used  for 
estimating  age-specific  fertility  rates  when  information  on  registered 
births  by  age  of  mother  is  not  available  or  is  not  reliable.   The 
methodology  uses  the  average  number  of  children  ever  born  per  woman 
by  age  of  the  mother,  usually  reported  in  censuses  and/or  surveys,  and 
the  pattern  of  age-specific  fertility  rates  pertaining  to  the  population- 
This  pattern  of  fertility  rates  is  usually  obtained  from  the  census 
and/or  survey  information  on  children  born  during  the  preceding  year. 

The  methodology  assumes  that  the  average  number  of  children  ever  born 
by  age  of  mother  given  in  the  survey  or  census  accurately  represents  the 
cumulative  age-specific  fertility  rates  of  the  female  population  up  to  age 
29.   In  addition,  this  method  also  assumes  that  the  pattern  of  age-specific 
fertility  rates  determined  from  the  survey  is  the  actual  pattern  of  the 
age-specific  fertility  rates  in  the  population.   The  method  cannot  be  used 
with  confidence  when 
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where 


rb   is  the  average  number  of  children  ever  born  to  women  in 
age  group  (x,x+4) . 
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From  the  age-specific  fertility  rate  pattern,  the  cumulative  fertility 
pattern  up  to  ages  20, 25, ...,50  can  be  calculated  as: 


CF    =   £    P0. 

5   3=15,5  5  J 


where 

P0      is   the   pattern  of  the   age-specific   fertility   rate  for   women 
5     j 

in   age  group    (j,j+*»)  ;    and 

CF  is   the   cumulative   fertility   pattern  up   to   age   x+5. 

The  method  calculates    factors  for  adjusting   the   cumulative  fertility 
pattern    (CFx+5 )    to   the   level   of   fertility   implied   by  the   average  number 
of   children  ever   born    (   b   )  . 

J      X 

These  factors  are  calculated  with  the  help  of  an  age-specific 
fertility  rate  model  distribution.   The  model  uses  a  function  with 
a  fixed  shape  but  with  the  possibility  of  determining  the  mean  for 
each  particular  case.   This  function  is 


f  (x)  =  C  •  (x  -  s)  •  (s  +  33  -  x)2       for  s  <  x  <  s  +  33     (1 ) 


where 

f  (x)  is  the  fertility  rate  of  women  aged  x  years,  s  is  the 
starting  age  of  the  reproductive  period  and  C  is  a  constant.   The 
function  f (x)  is  taken  as  zero  when  x  is  outside  of  the  age  interval 
s  to  s+33. 

The  starting  age  of  childbearing  is  calculated  as 

s  =  m  -  13.2 

where 

m   is   the   mean  age   of   childbearing. 

By   integrating   the  function    (1)     from   s   to  a   particular  age   t,   the 
cumulative   fertility    up   to   that    age   can   be  obtained.      The   integral   is 

F(t)  =    I       f (x)   dx 


i 

j-   (s  +33  -  x)4  -11    (s+33  -  x)3l 


Therefore   an   annual    5-ryear    age-specific  fertility   rate  for   the   age 
group   i,i+5    will   be 


.f.  =  -1-  [F(i+5)  -  F(i)] 
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Similarly,  by  integrating  F(x)  between  two  particular  ages  and  dividing  by 
the  aqe  interval,  the  mean  number  of  children  ever  born  per  woman  in  the 
age  interval  is  found. 


1    f1 

KC.  =  -J-'   I 
n  i    n   j. 

_  jl  r_u 

n   |_  * 


i+n 

F(x)  dx 
i 


(s  +  33  -  x)A   -  -Jq-   (s  +  33  -  x)5 


i+n 


Adjustment  factors  for  each  age  group  can  then  be  calculated  as 

MC  -  F(x) 
_2 3£ 


5Kx  -     _f 
5  x 


and   the   adjusted   average   cumulative    fertility   will    equal 


rACF     =  CF     +  CK    •  rP0 
5      x  x       5  x     5     x 


Finally,  the  age-specific  fertility  rate  pattern  can  be  corrected 
by  either  of  the  two  following  options 


Option    I: 

-P0    • 
5  'x 

5b20 
5ACF20 

Option  II: 

/*'- 

_P0    • 
5     x 

5b25 
5ACF25 

where 


Jl      is   the  corrected   age-specific   fertility   rate   for   age 

group    x,x+4    according  to   Option    I; 

9      is   the   corrected   age-specific   fertility   rate    for    age 

group   x,x+4    according  to  Option    II;    and 

rb      and    rACF      are   as   defined   earlier 
5  x  5        x 
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B.       COMMENTS 

The  set  or  pattern  of  age-specific  fertility  rates  given  as  input 
usually  comes  from  the  same  census  or  survey  as  the  data  on  children  ever  born. 
However,  this  is  not  necessary.   The  set  or  pattern  of  rates  can  be  from  other 
surveys  or  censuses  or  from  registration  data  as  long  as  the  user  believes 
that  they  represent  the  actual  pattern  of  fertility.  , 
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The   method   assumes   that    fertility   has  been  constant   during   the   past    10-15 
years.      The  method  also  assumes  that  both  the  fertility   pattern  given  by   the 
number   of   births  per   woman   for  the   preceding  year  and   the   level  of   fertility 
per   woman  under  age   30  given   by   the  number  of  children  ever   born  are  accurate. 
In  censuses   and   surveys   where  there   is    possibly    extensive  age  misreporting,    the 
fertility   pattern  and  children  ever    born  per  woman   could  be  biased  and  hence 
the   results  of   this  method   would   be   guestionable. 


III.M    AIN      PBOGBAH 

A.   REQUIREMENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  reguired  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  BRASF(KASFR,KAGE,  F,  P,  ASFR) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  variable  names  F,  P,  and  ASFR  in  the  argument  string  are 
all  arrays.  The  following  DIMENSION  statement  must  be  included  in  any  main  pro- 
gram using  this  subroutine. 

DIMENSION  F  (7)  ,P  (7)  ,ASFR  (7) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 
None 

2.  Library  functions 
None 
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3.   Card  Diagram  of  main  program  and  subroutines. 


/  / 

/    CARDS  INDICATING  END  OF  DECK    / 

/  7 1 

/  INPUT  DATA  /  | 

/  7 1     i    / 

/     COMPUTER  CONTROL  CARDS         /  |   |  / 

/  7 1   I   / 

/  SUBROUTINE  BRASF       /  |   |  / 

/  7 1     i    / 

/  MAIN  PROGRAM  /  |   |  / 

/  7 1     i    / 

/       COMPUTER  CONTROL  CARDS       /  |   |  / 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
subroutine  package  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV.  B.  See  example,  section  V.C. 


Variable 
Card  Columns   Name    Definition 


1 

2-53 

54-80 

1 


NXT 


NWRIT 


KASFR 


Blank 

Label  used  to  identify  the  output 

Blank 


The  code  indicating  if  there  is 

another  data  set  following  this  one. 

A    zero  punched   in   column    1    indicates 

this   is  the   last  set  of   data.      Any 

other  number   punched   in   column    1    indicates 

another   set   of   data   follows   this   one. 

The   code   indicating    if   the   results   of 
the   subroutine   are    to   be   printed   out. 
A   zero  punched   in  column   2   indicates  that 
the   results   are   not    to   be   printed   out.      If 
any   ether   number   is    punched   in  column  2, 
the  results   will   be    printed   out. 

The   code  which  indicates  whether   the 
age-specific  fertility    rates  based  on 
the  correction   factor  for  age  group 
20-24  or  for   age  group   25-29   are   trans- 
ferred back    to   the  calling   program.      If  a 
1    is   punched  in  column   3,    the   fertility 
rates  based   on  the  correction  factor   for 
age   group  20-24  are   transferred   back. 
If  a    2  is  punched   in  column   3, the   fertility 
rates  based   on   the   correction  factor   for 
age   group  25-29  are   transferred   back. 
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4         1KAGE 


5-80 


1-7 


8-14 


43-49 


50-80 


The   code   indicating   whether   the   data 
on  births  during   the    preceding   year 
are  tabulated   by   age   of    woman  at   the 
time   of   the    survey   or  by   age  of   woman 
at   the  time   of   the   birth.      &   1    punched 
in   column   4    indicates  that    the   age   tab- 
ulated was   at   the  time  of  the  survey. 
A   2   punched   in   column  4    indicates  that 
the   age   tabulated  was  at   the   time  of 
the   birth. 

Blank 


Average  number   of  births  in   the   pre- 
ceding year    per   woman  in  age  group 
15-19. 

Average   number  of   births  in  the   pre- 
ceding year   per   woman  in  age  group 
20-24 


Average   number  of   births  in   the   pre- 
ceding  year    per   woman  in  age  group 
45-49. 

Blank 


Seven  columns  are  allowed  for  each  F  value.   The 
values  should  be  entered  so  that  the  decimal  points 
are  in  columns  3,10,17,24,31,38  and  45. 


1-7 

8-14 

43-49 
50-80 


I 

| Average   number  of   children   ever   born 

I  per   woman   in  age   group    15-19 

I 

I  Aver  age  number  of  children  ever  born 

I  per  woman  in  age  group  20-24 


| Average  number  of  children  ever  born 

| per  woman  in  age  group  45-49. 

I 

I  Blank 


Seven  columns  are  allowed   for  each   P   value.      The   values 
should   be   entered   so   that   the   decimal  points   are   in 
columns   3,10,17,24,31,38   and    45. 


IV.     SUBROUTINE 

A.   SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 


SUBROUTINE  BRASF  (KASFR, KAGE, F, P,NWRIT, ASFR) 
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B.   DESCRIPTION  OF  ARGUMENTS 

Name  How   Obtained      Definition 


KASFR 


KAGE 


NHRIT 


ASFR 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 


Indicates  which  set  of 
fertility  rates  will  be 
out  from  this  subroutin 
then  the  age-specific  f 
based  on  the  correction 
aqe  group  20-24  will  be 
If  KASFR  is  2,  then  the 
fertility  rates  based  o 
factor  for  age  group  25 
transferred.   If  KASFR 
value,  the  subroutine  w 
error  message  number  02 
the  calling  program- 
Indicates  whether  birth 
ceding  year  were  tabula 
the  age  of  the  mother  a 
survey  or  at  the  time  o 
If  KAGE  eguals  1,  the  d 
according  to  age  at  the 
KAGE  eguals  2,  the  data 
according  to  age  at  the 
If  KAGE  equals  any  othe 
routine  will  write  out 
number  0282  and  return 
program. 

Average  number  of  birth 
ceding  year  per  woman  f 
age  group  between  ages 
seven  values,  one  for  e 
age  group  (i.e.,  15-19, 
49) .  If  any  of  the  val 
or  greater  than  0.5,  th 
will  write  out  error  me 
and  return  to  the  calli 
that  occur  to  women  und 
combined  with  births  to 
Births  that  occur  to  wo 
should  be  combined  with 
aged  45-49. 


age- specif ic 

transferred 
e.   If  KASFR=1, 
ertility  rates 

factor  for 

transferred. 

age-specific 
n  the  correction 

29   will   be 
has    any  other 
ill   print  out 
81   and  return  to 


s  during    the    pre- 
ted   according  to 
t   the   time   of   the 
f   the   birth, 
ata   were   tabulated 
survey   date;    if 
were  tabulated 
date  of   the   birth, 
r   value,    the  sub- 
error  message 
to   the   calling 


s  during   the    pre- 
or   each  5-year 
15-49.      There  are 
ach  5- year 

20-24,...,    45- 
ues   are  negative 
en  the  subroutine 
ssage   number    0283 
ng   program.      Births 
er   age    15  should    be 

women   aged    15-19. 
men   over    age   4  9 

births   to   women 


Average  number  of  children  ever  born  per 
woman  by  5-year  age  groups  between 
ages  of  15-49.   There  are  seven  values, 
one  for  each  5-year  age  group  (i.e., 
15-19,  20-24,  25-29,...,  45-49).   If  any 
of  the  values  are  negative  or  greater 
than  10,  then  the  subroutine  will  write 
out  error  message  number  0284  and  return 
to  the  calling  program. 

Code  indicating  whether  the  results 
of  the  subroutine  should  be  printed 
out.   NWRIT=0  indicates  the  results 
of  the  subroutine  should  not  be 
written  out.   If  NwRIT  eguals  any 
other  number  the  results  of  the  sub- 
routine will  be  written  out. 

The  adjusted   age-specific   fertility   rates 
as   calculated   by   the    subroutine. 
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C.       EEBOR    MESSAGES 

0281  ***    BRASF    NO.    0281    —    INPUT    EEBOR    IN   KASFR, 

***    THE    KODE    FOR    THE    CORRECTION    FACTOR    MOST    BE    EITHER    1 
FOR    AGE    20-24    OR    2    FOR    AGE    25-29. 

0282  ***    BRASF    EBBOR    NO.    0282    —    INPUT    EBBOR    IN    KAGE, 

***  THE  SELECTOR  CODE  FOR  AGE  OF  FEMALES  GIVING  BIRTH 
MOST  BE  1  FOB  THE  TIME  OF  THE  SUEVEY  OB  2  FOR  THE 
TIME   OF    BIBTH 

0283  ***    BRASF    EBROB    NO.    0283    —    INPUT   EBBOB    IN    B, 
***    AT    LEAST    ONE    VALOE    FOR   THE    AVEBAGE    NUMBEfi    OF 

BIRIriS    IS    NEGATIVE    OR    GREATER    THAN    .5 

0284  ***    BRASF    ERROR    NO.    0284    —    INPUT    ERROR    IN    P 

***    AT    LEAST   ONE    ELEMENT    OF   THE    NUMBER    OF    CHILDREN    EVEB 
BORN    IS    LESS    THAN    ZERO    CB   GREATER    THAN    TEN. 

0285  ***    BRASF    ERROR    NO.     0285 

***    RATIO    B     (1)/B(2)     IS    BEYOND    RANGE    0.036    TO    0.939 
***    RATIO=X.XXX 

V.       PROGRAM       AND      RESULTS 

A-       COMPUTEB    LISTING    FOB    MAIN    PROGRAM 

c 

c 

C MAIN    PROGRAM    FOR    BBASF 

c 

c 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  FOUR  BEAD 

C STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRS1  BEAD  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C THE    SECOND    READ    STATEMENT    USES    ONE    DATA    CARD. 

C THE    PURPOSE   OF    THE    SECOND    READ   STATEMENT    IS   TO    READ     (1)THE 

C INDICATOR  (NXT)     USED    TO    SIGNAL    IF    THERE   IS    ANOTHER    DATA    SET 

C FOLLOWING   THIS    ONE,     (2) THE   WRITE    INDICATOR (N WRIT)     WHICH 

C DETERMINES    WHETHER    THE    RESULTS    OF    THE    SUBBODTINE    BRASF    SHOULD      BE 

C WRITTEN    OUT,     (3)  A    CODE     (KASFR)     WHICH    DETERMINES    WHETHEB    THE 

C AGE    SPECIFIC    FERTILITY    BATES    BASED   ON    THE    P/F    BATIO    FOR    AGE    GBOUP 

C 20-24   OR    FOR    AGE   GROUP    25-29    ABE    TRANSFERRED    BACK   TO   THE 

C CALLING    PBOGBABM,     AND     (4) A    SELECTOB(KAGE)     WHICH    INDICATES 

C WHETHER    THE    WOMEN    GIVING    BIRTH    DURING    THE    LAST    YEAR    REPORTED 

C THEIR    AGE    AS    OF    THE    TIME    OF    THE    SURVEY    OR    AS    OF    THE    TIME    OF 

C THE    BIRTH. 

C NXT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  IN  COLUMN  1  INDICATES 

c THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER  NUMBER  IN  COLUMN  1 

c INDICATES  THERE  IS  ANOTHER  SET  OF  DATA  FOLLOWING  THIS  ONE. 

C NWRIT   IS  IN  COLUMN  2  OF  THIS  CARD.   A  ZERO  IN  COLUMN  2  INDICATES 

c THAT  THE  RESULTS  OF  THE  SUBROUTINE  BBASF  ABE  NOT  TO  BE 

c PBINTED  OUT.   FOB  ANY  OTHEB  NUMBER  IN  COLUMN  2  THE  RESULTS 

C OF  1HE  SUBROUTINE  BRASF  WILL  BE  PRINTED  OUT. 

C KASFR  IS  IN  COLUMN  3  OF  THIS  CARD.  A  1  INDICATES  THAT  THE 

C AGE-SPECIFIC  FERTILITY  RATES  BASED  ON  THE  P/F  RATIO  FOR  AGE 

C GROUP  20-24  ARE  TRANSFERRED  BACK  TO  THE  CALLING  PROGRAM 

c THROUGH  THE  ARGUMENT  STRING.  A  2  IN  COLUMN  3  INDICATES  THAT 

c THE  BATES  BASED  ON  THE  P/F  RATIO  FOR  AGE  GROUP  25-29  ABE 

c TBANSFEBBED  BACK.  IN  EITHER  CASE,  BOTH  SETS  OF  AGE-SPECIFIC 

c FEBTILITY  BATES  ARE  CALCULATED  AND  PRINTED  OUT  IF  NWRIT  IS 

C NOT  EQUAL  TO  ZERO. 

C KAGE   IS  IN  COIUMN  4  OF  THIS  CARD.   A  1  IN  COLUMN  4  INDICATES 

c THAT  THE  AGE  REPORTED  WAS  AT  THE  TIME  OF  THE  SURVEY.   A  2 

c IN  COLUMN  4  INDICATES  THAT  THE  AGE  REPORTED  WAS  AT  THE  TIME 

c 0F  BIRTH. 

C 
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c THE    PURPOSE   OF    THE    THIED    BEAD   STATEMENT    IS    TO    READ   IN    THE    AVERAGE 

C NUMBER    OF    BIRTHS (F)     IN    THE    PRECEDING    YEAR    OCURRING   TO    FEMALES 

C AGE    15-49    BY    FIVE   YEAR    AGE    GROOPS. 

c F       VALUES    ARE    ON    ONE    CARD-       FOR    EACH    F    VALUE    SEVEN    COLUMNS    ARE 

C ALLOWED    STARTING    ilTH   THE    FIRST    SEVEN    COLUMNS    OF    THE   CARD. 

c E&CH    VALUE    SHOULD    BE   ENTERED    SO    THAT    THE   DECIMAL    POINTS 

C WILL    BE    IN    COLUMNS    3,    10,     ...,    38,     AND    45. 

C 

c THE    PURPOSE   OF    THE    FOURTH    READ   STATEMENT    IS    TO    READ   IN    THE 

C AVERAGE    NUMBER    OF    CHILDREN    EVER    BORN  (P)     IN    FIVE    YEAR    AGE    GROUPS 

c FOR    FEMALES    15-49. 

c p   VALUES  ARE  CONTAINED  ON  ONE  CARD.   FOR  EACH  P  VALUE  SEVEN 

C COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  SEVEN  COLUMNS 

C OF  THE  CARD.   EACH  VALUE  SHOULD  BE  ENTERED  SO  THAT  THE 

C DECIMAL  POINT  WILL  BE  IN  COLUMNS  3,  10,  ,  38,  AND  45. 

c 

c r~. 

DIMENSION  F(7)  ,E(7)  ,  ASFR  (7) 

NPBNT  =  15 

NREAD  =  1 

10  READ(NREAD,  11) 

11  FORMAT(1X,52H  ) 
READ  (NREAD, 22)     NXT ,NWRIT ,KASFR,K AGE 

22    FORMAT  (411)  & 

READ(NREAD,33)     (F  (I)  ,1=1,7) 
33    FORMAT  (7F7.  3) 

READ  (NREAD,  33)      (P  (I)  ,1  =  1,7) 

WRITE  (NPRNT,44) 
44    FORMAT(1H1) 

WRITE(NPRNT,11)  $ 

CALL    BRASF (KASFR, KAGE,F, P, NWRIT, ASFR) 

IF     (NXT)     10,20,10 
20    CONTINUE 

STOP 

END 


B.       COMPUTER    LISTING    FOR    SUBROUTINE 

SUBROUTINE    BRASF  (KASFR ,KAG E,B, P, NWRIT, ASFR) 

c 

c , 

C PROGRAM    NO.     0280 

c 

C KASFR,    KAGE,    F,    AND    P    ARE    INPUT    ARGUMENTS. 

C ASFR    IS    AN   OUPUT    ARGUMENT 

C KASFR      DETERMINES    WHETHER    THE    AGE-SPECIFIC    FERTILITY    RATES   BASED 

c 0N    THE    p/F    BATIO    FOR   AGE   GROUP    20-24   OR    FOR    AGE    GROUP 

c 25-29    ARE   TRANSFERRED   BACK    TO    THE   CALLING    PROGRAM. 

C KAGE    INDICATES    WHETHER    WOMEN    GIVING    BIRTH    DURING    THE    LAST    YEAR 

C REPORTED    THEIR    AGE    AS   OF    THE   TIME  OP    THE   SURVEY    OR    AS   OF 

c THE    TIHJE    0F    THE    bveNT. 

C B      IS  THE    AVERAGE    NUMBER    OF   BIRTHS    IN    THE    PRECEDING    YEAR   OCURRING 

c T0    FEMALES    AGES    15-49    BY    FIVE    YEAR    AGE    GROUPS. 

c p      IS  THE    AVERAGE    NUMBER    OF    CHILDREN    EVER    BORN    IN    FIVE    YEAR    AGE 

C GROUPS    FOR    FEMALES    15-49. 

C NWRIT  IS    THE  WRITE   INDICATOR   WHICH    DETERMINES    WHETHER    THE 

C RESULTS    OF    THIS    SUBROUTINE    WILL   BE    PRINTED   OUT. 

C ASFR  ARE    THE    AGE-SPECIFIC    FETILITY    RATES    FOR    FIVE    YEAR    AGE 

C GROUPS    FOB    FEMALES    AGE    15-49. 

c 

c 

DIMENSION    B(7)#P  (7)  ,ASFR  (7) 

DIMENSION    FCUM{8)  ,FMODL  (7)  ,FAVG  (7)  ,WK  (7)  ,PHI  (7)  , SIGMA  (8)  , 
*    F(7)  ,PIFI(7)#ASFRX  (7  ,2)  ,B1B2  (8)  ,N  AGE  (2,7) 

NPRNT=    15 
C 
c 

C VERIFY    INPUT    ARGUMENT    VALUES 

C 

C 

NERR=    0 

IF  (KASFR-1)  11C,120,100 
100  CONTINUE 

IF  (KASFR-2)  110,120,110 
110  WRITE  (NPRNT,  111) 
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111    FORHAT     (/,1X,48H***    BRASF    ERROR    NO.    0281    —    INPUT    ERROR    IN    KASFR, 
*/#1X,89H***    THE    CODE    FOR   THE   CORRECTION   FACTOR    HOST    BE   EITHER    1    FO 
*R    AGE    20-24   OR    2    FOR    AGE    25-29.) 
NERR=    1 
120   CONTINUE 

IF     (KAGE-1)     140,150,130 
130   CONTINUE 

IF    (KAGE-2)     140,150,140 
140    WRITE     (NPRNT,222) 

222    FORHAT     (/,1X,47H***    BRASF   ERROR   NO.    0282   --   INPUT    ERROR   IN    KAGE, 
*/, 1X,118H***    THE    SELECTOR    CODE    FOR    AGE   OF    FEHALES    GIVING    BIRTH   HUS 
*T    BE    1    FOR    THE    TIHE   OF   THE    SURVEY    OR    2    FOR    THE  TIHE   OF    BIRTH.) 
NERR=    1 
150   DO    170    1=1,7 

IF     (B(I))     160,170,155 
155    CONTINUE 

IF    (B(I)    -    0.5)     170,170,160 
160    WRITE     <NPRNT,333) 
333    FORMAT    (/,1X,44H***    BRASF   ERROR   NO.    0283   —    INPUT    ERROR   IN    B, 

V,1X,86H***    AT    LEAST   ONE    VALUE   FOR   THE    AVERAGE   NUMBER    OF    BIRTHS    IS 
*    NEGATIVE   OR    GREATER    THEN    .5) 
NEBR=    1 
GO    TO    180 
170    CONTINUE 
180  DO    200    1=1,7 

IF     (P(I))     190,200,185 
185    CONTINUE 

IF    (P(I)    -    10.0)    200,200,190 
190    WRITE     (NPRNT,444) 
444   FORMAT     (/,1X,44H***    BRASE    ERROR   NO.    0284    —   INPUT    ERROR    IN    P 

*/,lX,99H***    AT    IEAST    ONE    ELEMENT    OF    THE    NUMBER   OF    CHILDREN    EVER    BO 
*RN    IS  LESS    THAN    ZERO    OR    GREATER    THAN    TEN.       ) 
NERR=    1 
GO    TO    210 
200   CONTINUE 
210    CONTINUE 

IF    (NERR)     220,220,900 
220   DO    230    1=1,7 


J=    10    +    1*5 

NAGE(1,I)=    J 
230    NAGE(2,I)=   J    +    4 
C 
c 

C CALCULATE    S,    THE    START    OF    THE    REPRODUCTIVE   PERIOD. 

c _ 

C 

B1B2(1)=    0.036 

B1B2(2)=    0.113 

B1B2  (3)=    0.213 

B1B2  (4)=    0.330 

B1B2(5)=    0.460 

B1B2(6)=    0.605 

B1B2  (7)=    0.764 

B1B2(8)=    0.939 

AT=    10   -5*KAGE 

AT   =    AT   /    10. 0 

DF=    B(1)    /    B(2) 

DO    260    1=1,8 

AF=    I 

IF    (DF-B1B2(I))     240,250,260 
240    CONTINUE 

IF    (1-1)     270,270,245 
245   AF=    AF- ((B1B2(I)-DF)/(B1B2(I) -B1B2  (1-1))) 
250  S=    20.0-AT-AF 

GO   TO    300 
260    CONTINUE 
270   WRITE     (NPRNT,555) DF 
555  FORMAT     (/,1X,25H***   BfiASF    ERROR  NO.    0285 

*  /51H   ***    RATIO    B(1)/B(2)     IS   BEYOND    RANGE    0.036   TO    0.939 

*  /12H    ***    RATIO=    ,F8.4      ) 
GO   TO    900 


BRASF        103 


C 

c 

c CALCULATE   CUMULATIVE    FERTILITY    TO    AGE    A,     BY    INTEGRATING   THE 

c FORMULA  B(A)=C*(A-S)  *(S+33-A)  **2 

c 

C 

c . 

c THE   FOBMUIA    AFTER    INTEGRATION    IS 

c F(A)=C*(1/4*(S-A+33)**4    -    11*(S-A  +  33)**3    -    1/4*33**4    +    11*33**3) 

c .. 

C 

300    SA33=    S    +  AT    +18.0 

DO    310    1=2,7 

SA33=  SA33  -5.0 
310  FCUM(I)  =  0.25  *SA33**4  -1 1 -0*SA33**3  +98826.75 

FCUM  (1)=0.0 

FCUM (8)  =  98826.75 

C 

c 

c C    IS    A    CONSTANT    FACTOR    WHICH    ADJUSTS    THE    F (A)     -    FOFA    -    ARRAY    SO 

C THAT    IT    ADDS    TO    1. 

c _ 

C 

C  =    1./98826.75 

DO    320    1=1,7 
320    FMODL  (I)     =     (FCUB(I+1)     -    FCUM(I))*C 
C 
c 

c BY    INTEGRATING    F  (A)     ABOVE,    HE   OBTAIN    A   NEW    INTEGRAL,    WHICH 

c DIVIDED    BY    THE    LENGTH    OF    THE    INTERVAL,    IN    THIS   CASE    5,    IS    THE 

C AVERAGE    NUMBER   OF   CHILDREN   EVER    BORN    PER    WOMAN    IN    THE    GROUP. 

C FAVG5,    I.E.    F(I),    =   THE    INTEGRAL    OF    FMODL,    I.E.    F(A). 

c — 

C 

c _ 

C THE   FORMUIA    AFTER    INTEGRATION    IS= 

C F(I)=C(-1/20(S+33-V)  **5+11/4(S+33-V)**4+98826.75(V)  + 

C 1/20(S  +  33-U)  **5-11/4(S+33-U)**4-98826.75  (U)  . 

c 

C 

SA33X=    S    +33.0 

SA28=    S   +18.0 

DO    380   1=1 ,7 

IF     (1-1)    330,330,350 
330    CONTINUE 

IF  (S-15. 0)  350,350,340 
340  SA33=  33.0 

WIDTH=    20.0    -S 

GO    TO    360 
350    A=    NAGE(1,I) 

SA33=    SA33X    -A 

WIDTH=  5.0 
360  SA28=  SA28  -5.0 

IF    (SA28)     370,380,380 
370   SA28=    0.0 

380   FAVG(I)=     (0.05*(SA33**5-SA28**5)     -2.  75*  (SA33**4-SA28**4)  )  *C    +WIDTH 
C 
c „ 

C CALCULATE  WEIGHTS,  WK,  USED  IN  ADJUSTING  FERTILITY  RATES. 

C 

C 

PHI  (1)=0.0 

WK(1)  =  FAVG(1)/FHODL(1) 

DO  410  1=2,7 

PHI  (I)  =  FMODL (1-1) *5.0  ♦  PHI (1-1) 

IF    (FMODL(I))     390,390,400 
390    BK(I)=   5.0 

GO    TO      410 
400    WK(I)=    (FAVG(I)-PHI(I)  )     /    FMODL  (I) 
410    CONTINUE 
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C 

c 

c SIGMA=  CUMULATIVE  FERTILITY  AT  THE  BEGINNING  OF  THE  INTERVAL. 

C F=  CUMULATIVE  FERTILITY  FOR  THE  MEAN  OF  THE  INTERVAL. 

C PIFI=  THE  RATIO  OF  CHILDREN  EVER  BORN  TO  CUMULATIVE  FERTILITY. 


C 


SIGMA  (1)=    0.0 
DO    420    1=1,7 

SIGMA(I+1)  =    SIGMA(I)     +B(I)*5.0 
F  (I)  =SIGMA  (I)  +B  (I)  *WK  (I) 
420   PIFI  (I)=P(I)/F(I) 


C 


C CALCULATE  ADJUSTED  AGE  SPECIFIC  FERTILITY  RATES,  BATES  ADJUSTED 

C BY  THE  RATIO  OF  P2/F2,  AND  RATES  ADJUSTED  BY  RATIO  P3/F3. 


DO  430  1=1,7 

ASFRX(I,1)=  B(I)  *  PIFI(2) 
ASFRX(I,2)=  B(I)  *  PIFI(3) 
430  ASFR(I)=  ASFRX(I,KASFR) 


C 


C WRITE  SECTION 

c 

C 

WRITE     (NPRNT,666) 
666    FORMAT    (/, 1 X, 35HBRASS    TECHNIQUE   FERTILITY    ESTIMATES 

*  /12X,55HBASED  ON    AVERAGE    NUMBER    OF    BIRTHS    DURING    PRECEDING   YEAR 

*  /    18X,40HAND    AVERAGE    NUMBER  OF   CHILDREN  EVER    BORN    ) 
WRITE     (NPRNT,777) 

777    FORMAT    (//64X, 21HADJ0STED    AGE-SPECIFIC 
*/15X, 10HUNADJUSTED,45X,9HFERTILITY 
*/14X,35HAGE-SPECIFIC      CHILDREN         CUMULATIVE 
*/16X,69HFERTILITY         EVER    BORN         FERTILITY  P/F  BASED   ON 

*  BASED    ON 

*/19X,3H(B)  ,9X,3H(P)  ,9X,3H(F)  ,7X,  6HRATIOS,5X,2  2HP  (2)/F  (2)  P(3)/F 

*(3)     ) 
WRITE     (NPRNT,888)  (  (NAGE  (I,  J)  ,1=1 ,  2)  ,B  (J)  ,P(J)  ,F(J)  ,  PIFI  (J)  , 

*  (ASFRX(J,I)  ,1=1,2)  ,J=1,7) 

888  FORMAT  (7 (/5X,I2, 1H-,I2,  1X,6F12. 4)  //86H  NOTE  THAT  FOR  ALL  AGE  GRO 
♦UPS  ESTIMATED  CUMULATIVE  FERTILITY  IS  DERIVED  FROM  E(1)/B(2)   ) 
GO  TO  1000 


C 

c 

C ERROR=   PRINT    INPUT,    ZERO    OUTPUT 

c 

C 

900    WRITE     (NPRNT,999)     KASFR,KAGE, B, P 

999    FORMAT  (/27H  BRASF    INPUT    ARGUMENTS 

*  /12H  KASFR=    ,16 

*  /11H  KAGE=    ,16 

*  /    8H  B=    ,7F8.4 

*  /    8H  P=    ,7F8.4) 
DO    910  1=1,7 

910    ASFR(I)=    0.0 


C RETURN    TO    CALLING   PROGRAM 

c 

C 
1000   RETURN 
END 
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I.  DESCRIPTION      OF       PROGRAM 

A.  PURPOSE 

To  estimate  the  level  of  infant  and  child  mortality,  based  on  tabulations 
of  the  averaqe  number  of  children  ever  born  and  the  averaqe  number  of  children 
surviving,  by  aqe  of  mother. 

B.  DATA  HEEDED 

1.  Averaqe  number  of  children  ever  born  per  woman  for  each  5-year 
aqe  qroup  between  aqes  15-49  (i.e.,  15- 19, 20-24,. .., 45-49) . 

2.  Averaqe  number  of  survivinq  children  per  woman  for  each  5-year  aqe 
qroup  between  aqes  15-49. 

3.  In  this  technique,  multiplyinq  factors  are  used  for  convertinq  the 
proportion  of  children  ever  born  who  are  still  survivinq  into  survival  rates 
from  birth  up  to  a  particular  aqe  x.   The  factors  necessary  in  each 
particular  case  are  from  a  table,  based  on  the  averaqe  number  of 

children  ever  born  for  aqe  groups  15-19  and  20-24  and  on  the  mean  aqe  of 
the  fertility  schedule.   Hence,  if  available,  the  mean  aqe  of  the  fertility 
schedule  should  be  qiven.   If  the  mean  aqe  of  the  fertility  schedule  is  not 
known,  a  code  indicating  this  must  be  qiven.   (See  options  1  and  2  in 
section  II. A  below.) 

4.  For  each  survival  rate  from  birth  to  aqe  x,  the  Coale-Demeny  model 
life  table  with  the  same  survival  rate  is  computed  and  the  life  expectancy  at 
birth  of  that  life  table  is  qiven  as  output.   Therefore,  a  model  life 

table  reqion  must  be  qiven. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  subroutine  is  based  on  the  method  developed  by  William  Brass.   When- 
ever a  census  or  survey  carries  a  question  on  children  ever  born  and  children 
surviving,  an  estimate  of  child  mortality  can  be  made.   For  each  5-year  aqe 
qroup  of  females  in  childbearinq  aqes,  the  complement  of  the  ratio  of 
survivinq  children  to  children  ever  born  is  the  proportion  of  children  who 
have  died. 


Qn  =  1 
x  0 


5By 


where 

5SB  are  the  surviving  children  reported  by  mothers  aqe  y,y+4; 

5B  are  the  children  ever  born  reported  by  mothers  y,y+4;  and 

0  is  the  proportion  not  survivinq  from  birth  up  to  an  aqe  x. 

Dnder  model  conditions,  the  proportion  of  non-survivinq  children 
reported  by  mothers  in  the  aqe  qroups  15-19,  20-24,  25-29,  30-34,  35-39,  40-44, 
and  45-49,  can  be  used  to  approximate  the  probability  of  children  dyinq 
before  the  1st,  2nd,  3rd,  5th,  10th,  15th,  and  20th  birthday  respectively. 
That  is,  the  proportions  of  non-survivors  can  be  used  for  estimatinq  the 

q   of  a  life  table.   Brass  has  provided  factors  for  obtaininq  such  q   values. 

x  o  3      x^o 
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For  this  purpose  the  table  provided  below  gives  the  factors  for  transform- 

Q  into   q  .   The  factors  are  obtained  by  either  of  two  options: 
x  o       x  o 

Option  1:   mean  aqe  of  fertility  schedule  (m)  is  qiven 


The  factors  for  the  aqe  qroups  15-19,  20-24  and  25-29  are  obtained  by  inter- 
polatinq  the  table  presented  below  accordinq  to  the  particular  value  of 


1^ 

5B20 


The  factors  for  the  remaininq_aqe  qroups  are  obtained  from  the  same  table,  but 
by  interpolatinq  hetween  two  m  values  in  the  table  according  to  the  particular 
value  of  the  mean  aqe  of  the  fertility  schedule  pertaininq  to  the  population. 

Option  2:   mean  aqe  of  the  fertility  schedule  is  not  qiven 


For  all  aqe  qroups,  the  factors  are  obtained  by  interpolatinq  in  the  table 
for  the  actual  value  of  K. 

For  both  options,  the  interpolation  qives  a  set  of  correction  factors  for 
each  particular  xqQ  such  that 


'   =   °"'  " 


cq0   xQ0  '  xf  0 


where 

f   is  the  value  interpolated  from  the  table  for  the  particular  age  z. 

By  usinq  the   q   values,  a  set  of  ^     values  can  be  obtained  for 
x  =  1,2,3,5,10,15,20.   For  each  ^  value,  a  Coale-Demeny  model  life  table 
with  the  same  1   value  is  generated.   The  life  expectancy  at  birth  for  each 


of  these  life  tables  is  qiven  as  output. 
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Table  of  Multiplying  Factors  for  Estimating  the  Proportion  of  Children  Born  Alive 
Who  Die  by  Aqe  x  --  ^j0  —  From  the  Proportion  Dead  Amonq  Children  Ever  Born 
Reported  by  Women  Classified  in  5-year  Aqe  Intervals 


Mortality   Exact  limits  Multiplying  factors  to  obtain  y$0    (col.  1)  from 

measure       of  aqe 

estimated   interval  of  proportion  of  children  reported  as  dead  by  women  in  the 

(1)  women  indicated  aqe  qroup  (col. 2)  for  the  followinq  values  of 

(2)  K  and  m. 


m  — 

24.7 

25.7 

26.7 

27.7 

28.7 

29.7 

30.7 

3.7 

K   = 

.387 

.330 

.268 

.205 

.  143 

.090 

.045 

.14 

1%  ••• 

15-20 

.859 

.890 

.928 

.977 

1.041 

1.129 

1.254 

1.425 

fo     '•• 

20-25 

.938 

.9  59 

.983 

1.010 

1.043 

1.082 

1.129 

1.  188 

3qo    ••' 

25-30 

.948 

.962 

.978 

.994 

1.012 

1.033 

1.055 

1.081 

5qo    •" 

30-35 

.961 

.975 

.988 

1.002 

1.016 

1.031 

1.046 

1.063 

10qo    '•• 

35-40 

.966 

.982 

.996 

1.011 

1.026 

1.040 

1.054 

1.069 

15qo   ••• 

40-45 

.938 

.9  55 

.971 

.988 

1.004 

1.021 

1.037 

1.052 

20%    •" 

45-50 

.937 

.953 

.969 

.986 

1.003 

1.021 

1.039 

1.057 

Reference 

W.  Brass,  A.J.  Coale,  P.  Demeny,  D.  Heisel,  F.  Lorimer,  A.  Bomaniuk,  and 
E.  Van  De  Walle,  The  Demoqraphy  of  Tropical  Africa,  Princeton  University 
Press,  Princeton,  1973,  chapter  III.   United  Nations,  Methods  of  Estimating 
Basic  Demographic  Measures  from  Incomplete  Data,  Manual  IV,  New  York,  1967, 
chapter  II  and  chapter  V. 

B.   COMMENTS 

"The  Brass  method  of  estimating  mortality  enables  the  analyst  to  construct 
the  survival  function  of  a  life  table  up  to  early  adult  ages.   The  conditions 
that  would  make  this  computation  accurate  are: 

"(1)  The  age  specific  fertility  schedule  has  been  approximately 
constant  in  the  recent  past  (at  least  for  the  younger  women) ,  and  the 
approximate  form  of  the  schedule  is  known; 

"(2)  Infant  and  child  mortality  rates  have  been  approximately 
constant  in  recent  years; 

"(3)  There  is  no  powerful  association  between  age  of  mother  and 
infant  mortality  or  between  death  rates  of  mothers  and  of  their  children; 

"(4)  Omission  rates  of  dead  children  and  of  surviving  children 
are  about  the  same  in  the  reported  numbers  ever  born; 


"(5)  The  age  pattern  of  mortality  among  infants  and  children 
conforms  approximately  to  the  model  life  tables. 


"Because 
age  one  to  pe 
tality  direct 
On  the  other 
based  on  the 
who  have  died 
effects  of  th 
The  estimates 
various  sourc 
three.   Becau 
developed  cou 
table  value  e 
perience  over 


of  the  sensitivity  of  the  estimate  of  the  proportion  dying  before 
culiarities  or  defects  in  the  data  the  estimate  of  infant  mor- 
ly  derived  by  this  technique  does  not  justify  much  confidence, 
hand,  estimates  of  child  mortality  up  to  older  childhood  ages 
reports  by  older  women  of  still-living  children  and  of  children 

are  especially  subject  to  reporting  errors  and  also  to  the 
e  possibly  different  mortality  levels  in  the  more  distant  past. 

that  appear  to  reflect  the  best  chance  of  minimizing  error  from 
es  are  those  for  the  proportion  dying  before  age  two  and  age 
se  of  the  prevalence  of  falling  death  rates  in  many  of  the  less 
ntries  in  recent  years,  it  should  be  borne  in  mind  that  the  life 
stimated  by  these  procedures  represents  the  average  mortality  ex- 

the  preceding  four  or  five  years  in  the  determination  of  the 
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proportion  dead  before  the  second  birthday,  and  in  the  precedinq  six  to  eight 
years,  in  the  estimate  of  proportion  dead  before  the  third  birthday  ... 

"ihen  the  potential  sources  of  bias  are  considered,  it  is  evident  that  the 
estimation  of  child  mortality  by  this  procedure  tends  almost  always  to  err 
on  the  low  side,  if  the  estimate  is  not  accurate.   The  presumption  of  bias  in 
this  direction  is  based  on  a  -judqment  that  respondents  are  much  more  likely  to 
omit  from  a  summary  of  their  experience  to  date  children  who  have  died  than 
those  who  have  survived."   (United  Nations,  Methods  of  Estimating  Basic 
Demoqraphic  Measures  from  Incomplete  Data,  1967,  pp.  35-36). 

III. MAIN   PROGRAM 

A.   REQUIREMENTS 

The  main  proqram  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
proqram  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writinq  main  proqrams  using  mora  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  proqram  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  proqram.   This  communication  process  is  made  throuqh  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  BRASM  (P, S ,EMBAR , NREG, N WRIT, XQO, COREO) 


For  the  purpose  of  amphasizinq  the  input  arquments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  sinqle-valued  or  refer  to  a 
qroup  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  proqram. 

For  this  subroutine  variable  names  P,S,XQ0,  and  COREO  in  the  arqument 
strinq  are  all  arrays.   The  follow inq  DIMENSION  statement  must  be  included 
in  any  main  proqram  usinq  this  subroutine. 

DIMENSION  P(7)  ,S(7),XQ0(7)  ,  COREO  (7) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  BITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  packaqe 

a.  GTCON 

b.  ELT 

2.  Library  functions 
ABS (absolute  value) 
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3.   Card  diaqram  of  main  program  and  subroutines 


/     CARDS  INDICATING  END  OF  DECK   / 
/ / 

/         INPUT  DATA  /I 

/    "        CO MPUTiR~CONTfiOL ~CARDS~"  "~?|     I 

/ /    I     I 

/  SUBROUTINE  GTCON       /|  J  | 

/ /  III/ 

/  SUBROUTINE  ELT        /III/ 

/ /  III/ 

/  SUBROUTINE    BRASM  /III/ 

/ /    III/ 

/  MAIN    PROGRAM  /III/ 

/ /    III/ 

/  COMPUTER    CONTROL    CARDS         /III/ 

/ /    III/ 

I     I     / 


BEGINNING  OF  DECK 


I  1/ 
I  / 
1/ 

/ 
/ 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
subroutine  packaqe  are  as  qiven  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV. B.   See  example,  section  V.C. 


Variable 
Card  Columns    Name    Definition 


1 

2-53 

54-80 

1-5 

6 
7-11 

12 

3b 
37-41 

42-80 


Blank 

Label  used  to  identify  the  output 

Blank 


Averaqe  number  of  children  ever 
born  per  woman  in  aqe  qroup  15-19. 

Blank 

Averaqe  number  of  children  ever 
born  per  woman  in  aqe  qroup  20-24, 

Blank 


Blank 

Averaqe  number  of  children  ever 
born  per  woman  in  age  qroup  45-49. 

Blank 


Five  columns  are  reserved  for  each  P  value.   The  values  should  be 
entered  so  that  the  decimal  points  are  in  columns  2,8,14,20,26,32, 

and  38. 


1-! 


I 

lAveraqe  number  of  survivinq  children  per 

Iwoman  in  aqe  qroup  15-19. 

I 

IBlank 

I 
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7-11 
12 

• 

36 

37-41 

42-80 


lAveraqe   number   of   survivinq   children   per 

Iwoman    in   aqe   qroup   20-24 

I 

I  Blank 

I 

i 

I 

| Blank 

I 

JAveraqe  number  of  survivinq  children  per 

Iwoman  in  aqe  qroup  45-49. 

I 

I  Blank 


Five  columns  are  reserved  for  each  S  value.   The  values  should  be 
entered  so  that  the  decimal  points  are  in  columns  2,8,14,20,26, 
32  and  38. 


1-5 


10 
11 


12-80 


EHBAF: 


NEEG 


NWRIT 


NXT 


The  mean  aqe  of  the  fertility  schedule.   The 
value  should  be  entered  with  the  decimal  point 
in  column  3.   If  the  mean  aqe  of  the  fertility 
schedule  is  unknovn,  the  number  1.0  should  be 
punched  in  columns  1-5  with  the  decimal  point  in 
column  3. 

Blank 

The  code  indicatinq  which  Coale-Demeny  reqion 
is  beinq  used  to  qenerate  the  life  expectancies 
at  birth.   A  1  punched  in  column  7  indicates 
west  reqion,  a  2  north  reqion,  a  3  east  reqion 
and  a  4  south  reqion. 

Blank 

The  code  indicatinq  whether  or  not  the  results 
of  the  subroutine  are  to  be  printed  out.   A 
zero  punched  in  column  9  indicates  the  output  will 
not  be  printed.   If  any  other  number  is  punched 
in  column  9  the  output  will  be  printed. 

Blank 

The  code  indicatinq  if  there  is  another  data 
set  followinq  this  one.   A  zero  punched  in 
column  11  indicates  that  this  is  the  last 
set  of  data.   Any  other  diqit  punched  in 
column  11  indicates  another  set  of  data 
follows  this  one. 

Blank 


IV.  SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  strinq  enclosed  in 
parentheses.   This  subroutine  beqins  as  follows: 

SUBROUTINE  BRASM (P ,S,EMBAR ,NR EG, NMRIT ,XQ0,CORE0) 

B.  DESCRIPTION  OF  ARGUMENTS 

Name    How  Obtained  Definition 

I 
ITransferred  In  | Average  number  of  children  ever 

| born  per  woman  for  aqe  qroups  15-19 
I20-24,... ,45-49.   All  values  of  P 
| must  be  between  0  and  10.   If  P  has 
I  any  other  value,  error  message  number 
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EMBAR 


NREG 


NWRIT 


XQO 


COREO 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 


Transferred  Out 


0311  will  be  written  out  and  the  sub- 
routine will  return  to  the  callinq 
program.   The  ratio  of  the  first  P 
value  to  the  second  P  value  must  be 
between  0. 014  and  0.387.   If  it  is  not, 
error  messaqe  number  0315  will  be 
written  out  and  the  subroutine  will 
return  to  the  calling  program. 

Average  number  of  surviving  children 
per  woman  for  age  groups  15-19,  20-24, 
...,45-49.   All  values  of  S  must  be 
between  0  and  10.   If  S  has  any  other 
value,  error  message  number  0312  will 
be  written  out  and  the  subroutine  will 
return  to  the  calling  program. 

Mean  age  of  the  fertility  schedule. 
EMBAR=1.0  indicates  the  mean  age  of  the 
fertility  schedule  is  unknown.   If  EMBAF 
does  not  egual  1.0,  it  must  be  within  the 
range  24.7  to  31.7.   If  EMBAR  is  not 
within  that  range,  error  message  number 
0314  will  be  written  out  and  the  sub- 
routine will  return  to  the  calling  program. 

Region  from  the  Coale-Demeny  model 
life  table  system  being  used. 
NREG=1,2,3,4  indicates  respectively 
the  west,  north,  east  and  south  region. 
If  NREG  equals  any  other  value,  error 
message  number  0313  will  be  written  out 
and  the  subroutine  will  return  to  the 
calling  program. 

Print  option.   If  NWRIT=0  the  output  will 
not  be  printed.   If  NWRIT  eguals  any 
other  number,  the  output  will  be  printed. 

Estimated  proportion  of  children  dead  by 
aqe  x. 

Life  expectancy  at  birth  corresponding  to 
XQO  and  the  specified  Coale-Demeny  model 
life  table  region.   If  a  life  expectancy 
at  birth  is  not  between  20.0  to  80.0, 
error  message  number  0317  will  be  written 
out  and  the  subroutine  will  return  to  the 
calling  program. 


C.   ERROR  MESSAGES 


0311  *** 

*** 


BRASM  ERROR  NO. 031 1  -  -  INPOT  ERROR  IN  VARIABLE  P 
NUMBER  OF  CHILDREN  EVER  BORN  MUST  BE  BETWEEN  0.0  TO  10.0 


0312  *** 
•  ** 


BRASM  ERROR  NO.  0312  -  -  INPUT  ERROR  IN  VARIABLE  S 
NUMBER  OF  CHILDREN  SURVIVING  MUST  BE  BETWEEN  0.0  TO  10.0 


0313  *** 

*** 


0314  *** 

*** 


BRASM  ERROR  NO. 0313  -  -  INPUT  ERROR  IN  VARIABLE  NREG 
CODE  INDICATING  THE  COALE-DEMENY  REGION  MUST  EQUAL 
1,2, 3, OR  4. 

BRASM  EREOR  NO.0314  -  -  INPUT  ERROR  IN  VARIABLE  EMBAR 

MEAN  AGE  OF  THE  FERTILITY  SCHEDULE  MUST  BE  BETWEEN  24.7  TO  31.7 

OR  EQUAL  TO  1.0  INDICATING  NOT  KNOWN 


0315  ***  BRASM  ERROR  NO. 0315  -  -  INPUT  ERROR  IN  VARIABLE  P 
***  RATIO  P(1)/P(2)  MUST  BE  BETWEEN  0.014  TO  0.387 

0316  ***  BRASM  ERROR  NO. 0316  -  -  PROBABLE  INPUT  ERROR 

***  IMPOSSIBLE  TO  ESTIMATE  LIFE  EXPECTANCY (CHECK  INPUT) 


0317  ***  BRASM  ERROR  NO. 0317  -  -  PROBABLE  INPUT  ERROR 

***  PROPORTION  DEAD  (XQO)  CORRESPONDS  TO  A  LIFE  EXPECTANCY 
BEYOND  THE  COALE-DEMENY  RANGE  OF  20.0  TO  80.0 
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V.        PROGRAM       AND       RESULTS 

A.       COMPUTER    LISTING    FOR    BAIN    PROGRAM 

c _ 

c 

C MAIN  PROGRAM  FOR   SUBROUTINE   BRASH 

c . 

c 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  BY  FOUR 

C READ  STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS, 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

c T0  BE  USED  TO  IDENTIFY  THE  OUTPUT.   THIS  LABEL  WOULD  USUALLY 

C CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

C ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

C THE  TYPE  OF  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 

c IN  COLUMNS  2-53  OF  THE  CARD. 

C 

C ■ — THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  THE  AVERAGE 

C NUMBER  OF  CHILDREN  EVER  BORN  (P)  PER  WOMAN  IN  THE  SEVEN  FIVE-YEAR 

C AGE  GROUPS   15-19,  20-24,  ...  , 1+5-49. 

c p   IS  CONTAINED  ON  ONE  CARD  AND  IS  ENTERED  WITH  THE  DECIMAL 

c POINTS  IN  COLUMNS  2,8,14,20,26,32  AND  38. 

C 

C THE  THIRD  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  AVERAGE 

c NUMBER  OF  CHILDREN  SURVIVING  (S)  PER  WOMAN  IN  THE  SEVEN  FIVE-YEAR 

C AGE  GROUPS  15-19,  20-24,  ...  ,45-49. 

c s   IS  CONTAINED  ON  ONE  CARD  AND  IS  ENTERED  WITH  THE  DECIMAL 

c POINTS  IN  COLUMNS  2,8,14,20,26,32  AND  38. 

C 

c THE  FOURTH  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  (1)  THE 

C MEAN  AGE  CF  THE  FERTILITY  SCHEDULE  (EMBAR)  OR  THE  VALUE  1.0  IF  THE 

c HEAN  AGE  OF  THE  FERTILITY  SCHEDULE  IS  UNKNOWN,  (2)   THE  CODE 

c INDICATING  WHICH  COALE-DEMENY  REGION  (NREG)  IS  USED  TO  GENERATE 

c THE  LIFE  EXPECTANCIES  AT  BIRTH,  (3)  THE  CODE  INDICATING  WHETHER 

C OR  HOT  THE  RESULTS  OF  THE  SUBROUTINE  ARE  TO  BE  PRINTED  (NWRIT), 

C AND  (4)  THE  CODE  INDICATING  I?  THERE  IS  ANOTHER  DATA  SET 

c FOLLOWING  THIS  ONE  (NXT)  . 

c EMBAR   IS  LOCATED  IN  COLUMNS  1-5  WITH  THE  DECIMAL  POINT  IN 

C COLUMN  3.   IF  THE  MEAN  AGE  OF  THE  FERTILITY  SCHEDULE  IS  NOT 

C KNOWN,  1.0  SHOULD  BE  PUNCHED  IN  COLUMN  3. 

C NREG   IS  LOCATED  IN  COLUMN  7.   A  1  PUNCHED  IN  COLUMN  7  INDICATES 

C WEST  REGION,  A  2  INDICATES  NORTH  REGION,  A  3  INDICATES 

C EAST  REGION  AND  A  4  INDICATES  SOUTH  REGION. 

C NWRIT   IS  LOCATED  IN  COLUMN  9.   A  ZERO  PUNCHED  IN  COLUMN  9  INDI- 

C CATES  THE  OUTPUT  WILL  NOT  BE  PRINTED.   IF  ANY  OTHER  NUMBER 

c IS  PUNCHED  IN  COLUMN  9,  THE  OUTPUT  WILL  BE  PRINTED. 

C NXT   IS  LOCATED  IN  COLUMN  11.   A  ZERO  PUNCHED  IN  COLUMN  11  INDI- 

C ; —        CATES  THIS  IS  THE  LAST  SET  OF  DATA.   IF  ANY  OTHER  NUMBER 

c IS  PUNCHED  IN  COLUMN  11,  ANOTHER  SET  OF  DATA  FOLLOWS 

C THIS  ONE. 

c 

c t 

DIMENSION    P  (7)  ,  S  (7 )  ,  XQO  (7)  ,CORE0  (7) 

NREAD=1 

NPRNT=15 

1  R£AD(NREAD,3) 
READ(NREAD,4)      (P(I),I=1,7) 
READ(NREAD,4)      (S(I)  ,1=1,7) 
READ(NREAD,5)     EMBAR, NREG, NWRIT, NXT 
WRITE(NPRNT,6) 

WRITE(NPRNT,3) 

CALL  BR ASM (P,S, EMBAR, NREG, NWRIT, XQO, COREO) 

IF  (NXT)  2,  2,  1 

2  STOP 

3  F0EMAT(1X,52H  ) 

4  FORMAT  (F5.  3,  6F6.  3) 

5  F0RMAT(F5.2,1X,I1,1X,I1,1X,I1) 

6  FORMAT  (1H1) 
END 
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A.       COMPUTER    LISTING    FOP.    SUBROUTINE 

SUBROUTINE    BRASM     (P,S ,EM BAR , NREG , NWRIT, XQO, COREO) 

(-■«.«.__*«.-.  —  _«.•«.-.-.-._  —  _—  —  _-._-_——  —  —-._—  —  —  —-.  —  —  —  —  ——-._—.  —  —  —  —  —  —  —.•-.•.•.  —  —  —•  —  —  —  —  ——.  —  —  —  —  —. 

c _ 

C PROGRAM  NO.  0310 

c 

c 

C THE  INPUT  ARGUMENTS  TO  THIS  SUBROUTINE  ARE   P,  S,  EMBAR,  NREG,  AND 

C NHRIT. 

C THE    OUTPUT    ARGUMENTS    FROM    THIS    SUBROUTINE    ARE      XQO       AND      COREO. 

c p       IS    THE    AVERAGE    NUMBER    OF    CHILDREN    EVER    BORN    PER    WOMAN    FOR    THE 

C — - —  SEVEN    FIVE-YEAR    AGE    GROUPS       15-19,     20-24,     ...     ,45-49. 

C S       IS    THE    AVERAGE    NUMBER    OF    CHILDBEN    SURVIVING    PER    WOMAN    FOR    THE 

C SEVEN    FIVE-YEAE    AGE    GROUPS       15-19,     20-24,     ...     ,45-49. 

C EMBAP.       IS    THE    MEAN    AGE    OF    THE    FERTILITY    SCHEDULE.       EMBAR    =1.0 

c INDICATES    THE    MEAN    AGE    OF    THE    FERTILITY    SCHEDULE    IS    UN- 

C-- KNOWN. 

C NREG   IS  THE  CODE  INDICATING  WHICH  REGION  FROM  THE  COALE-DEMENY 

c MODEL  LIFE  TABLE  SYSTEM  IS  BEING  USED. 

C NWRIT   IS  THE  PRINT  OPTION.   IF   NWRIT  =  0,  THE  OUTPUT  WILL  NOT  BE 

c PRINTED.   IF   NWRIT   EQUALS  ANY  OTHER  NUMBER,  THE  OUTPUT 

C WILL  BE  PRINTED. 

C XQO   IS  THE  ESTIMATED  PROBABILITY  OF  DYING  BEFORE  AGE   X. 

C COREO   IS  THE  LIFE  EXPECTANCY  AT  BIRTH  CORRESPONDING  TO   XQO   AND 

c mu  SPECIFIED  COALE-DEMENY  MODEL  LIFE  TABLE  REGION. 

c 

c 

DIMENSION  P  (7)  ,  S(7),  XQO  (7),  COREO  (7) 

DIMENSION  CONST  (78),  P1P2(8),  FACTR(8,7),  ALPHX(2,4),  BETA(2), 

*  NAGE(2,7),     NX  (7),     FMULT(7),    PD(7),     SMLXC(7),    SMLXL{2,7) 
DIMENSION    SMLX5  (7)  ,1IM(7) 

DIMENSION    GOMST(78)  ,  BON  ST  (78)  ,  PON  ST  (2  ,78  )  ,ET  (2)  ,X(2)  ,XP(2) 

DIMENSION    QX  (2,17)  ,QXMX(18)  ,XLT (18,8) 

EQUIVALENCE     (CON  ST  (1 )  ,P1 P2  ( 1 ) )  ,      (CONST  (9)  ,FACTR  (1  ,  1 )  ) , 

*  (CONST  (65)  ,ALPHX  (1,1))  ,     (CONST  (73)  ,  BETA  (  1 )  ) 
NPRNT=     15 


c 

C VERIFICATION    OF    INPUT    ARGUMENTS 

c 

C 

110  NER3=    0 

DO    140    1=1,7 

IF     (P(I))     130,121,121 

121  CONTINUE 

IF  (P(I)-10.0)  120,120,130 
130  WRITE  (SPENT, 1 11) 

111  FORMAT (//45H  ***  BRASM  ERROR  NO.  0311  --  INPUT  ERROR  IN  P, 

*  /,64H  ***  NUMBER  OF  CHILDREN  EVER  BORN  MUST  BE  BETWEEN   0.0   TO 

*  10.0) 
NERR=  1 

120  CONTINUE 

IF  (S(I))  135,141,141 
141  CONTINUE 

IF  (S(I)-10.0)  140,140,135 
135  WPITE  (NPRNT, 122) 

122  FORMAT(//U5H  ***  BRASM  ERROR  NO.  0312  --  INPUT  ERROR  IN  S, 

*  /,64H  ***  NUMBER  OF  CHILDREN  SURVIVING  MUST  BE  BETWEEN   0.0   TO 

*  10.0) 
NERR=1 

GO  TO  150 
140  CONTINUE 
150  CONTINUE 

IF  (NPEG-1)  160,166,166 

166  CONTINUE 

IF    (NREG-4)     165,165,160 
160    WRITE     (NPRNT, 222) 
222    FORMAT  (//48H    ***    BRASM    ERROR    tJO.     0313    --    INPUT    ERROR    IN    NREG, 

*  /,69H    ***    CODE    INDICATING    THE    COALE-DEMENY    REGION    MUST    EQUAL 

*  1,    2,    3,    OR    4) 
NERR=    1 

165    CONTINUE 

IF     (EMBAR-24.7)      167,171,171 
171    CONTINUE 

IF     (EMBAR-31.7)      170,170,168 

167  CONTINUE 
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IF    (EMBAR-.99)     168,172,172 
172   CONTINUE 

IF    (EMBAE-1.01)     170,170,168 

168  WRITE(NPRNT,  169) 

169  FORMAT  (//49H  ***  BRASM  ERROR  NO.  0314  —  INPUT  ERROR  IN  EMBAR, 
*/, 104H  ***  MEAN  AGE  OF  FERTILITY  SCHEDULE  MUST  BE  BETWEEN  24.7   T 
*0   31.7   OR  EQUAL   1.0   INDICATING  NOT  KNOWN) 

NERR=1 

170  CONTINUE 

IF    (NERR)     180,180,900 
C 
c 

C PREPARATION    OF    AGE    LABELS 

c 

C 

180  DO  210  1=1,7 
N=  10  +  5*1 
NAGE  (1  ,I)=  N 
NAGE<2,I)  =  N  +  4 
IF  (1-3)  190,190,200 
190  NX(I)  =  I 

GO  TO  210 
200  NX(I)  =  N  -25 
210  CONTINUE 
C 
c 

C CALCULATION  OF   Q(O-X) 

c 

C 

CALL  GTCON  (3, 1 , 1, CONST) 

COREO  (1)  =0.0 

DP=  P  (1)  /  P  (2) 

DO  250  1=1,8 

IM1=  1-1 

IF    (DP-P1P2(I))    250,225,220 
220    CONTINUE 

IF    (IM1)     260,260,230 
225    F1=    0.0 

IH1=    1 

GO  TO  235 
230  F1=  (DP-P1P2(I))  /  (P1P2(IM1)-P1P2{I)  ) 
235  DO  240  J=1,3 

FMULT  (J)  =  FACTR(IM1,J)*F1  +  FACTR  (I,  J)  *  ( 1.  0-F  1) 

PD(J)  =  1.0  -  S  (J)/P(J) 

XQ0(J)  =  PD(J)  *  FMULT  (J) 
240  SMLXC(J)=  (1.0-X00(J))  *  100000.0 

GO  TO  252 
250  CONTINUE 

GO  TO  260 

252  CONTINUE 

IF  (EMBAF-.99)  253,256,256 
256  CONTINUE 

IF  (EMBAR-1.01)  254,254,253 

253  R=EMBAR-23. 7 
N=R 

AN=N 
F1=R-AN 

254  N=IM1 

DO  255  J=4,7 

FMULT  (J) =FACTE  (N, J) *F 1+F ACTP  (N+1 , J) * { 1-F1 ) 

PD(J)=  1.0  -  S  (J)/P(J) 

XQ0(J)=  PD(J)  *  FMUIT  (J) 

255  SHLXC(J)=  (1.0-XQO(J))  *  100000.0 
GO  TO  290 

260  WRITE  (NPP.NT,333) 

333  FORMAT (//45H  ***  BRASM  ERROR  NO.  0315  —  INPUT  ERROR  IN  P, 

*  /,56H  ***  RATIO   P(1)/P{2)   MUST  BE  BETWEEN   0.014   TO   0.387) 
GO  TO  900 
C 
c 

c CALCULATION  OF  CORRESPONDING  LIFE  EXPECTANCIES 

c 

C 

290  CALL  GTCON(1,1,NREG,GONST) 
CALL  GTCON(1,2,NREG,BONST) 
DO  295  1=1,78 
PONST(1,I)=GONST(I) 
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295 


PON ST (2, 

D  = 

BONST(I) 

LIM(1)    = 

1 

LIM(2)     = 

2 

LIM(3)     = 

2 

LIM(4)     = 

n 

4. 

LIM(5)     = 

3 

LIM(6)     = 

4 

LIM(7)     = 

5 

DO    350    I 

=  1, 

7 

ET(1)=35.0 

DO  350  J=1, 2 

ET(1)=ET  (1)  +  15.0 

ET(2)=P0NST(1,75)  +  (ET(1)  -PONST  (1  ,76))  *PONST  (1 ,77) /PONST  ( 1,78) 

ILIH  =  LIB  (I) 

DO  325  L=1,ILIM 

K  =  4  *  L-3 

DO  325  N=1,2 

X(N)=PONST  (N,K)+PONST(N,K+1)  *ET(N) 

XP(N)=  PONST  (N,K  +  2)  +PONST (N , K+3)  *ET(N) 

XP(N)=10.0**XP(N)/10000. 

IF    (XP(N)-X(N))     310,320,330 
330    CONTINOE 

IF    (ET(N)-54.0)     320,320,340 
340    QX(N,I)=XP(N) 

GO    TO     1903 
310    QX(N,I)  =  (X(N)+XP(N))/2.  0 

GO  TO  19  03 
320  QX(N,I)=X  (N) 
1903  CONTINUE 

IF     (L    -    1)     1905,1905,1901 

1905  CONTINOE 

IF     (N    -    1)     325,325,1906 
1901    CONTINUE 

IF     (N    -     1)     325,325,1907 

1906  SMLX5  (1)  =100000.0*  (  (1.05*  (1.0-QX  (1,1)  )  +  (1 .  0-QX  (2  ,  I)  )  ) /2.  05) 
GO    TO    325 

1907  SMLX5(L)  =SMLX5  (L-1)  *  (  (1  .  05*  ( 1 .  0-QX  (1 ,  I)  )  +  (1.0-QX  (2,1)  )  )/2.  05) 
325    CONTINUE 

IF  (I  -  2)  1390,1397,1395 
1395    CONTINUE 

IF  (I  -  3)  1397,1397,1399 
1 390   CONTINUE 

SMLXL(J.I)     =    SHLX5(I) 

GO    TO    350 

1399  SMLXL  (J, I)  =  SMLX5  (1-2) 
GO  TO  350 

1397  CONTINUE 

IF  (SMLX5(1)/100000.-0.9)  1405,1405,1400 

1400  ALPHA=ALPHX (I-1,NHEG) +BETA(I-1)* (SMLX5 (1 ) /1 00000. 0-0. 9) 
GO  TO  1410 

1405  ALPHA=ALPHX (I-1,NEEG) 

1410  SMLXL  (J,I)=ALPHA*SHLX5(1)  +  (1.0-ALPHA)  *SHLX5  (2) 
350  CONTINUE 

DO  491  1=1,7 

ETEN1=50.0 

ETEN2=65.0 

SMLX1  =  SMLXL(1,I) 

SMLX2  =  SMLXL  (2,1) 
360  DO  460  J=1,15 

IF  (J-1)  308,308,309 

308  CONTINUE 

IF  (1-1)  309,309,375 

309  ET(1)  =ETEN1+  (ETEN2-ETEN1 )  *  (SMLXC  (I) -SMLX1 )  /  (SHLX2-SMLX1) 
ET(2)=PONST  (1,75)  +  (ET  (1) -PONST  (1,76)  )  *PONST(1,77)  /PONST  (1,78) 

375    KLIH    =    LIM(I) 

DO    380    L=1,KLIM 

K=4*L-3 

DO    380    N=1,2 

X(N)  =  PONST  (N,K)  +PONST(N,K  +  1)  *ET(N) 

XP  (N)=PONST  (N,K  +  2)  +PONST  (N,K+3)  *ET(N) 

XP  (N)  =  10.  0**XP  (N)  /1  0000. 

IF    (XP(N)-X(N))     371,372,373 

373  CONTINUE 

IF    (ET(N)-54.0)     372,372,374 

374  QX(N,I)=XP(N) 
GO    TO    899 

371    QX(N,I)  =  (X(N)+XP(N))/2.0 
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GO    TO    899 
372    QX(N,I)=X(N) 
899   CONTINUE 

IF    (L-1)     905,905,901 

905  CONTINUE 

IF  (N-1)  380,380,906 
901  CONTINUE 

IF  (N-1)  380,380,907 

906  SHLX5 (1) =100000.  0*  ( ( 1.  05*  (1 .  0-QX  (1,1)  )  +  (1  .0-QX  (2,  I) )  )/2.05) 
GO  TO  380 

907  SMLX5(L)=SMLX5(L-1)*((1.05*(1.0-QX(1,I))*(1.0-QX(2,I)))/2.05) 
380  CONTINUE 

370  CONTINUE 

IF  (1-2)  390,397,395 
395  CONTINUE 

IF  (1-3)  397,397,399 
390  SMLX=SMLX5(I) 

GO  TO  420 

399  SMLX=SMLX5(I-2) 
GO  TO  420 

397  CONTINUE 

IF  (SMLX5(1)/100000.-0.9)  405,405,400 

400  ALPHA=ALPHX(I-1,NK£G)+BETA  (1-1)*  (SMLX5  (1 )  /1  00000.  0-0.  9) 
GO  TO  410 

405  ALPHA=ALPHX (I-1,NEEG) 

410  SMLX=ALPHA*SMLX5  (1 )  +  ( 1. 0-ALPHA)  *SMLX5 (2) 

420  CONTINUE 

IF  (ABS  (SMLXC(I) -SMLX)-10.0)  490,490,430 
430  CONTINUE 

IF  (ABS(SMLX-SMLXI) -ABS ( SMLX-SMLX2)  )  440,440,450 
440  SMLX2=SMLX 

ETEN2  =  ET  (1) 

GO  TO  460 
450  SMLX1=SMLX 

ETEN1  =  ET  (1) 
460  CONTINUE 

WRITE  (NPP.NT,555) 
555  FORMAT (//49H  ***  BRASH  ERROR  NO.  0316  --  PROBABLE  INPUT  ERROR 
*/,57H  ***  IMPOSSIBLE  TO  ESTIMATE  LIFE  EXPECTANCY  (CHECK  INPUT)) 

GO  TO  471 

490  DO  700  L=1,17 
K=4*L-3 

DO  700  N=1,2 

X  (N)  =PONST  (N,K)  +  PONST(N,K+1)  *ET(N) 

XP(N)  =PONST  (N,K*2)  +PONST  (N,K  +  3)  *ET(N) 

XP (N)  =1  0.  0**XP (N) /10000. 

IF    (XP(N)-X(N))     671,672,673 

673  CONTINUE 

IF  (ET(N)-54.0)  672,672,674 

674  QX(N,L)=XP(N) 
GO  TO  700 

671  QX(N,  L)  =  (X(N) +XP(N))/2.0 
GO  TO  700 

672  QX(N,L)=X  (N) 
700  CONTINUE 

DO  750  L=1,17 
750  QXMX(L)  =  (1.05*QX(1,L)+QX(2,L))/2.05 

QXMX(18)=1.0 

SEPO  =0.0 

SEP1  =  0.0 

CALL  ELT(NREG,1, 1,SEP0,SEP1 ,QXMX,XLT) 

IF  (XL?  (1,8) -20.  0)  471,492,492 
492  CONTINUE 

IF  (XLS  (1,8)  -80.0)  491,491,471 
471  XLT(1,8)  =  0.0 

491  COREO  (I)  =XLT  (1,8) 

C 

c 

C PRINTING  OF  OUTPUT 

c 

C 

IF  (NWEIT)  1000,1000,500 
500  WRITE  (NPENT,777) 
777  FORMAT  (//1X  36X,35HBRASS  TECHNIQUE  MORTALITY  ESTIMATES 

*  /31X,45HBASED  ON  AVERAGE  NUMBER  OF  CHILDREN  EVER  BORN 

*  /34X,40HAND  AVERAGE  NUMBER  OF  CHILDREN  SURVIVING  ) 
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WRITE  (NPENT,888)   (  (NAGE  (I, J)  ,1=1,2)  ,P  (J)  ,S  (J)  ,PD  (J)  ,FMULT(J)  , 
*  NX  (J) ,XQO(J)  ,CORE0  (J) ,J  =  1,7) 
888  FORMAT  (/ 1 5X , 20HCHILDREN     CHILDREN, 1 5X, 1 1 HMULTI PLIERS, 10X, 


*  28HPHOPORTIOH      CORRESPONDING  /  96H 
♦URVIVING     1.0  -  AGE 
*OF  /  94H      WOMEN        P(I)  S(I) 

*  X         XQO  E(0) 

*  //  <5X,I2,1H-,I2,4F12.3,I8,F12. 3,F15.1)) 
GO  TO  1000 


AGE  OF      EVER  BORN    S 
DEAD  BY  AGE  X      VALUE 
S(I)/P(I) 


c 

C ZEROING  OF  OUTPUT  AND  PRINTING  OF  INPUT  BECAUSE  OF  ERROR 

c 

C 

900    WRITE    (NPRNT,444)     P, S,EMBAR, NREG,NHRIT 
444    FORMAT     (//29H  BRASM    INPUT    ARGUMENTS, 


*  /  8H 

P=  , 7F8. 4 

*  /  8H 

S=  ,7F8.4 

*  /12H 

EMBAR=  ,F8.4 

*  /11H 

NREG=  ,16 

*  /12h 

NHF.IT=  ,16) 

DO  910  1= 

=  1,7 

COREO(I) 

=  0,0 

910  XQO  (I)  = 

0.0 

1000  RETURN 

END 
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D.   SAMPLE  OUTPUT 
1st  SET 
1970  SOUVENIR 


BBASS  TECHNIQUE  MORTALITY  ESTIMATES 
BASED  ON  AVERAGE  NUMBER  OF  CHILDREN  EVER  BORN 
AND  AVERAGE  NUMBER  OF  CHILDREN  SURVIVING 


CHILDREN 

CHILDREN 

MULTIPLIERS 

PROPORTION 

COBRESPONDING 

AGE  OF 

EVER  BORN 

SURVIVING 

1.0  - 

AGE 

DEAD  BY  AGE  X 

VALUE  OF 

WOMEN 

P  (I) 

S(I) 

S(I)/P(I) 

X 

XQO 

E(0) 

15-19 

0.  200 

0.  187 

0.065 

1.030 

1 

0.067 

60.6 

20-24 

1.300 

1.191 

0.084 

1.037 

2 

0.087 

59.3 

25-29 

2.900 

2.596 

0.105 

1.009 

3 

0.106 

57.5 

30-34 

4.400 

3.846 

0.126 

1.012 

5 

0.127 

55.9 

35-39 

5.700 

4.851 

0.149 

1.021 

10 

0.  152 

54.4 

40-44 

6.600 

5.518 

0.164 

0.999 

15 

0.164 

54.1 

4  5-49 

6.300 

5.109 

0.189 

0.998 

20 

0.  189 

53.1 

2nd  SET 
1970  SOUVENIR  BEAK  AGE  IS  UNKNOWN 


BRASS  TECHNIQUE  MORTALITY  ESTIMATES 
BASED  ON  AVERAGE  NUMBER  OF  CHILDREN  EVER  BORN 
AND  AVERAGE  NUMBER  OF  CHILDREN  SURVIVING 


CHILDREN 

CHILDREN 

MULTIPLIERS 

PROPORTION 

CORRESPONDING 

AGE  OF 

EVER  BORN 

SURVIVING 

1.0  - 

AGE 

DEAD  BY  AGE  X 

VALUE  OF 

WOMEN 

P(D 

S(I) 

S(I)/P(I) 

X 

XQO 

E(0) 

15-19 

0.200 

0.  187 

0.065 

1.030 

1 

0.067 

60.6 

20-24 

1.300 

1.  191 

0.084 

1.037 

2 

0.087 

59.3 

25-29 

2.900 

2.596 

0.105 

1.009 

3 

0.  106 

57.5 

30-34 

4. "00 

3.846 

0.  126 

1.014 

5 

0.  128 

55.8 

35-39 

5.700 

4.851 

0.149 

1.023 

10 

0.152 

54.  3 

40-44 

6.600 

5.518 

0.164 

1.001 

15 

0.164 

54.1 

45-49 

6.  300 

5.109 

0.189 

1.000 

20 

0.  189 

53.0 

3rd  SET 
1970  SOUVENIR  TEST  OF  ERROR  0311 


***  BRASM  ERROR  NO.  0311  —  INPUT  ERROR  IN  P 
***  NUMBER  OF  CHILDREN  EVER  BORN  MUST  BE  BETWEEN 


0.0   TO   10.0 


BRASM  INPUT  ARGUMENTS, 

P=    0.2000   1.3000   2.9000   4.4000  10.7000   6.6000   6.3000 

S=    0.1870   1.1910   2.5960   3.8460   4.8510   5.5180   5.1090 

EMBAR=   29.0000 

NREG=       1 

NWRIT=       1 
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I.       DESCRIPTION      OF       PROGRAMS 

A.  PURPOSE 

To  calculate  an  abridged  life  table  from  age-specific  mortality  rates 
(  M  )  or  the  probabilities  of  dying  (  g  )  between  exact  ages  x  and  x  +  5.   The 

life  table  is  by  5-year  age  groups  except  for  ages  under  5,  which  are  divided 
into  age  0  and  the  age  group  1-4. 

B.  DATA  NEEDED 

1-   Probabilities  of  dying  or  age-specific  mortality  rates 
in  5-year  age  groups  for  all  except  the  first  two  age  groups.   The 
first  two  age  groups  must  be  0-1  years  and  1-4  years  respectively. 

2.   Death  separation  factors  for  age  groups  0-1  and  1-4  must  be 
provided  for  estimating  ,  q   and  .  q .  from  ,M   and  .H,  and  for  estimating 


L   and  .L,  from  ,q   and  .  g.   If  death  separation  factors  cannot  be 


provided,  the  sex  of  the  population  and  a  Coale-Demeny  region  must  be 
provided.   These  will  be  used  to  generate  Coale-Demeny  separation  factors. 

II.  METHODOLOGY 

MATHEMATICAL  DERIVATION 

For  estimating  ,q   and  .g.  fron  ,M   and  ,M.  and  for  estimating 

,L   and  rL,  from  ,q   and  .q,,  ieath  separation  factors  should  be  provided. 

If   separation  factors  cannot  be  provided,  Coale-Demeny  separation  factors 
are  used. 

Adjustment  of  the  nqx  (or  nHx) . 


Since  the  number  of  ngx  (or  nMx  )  values  given  as  input  might  vary, 

the  first  step  in  this  subroutine  is  to  obtain  17  values  of 

g   (or   M  ) .   The  procedure  is  the  same  no  matter  whether   q  or   M 

n   x  n    x  n^xnx 

are   given.       (The   notation   given    is    for      g   ) . 

n  x 

If  there  are  more  than  17  values,  only  up  to  q        are  taken. 

ihen  the  set  of  ^q   has  less  than  17  values  —   a  up  to 
5  x  5  x 

an  aqe  younqer  than  75  —  an  extrapolation  of  the   q   values  is  made 

J     x 

up  to  age  75.   The  extrapolation  is  made  by  assuming  that  the  q   values 

are  an  exponential  function.   Therefore,  the  quotient  of  the  qiven  two 
oldest   q   values  is  kept  constant  for  estimating  the  values  up  to  age  75. 

J     x 
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For  instance,  from  the  given  data  the  following  rate  is  made 


a=-£s3_ 


5%c 


where 

5q    +5  is  the   oldest   value   of   the   given   set   where   x  <   70.      Therefore,    the 
extrapolation   is   made  as 

5^5+10  =  a  '  5^5 
up   to   obtaining        c,Q-ic 


Computation  of   q  . 

r  rPx 


If   H   is  given  as  input,  the   q  values  are  computed  as 
n  x  n  x 

n  •  M 
_  n  x 

n^    1  +  (n-k)  •  M 
n  x 


where 

q   is  the  probability  of  dying  between  exact  age  x  and  exact  age 

x+n. 

M   is  the  age-specific  mortality  rate  for  age  group  x  to  x+n. 

n  is  the  aqe  group  interval  (1  year  for  the  first  aqe  qroup,  4  years 

far  the  second  age  group  and  5  years  for  the  remaining  age  groups) ,  and 

k  is  the  death  separation  factor  for  each  aqe  qroup  (The  death  separation 
factors  for  aqe  groups  0-1  and  1-4  can  be  provided  as  input  or  Coale-Demeny 
death  separation  factors  can  ba  used).    The  separation  factor  for  all  hiqher 
aqe  groups  is  taken  as  2.5. 


With  the  set  of   q  ,  the  1   and   d   are  obtained  as 

n  x        x      n  x 


x+n    x      nhc 
and 


d  =  1  -  1  . 
n  x    x    x+n 


ELT   127 


The   L   values  are  calculated  as  follows.   The  L  and  ,L,  are  calculated  as 


iLo=ko'1o+  (1  -k0}  h  4Ll  =  kl,:Ll  +  U"ki}  x 


where 

k   and  k,  are  the  death  separation  factors  for  age  groups  0-1  and  1  to  4 

o      I 

respectively. 

The  remaining  _L  values  for  x  =  5,  10,  ....  75  are  calculated  as 

5  x 

5Lx=-f--(lx+'W 
Finally,    the   open  age,    Lft        is   calculated   as 

L80+  =3.725    (18Q)  +  .0000625    (l80)2 
as   suggested   by   Coale-Demeny   in    their   model    life  tables. 


The   other   life   table   functions   are   calculated   as    follows 
Survival   rates 

c     -     5Lx+5 
5  x  ~       _L 
5  x 

Central  mortality  rates 


d 
u  -  n  x 

M  =  — 


n  x     L 
n  x 


Remaining  person  years  to  be  lived 


w 


T  =  T   CL- 
x    Z-j     5  j 

j=x,5 


and  finally  life  expectancies  as 


T 

°e     =-rx- 

x    1 

X 


III.M    A    I    N       PROGRAM 
A.        REQUIREMENTS 


The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunctiDn  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 
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1 .   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  proqram.   This  communication  process  is  made  through  the  CALL  statement. 

rhs  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  ELT(NREG,NSEX, K0DE,SEP0,SEP1,QXMX,XLT) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  both  variable  names  QXMX  and  XLT  are  arrays.   The 
following  DIMENSION  Statement  must  be  included  in  any  main  program  using 
this  subroutine. 

DIMENSION  QXMX(18),XLT(18,8) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  HITH  THE  PROGRAM. 

Sone  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  ba  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 
PLT* 

♦This  subroutine  is  not  called  by  the  subroutine  ELT.   It  is 
used  only  by  the  main  program. 

2.  Library  functions 
None 

3.  Card  Diagram  of  main  program  and  subroutines. 


/ 

/ 

CARDS   INDICATING    END   OF   DECK         /| 

/ 

/ 

INPUT    DATA                           /|     | 
/    I     I 

/ 
/ 

COMPUTER   CONTROL    CARDS           /|     |     | 
_         _   _/    I     I     I 

/ 

/ 

SUBROUTINE    PLT                   /III/ 
/III/ 

/ 

/ 

SUBROUTINE    ELT                 /III/ 
/    III/ 

/ 

/ 

MAIN    PROGRAM                   /III/ 
/III/ 

/                        COMPUTER    CONTROL    CARDS         /III/ 
/                                                                                         /III/ 

I  I  / 
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C.   FORMAT  REQOIRBHENTS  FOR  CARD  INPOT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
subroutine  package  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV. B.  See  example,  section  V.C. 


Variable 
Card  Columns   Name    Definition 


1 
2-53 
54-80 

1 


6 
7-11 


12 
13-17 


18 
19 


20-80 
1-8 


NREG 


NSEX 


KODE 


SEPO 


SEP1 


NXT 


QXBX 


Blank 

Label  used  to  identify  the  output 

Blank 


The  source  of  the  separation  factors 
A  1  punched  in  column  1  indicates  the 
west  region  from  the  Coale-Demeny  model 
life  table  system,  a  2  indicates  north 
region,  a  3  east  region,  and  a  4  indicates 
south  region.   A  5  punched  in  column  1 
indicates  empirical  separation  factors 
are  being  given. 

Blank 

The  code  indicating  the  sex  of  the 
life  table  population.   A  1  punched  in 
column  3  indicates  males,  a  2  indicates 
females,  and  a  3  indicates  both  sexes 
combined. 


Blank 


The  code  indicating  whether   q 

n  x 


or   H 

n   x 


values  are  given.   A  1  punched  In  colum©  5 
indicates   q   values  are  given.   A  2  punched 

in  column  5  indicates   M   values  are  given 

n     x 

Blank 

The   separation   factor  for  age  group 
0-1.      The   decimal   point   should  appear 
in  column   8.      If   Coale-Demeny  separation 
factors   are   to    be  used,    the   value  of 
0.000   should   be   punched    in   columns    7-11. 

Blank 

The  separation  factor  for  age  group  1-4. 
The  decimal  point  should  be  located  in 
column  14.   If  Coale-Demeny  separation 
factors  are  to  be  used,  the  value  of 
0.000  should  be  punched  in  columns  7-11 

Blank 

The  code  indicating  if  there  is  another 
set  of  data  following  this  one.   A  zero 
in  column  19  indicates  this  is  the  last 
set  of  data.   Any  other  number  in  column  19 
indicates  another  set  of  data  follows  this  one. 

Blank 


The  value  of  g 

n^x 


or  M 

n  x 


for  age  group  0-1. 
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9-16 


65-72 
73-80 

1-8 
9-16 

65-72 
73-80 


The   value   of  nqx   or  nHx   for  age  group  1-4. 


The   value   of   q      or   H     for   age  group   35-39. 
n   x         n  x 

Blank 


The   value   of   g      or   M      for   age   group    40-44. 

n  x    n  x 

The  value  of  q   or  H   for  age  group  15-49. 

n^x  n   x  3       3  r 


The   value   of   g      or   H      for   age   group   80+. 

n  x  n  x 

Blank 


Cards   3   and   4   read   in   the  q 

n   x 


or    M 

n     x 


values.      The    first   two  QXMX   values 


refer   to    age  groups    0-1    and    1-4.      The  remaining   values   refer   to  the 
5-year   age  groups   5-9,    10-14,    15-19,...      The  last  value    is   always 
assumed   to   refer   to   the   open   end   age   group.      A   minimum  of   15    values 
and    a  maximum  of    18   values   can    be  given.      Nine   values   will  appear  on 
the   first  card.      A   minimum  of   six  values   and  a   maximum  of  nine   values 
will   appear  on   the   second  card.      The   values   on   each  card   should   be 
ahtered    so   that   the   decimal    points   will   be   in  columns    2,10,18,26 
34,42,50,58   and   66. 

IV.    S0BRO0TINE 

A.  SUBROUTINE    STATEMENT 

All  external  subroutines  begin  with  the  word  S0BR0BTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  ELT (NREG , NSEX ,K0DE, SEP0, SEP1 , QXMX, XLT) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


NREG 


How  Obtained   Definition 


NSEX 


K0DE 


Transferred  In 


Transferred  In 


Transferred  In 


Indicates  the  source 
factors.  NREG=1,2,3 
spectively  the  west, 
south  regions  of  the 
life  table  system 
pirical  separation  f 
given.  If  NREG  has 
from  this,  error  mes 
will  be  written  out 
will  return  to  the  c 


of  the  separation 
,4  indicates  re- 
north,  east,  and 
Coale-Demeny  model 
NREG=5  indicates  em- 
actors  are  being 
a  value  different 
sage  number  0371 
and  the  subroutine 
ailing  program. 


Indicates  the  sex  of  the  population. 
NSEX=1,2,3  indicates  males,  females, 
and  both  sexes  combined  respectively. 
If  NSEX  has  a  value  different  from  this 
error  message  0372  will  be  written  out 
and  the  subroutine  will  return  to  the 
calling  program. 

Indicates  whether  q   or nBx  values  are 

qiven.   K0DE=1  indicatesnqx  values  and 

K0DE=2  indicates  M  values.   If  KODE  has 

n  x 

a  value  different  from  this,  error  message 
0373  will  be  written  out  and  the  sub- 
routine will  return  to  the  calling  pro- 
gram. 
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SEPO  1  Transferred  In 


SEP1 


QXMX 


XLT 


Transferred  In 


Transferred  In 


Transferred  Out 


Separation  factor  for  age  group  0-1.   SEPO 
must  be  within  the  range  0.002  -  0.500. 
If  SEPO  is  not  within  the  range,  error 
message  0374  will  be  written  out  and  the 
subroutine  will  return  to  the  calling  pro- 
gram. 

Separation  factor  for  age  group  1-4.   SEP1 
must  be  within  the  range  0.5  -  2.0.   If 
SEP1  is  not  within  the  range,  error  mes- 
sage 0375  will  be  written  out  and  the  sub- 
routine will  return  to  the  calling  program. 


The  values  of   g  or   M 

n  3  x     n  x 


The  first  two 


values  refer  to  age  groups  0-1  and  1-4  re- 
spectively.  The  remaining  values  are  all 
for  5-year  age  groups.   A  minimum  of  15 
values  <nust  be  given.   If  less  than  15  values 
are  given,  error  message  number  0  377  will  be 
written  out  and  the  subroutine  will  return 


to  the  calling  program. 


must  be  between  0  and  1. 


All  values  of  q   or  M 

n^x    n  x 


If  q 

n  x 


or  H   has 

n  x 


any  other  value,  error  message  number  0376 
will  be  written  out  and  the  subroutine  will 
return  to  the  calling  program. 

The  abridged  life  table.   The  life  table  is 
an  18x8  array  corresponding  to  the  eighteen 
age  groups  and  eight  life  table  columns. 
Each  element  of  the  life  table  is  denoted 
by  XLT(X,Y)  where  X  is  a  specific  age  group 
and  Y  is  a  specific  life  table  column.   X=1,2,3, 
...,17,18  denotes  age  groups  0-1,  1-4,  5-9,..., 
75-79,  80+  respectively.   Y=1 ,2, 3, . . . ,8  denotes 


the   q   column,   d 

n  "\  n  ) 


column,   m 

n  : 


column,  1   column, 


L   column, 

n  x 

respectfully. 


p  column, 

n  x 


T   column,  and 

x 


e  column 


For  example  XLT(5,5)  equals   L 


C.   ERROR  MESSAGES 


0371 

*** 

*** 

*** 

0372 

*** 

*** 

0373 

*** 

*** 

0374 

*** 

*** 

0375 

*** 

*** 

0376 

*** 

0377 

*** 

*** 

0378 

*** 

*** 

ELT  ERROR  NO.  0371  INPUT  ERROR  IN  VARIABLE  NREG. 

THE  CODE  INDICATING  THE  SOURCE  OF  THE  SEPARATION  FACTORS 
MOST  BE  BETWEEN  1  TO  5. 

ELT  ERROR  NO.  0372  INP0T  ERROR  IN  VARIABLE  NSEX. 

CODE  INDICATING  SEX  OF  THE  POPULATION  MUST  BE  EQUAL  TO 
1,2,  OR  3. 

ELT  ERROR  NO.  0373  INPUT  ERROR  IN  VARIABLE  KODE 

CODE  INDICATING  Q (X)  VALUES  OR  M  (X)  VALUES  MUST  EQUAL  1  OR  2. 

ELT  ERROR  NO.  0374  INPUT  ERROR  IN  VARIABLE  SEPO 

SEPARATION  FACTOR  FOR  AGE  0  MUST  BE  BETWEEN  .002  AND  .5. 

ELT  ERROR  NO.  0375  INPUT  ERROR  IN  VARIABLE  SEP1 

SEPARATION  FACTOR  FOR  AGE  GROUP  1-4  MUST  BE  BETWEEN  .5  AND  2.0. 

ELT  ERROR  NO.  0376  INPUT  ERROR  IN  VARIABLE  QXMX  MUST  BE 

BETWEEN  0  AND  1. 

ELT  ERROR  NO.  0377  INPUT  ERROR  IN  VARIABLE  QXMX 

A  MINIMUM  OF  15  VALUES  OF  Q (X)  OR  M (X)  MUST  BE  GIVEN. 

ELT  ERROR  NO.  0318 

AT  LEAST  ONE  EXTRAPOLATED  Q (X)  OR  M (X)  VALUE  IS  NOT  BETWEEN 

ZERO  AND  ONE. 
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V.       PROGRAM      AND      8ESDLTS 

A.       COMPUTER    LISTING    FOR    MAIN   PROGRAM 

c 

c 

C MAIN    PROGRAM   FOR       SUBROUTINE      ELT 

C 

c 

C THIS    PROGRAM    OSES    A   SET   OF    DATA   CARDS    WHICH   IS    READ   IN    BY    THREE 

C READ    STATEMENTS.       THE    DATA    CARDS    ARE   RELATED   TO    EACH    OF   THE    READ 

C STATEMENTS    AS    FOLLOWS, 

C 

C THE  FIRST  READ  STATEMENT  OSES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

C TO  BE  USED  TO  IDENTIFY  THE  OOTPDT.   THIS  LABEL  WOULD  USUALLY 

C CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

C ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

C THE  TYPE  OF  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 

C IN  COLUMNS  2-53  OF  THE  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  (1)  THE 

C SOURCE  OF  THE  SEPARATION  FACTORS  (NREG) ,  (2)  THE  CODE(NSEX) 

C INDICATING  THE  SEX  FOR  WHICH  THE  LIFE  TABLE  IS  BEING  CALCULATED, 

C (3)  THE  SELECTOR (KODE)  INDICATING  WHETHER 

C Q(X)   VALUES  OR   M (X)   VALUES  ARE  GIVEN,  (4)  THE  SEPARATION 

C FACTOR  FOR  AGE  GROUP  0-1  (SEPO) ,  (5)  THE  SEPARATION  FACTOR  FOR  AGE 

C GROUP  1-4  (SEP1),  AND  (6)  THE  CODE(NXT)  INDICATING  IF  THERE  IS 

C— ANOTHER  DATA  SET  FOLLOWING  THIS  ONE. 

C NREG   IS  LOCATED  IN  COLUMN  1.   A  1  PUNCHED  IN  COLUMN  1  INDICATES 

c THE  HEST  REGION  OF  THE  COALE  DEMENY  MODEL  LIFE  TABLE  SYSTEM, 

C A  2  INDICATES  NORTH  REGION,  A  3  INDICATES  EAST  REGION,  AND  A 

c n    INDICATES  SOUTH  REGION.   A  5  PUNCHED  IN  COLUMN  1  INDICATES 

C EMPIRICAL  SEPARATION  FACTORS  ARE  BEING  GIVEN. 

C NSEX   IS  LOCATED  IN  COLUMN  3.   A  1  PUNCHED  IN  COLUMN  3  INDICATES 

C MALES,  A  2  INDICATES  FEMALES,  AND  A  3  INDICATES  BOTH  SEXES 

c COMBINED. 

C KODE      IS    LOCATED    IN   COLUMN    5.       A    1    PUNCHED    IN    COLUMN    5    INDICATES 

C Q(X)     VALUES    ARE    GIVEN.       A    2    PUNCHED    IN    COLUMN    5    INDICATES 

C M  (X)     VALUES    ARE    GIVEN. 

C SEPO      IS    LOCATED   IN   COLUMNS    7-11    WITH   THE    DECIMAL    POINT    IN   COLUMN 

C 8.       IF   COALE-DEMENY    SEPARATION    FACTORS    ARE    TO    BE    USED,    THE 

c VALUE   OF    0.000    SHOULD   BE    PUNCHED   IN    COLUMNS   7-11. 

C SEP1       IS    LOCATED    IN    COLUMNS    13-17    WITH    THE    DECIMAL    POINT    IN    COLUMN 

c_____  1lK       IP   COALE-DEMENY   SEPARATION   FACTORS    ARE  TO    BE   USED,    THE 

c VALUE   OF    0.000    SHOULD   BE    PUNCHED    IN    COLUMNS    13-17. 

C NXT       IS    LOCATED   IN   COLUMN    19.       A    ZERO    PUNCHED    IN    COLUMN    19    INDICATES 

c THIS    Is    THE    LAST    S£T    0F    DATA.       IF    ANY    OTHER    NUMBER    IS    PUNCHED 

c__ IN    COLUMN    19,    ANOTHER   SET    OF    DATA    FOLLOWS    THIS    ONE. 

C 

C THE    THIRD    READ    STATEMENT    USES    TWO    DATA    CARDS. 

C THE    PURPOSE    OF    THE    THIRD    READ    STATEMENT    IS    TO    READ   IN    THE    Q(X)       OR 

C M(X)       VALUES    (QXMX).       THE   FIRST      QXMX      VALUE   REFERS    TO    AGE   GROUP 

C 0-1.       THE    SECOND   VALUE   REFERS    TO    AGE    GROUP    1-4.       THE   REMAINING 

C VALUES    REFER    TO    THE    FIVE-YEAR    AGE    GROUPS      5-9,     10-14,     15-19,    ...    . 

C THE    LAST    VALUE    REFERS    TO   THE   OPEN-ENDED    AGE   GROUP. 

C A    MINIMUM    OF    15    VALUES    AND    A   MAXIMUM    OF    18    VALUES    CAN    BE   GIVEN. 

C QXMX      IS   CONTAINED    ON    TWO   CARDS.       EIGHT   COLUMNS    ARE   ALLOWED   FOR 

C EACH    VALUE.    NINE    VALUES    WILL    APPEAR   ON    THE    FIRST    CARD. 

C A    MINIMUM    OP   6    VALUES   AND    A    MAXIMUM    OF    9 

c VALUES    WILL   APPEAR    ON   THE    SECOND   CARD.       THE    VALUES    ON    EACH 

C CARD    SHOULD    BE   ENTERED    SO   THAT    THE    DECIMAL    POINTS    WILL    BE 

c IN   COLUMNS    2,     10,    18,    26,    34,    42,    50,    58,    AND   66. 

c 

c 

DIMENSION    QXNX(18)  ,XLT{18,8) 
NREAD=1 
NPRNT=15 
1    READ{NREAD,3) 

READ(NREAD,4)     NREG, NSEX, KODE, SEPO ,SEP1 , NXT 

READ(NREAD,5)     QXMX 

WRITE  (NPRNT,6) 

WRITE(NPRNT,3) 

CALL  ELT (NREG, NSEX, KODE, SEPO, SEP1 , QXMX, XLT) 

CALL  PLT(XLT,NSEX,5) 

IF  (NXT)  2,2,1 
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2  STOP 

3  F0RNAT(1X,52H 

4  F0RMAT(I1,1X,I1,1X,I1,1X,F5.3,  1X,  F5.3,  1X,  1 1) 

5  FORMAT  (9F8.5/9F8. 5) 

6  F0RMAT(1H1) 
END 


B.       COMPUTER    LISTING    FOR    SUBROUTINE 

c 

c 

SUBROUTINE  ELT  (NREG, NSEX, RODE, SEPO, SEP1, QXMX , XLT) 
c 

C PROGRAM  NO.  0370 

c 

C THE  INPUT  ARGUMENTS  TO  THIS  SUBROUTINE  ARE   NREG,  NSEX,  KODE, 

C SEPO,  SEP1,  AND  QXMX. 

C THE  OUTPUT  ARGUMENT  FROM  THIS  SUBROUTINE  IS   XLT. 

C NREG   IS  THE  CODE  INDICATING  THE  SOURCE  OF  THE  SEPARATION  FACTORS. 

C NSEX   IS  THE  CODE  INDICATING  THE  SEX  FOR  WHICH  THE  LIFE  TABLE 

c IS  BEING  CALCULATED. 

C KODE   IS  THE  CODE  INDICATING  WHETHER   Q (X)   OR   M (X)   VALUES  HAVE 

C BEEN  GIVEN. 

C SEPO   IS  THE  SEPARATION  FACTOR  FOR  AGE  GROUP  0-1. 

C SEP1   IS  THE  SEPARATION  FACTOR  FOR  AGE  GROUP  1-4. 

C QXHX   ARE  THE   Q(X)   VALUES  OR  THE   M  (X)   VALUES  FOR  AGE  GROUPS 

c 0-1,  1-4,  5-9,  10-14,  15-19,  ...  ,  80+. 

C XLT    IS  THE  ABRIDGED  LIFE  TABLE  GIVEN  AS  OUTPUT. 

c _ 

c 

DIMENSION  QXMX  (18)  , XLT  (18,8) 

DIMENSION  RGSP(2,2)  ,RGSP2(4,2)  ,RSA  (2,2)  ,RSB(2)  ,RSA2(4,2)  ,  RSB2  (2) 

DIMENSION  SP(2)»SA(2)  ,SB(2) 

NPRNT=  15 
C 
c 

C VERIFICATION  OF  INPUT  VALUES 

c 

C 

100  NERB=  0 
NBR  =  0 
NEX=  0 

IF  (NREG  -  1)  10,30,5 
5  CONTINUE 

IF    (NREG    -   5)    30,30,10 
10    WRITE  (NPRNT, 20) 
20    FORMAT (//   46H   ***    ELT    ERROR   NO.    0371    —    INPUT    ERROR    IN    NREG, 

*  /,83H    ***    CODE   INDICATING    THE    SOURCE  OF   THE   SEPARATION    FACTORS 

*  MUST    BE   BETWEEN       1       TO      5) 
NERR=1 

30    CONTINUE 

IF    (NSEX    -    1)     40,60,35 
35   CONTINUE 

IF     (NSEX   -    3)    60,60,40 
40    WRITE  (NPRNT, 50) 
50    FORMAT (//   46H    ***    ELT    ERROR   NO.    0372    —    INPUT    ERROR    IN    NSEX, 

*  /,74H    ***   CODE   INDICATING    SEX    OF   THE   POPULATION    MUST    BE   EQUAL 
♦TO       1,       2,       OR       3) 

NERR=1 
60  CONTINUE 

IF  (KODB-1)  104,120,102 
102  CONTINUE 

IF  (KODE-2)  104,120,104 
104  WRITE  (NPRNT, 111) 
111  FORMAT (//  46H  ***  ELT  ERROR  NO.  0373  —  INPUT  ERROR  IN  KODE, 

*  /,72H  ***  CODE  INDICATING   Q(X)   VALUES  OR   M  (X)   VALUES  MUST 
♦EQUAL   1   OR   2) 

NERR=  1 
120  CONTINUE 

IF  (SEPO  -  0.002)  125,130,122 
122  CONTINUE 

IF  (SEPO  -  0.5)  130,130,125 
125  NEB  =  1 
130  CONTINUE 

IF  (SEP1  -  0.5)  135,140,133 
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133   CONTINUE 

IF    (SEP1    -    2.0)     140,140,135 
135    NER    =    NER    +    2 
140    CONTINUE 

IF    (NER   -    0)     397,160,397 
145   CONTINUE 

IF     (NER    -    2)    150,155,150 
150    WRITE     (NPRNT,333) 
333    FORMAT (//   46H    ***    ELT   ERROR   NO.    0374    —    INPUT    ERROR    IN   SEPO 

*  /, 65H    ***    SEPARATION    FACTOR    FOR   AGE      0      BUST    BE   BETWEEN      .002 

*  AND      .5) 

IF    (NER    -    1)     157,157,155 
155    WRITE     (NPRNT,444) 
444    FORHAT(//   46H   ***    ELT    ERROE    NO.    0375    —   INPUT    ERROR   IN   SEP1 

*  /,71H    ***    SEPARATION    FACTOR    FOR    AGE   GROUP       1-4      MUST    BE    BETWEE 
*N       .5      TO       2.0) 

157    NERR    =    1 
C 
c . 

C VERIFICATION   AND   EXTRAPOLATION    OF    QXMX    VALUES 

c _ 

C 

160   DO    310   1=1,18 

K=I 

IF  (NEX)  170,170,230 
170  CONTINUE 

IF  (QXMX(I)  -  0.00001)  178,310,175 
175  CONTINUE 

IF  (QXHX(I)  -  0.99)  310,310,178 
178  CONTINUE 

IF  (KODE  -  T)  180,180,186 
180  CONTINUE 

IF  (QXMX(I)  -  0.99)  186,200,183 
183  CONTINUE 

IF  (QXMX  (I)  -  1.01)  200,200,186 
186  CONTINUE 

IF  (QXMX(I)  -  0.0001)  200,200,190 
190  WRITE  (NPRNT,555) 
555  FORMAT (//  46H  ***  ELT  ERROR  NO.  0376  —  INPUT  ERROR  IN  QXMX, 

*  /,64H  ***  ALL  VALUES  OF   Q(X)   OR   H (X)   MUST  BE  BETWEEN  ZERO 
*AND  ONE) 

NERR=  1 

GO    TO    340 
200    CONTINUE 

IF    (1-15)     210,220,220 
210    WRITE     (NPRNT,666) 

666    FORMAT (//   46H    ***    ELT    ERROR   NO.    0377    —    INPUT    ERROR    IN    QXMX,/, 
*61H    ***    A    MINIMUM    OF    15    VALUES    OF       Q(X)       OR      M  (X)        MUST    BE    GIVEN) 

NERR=1 

GO  TO  340 
220  CONTINUE 

IF  (NEX)  212,212,222 

212  CONTINUE 

IF  (KODE-1)  213,213,214 

213  NO=I+1 
NEX=1 
Q=QXMX(I) 
GO  TO  230 

214  NO=I 
Q=QXMX(I-1) 

222  NEX=  1 

230  CONTINUE 

IF    (KODE-1)     231,231,232 

231  K=I 

GO    TO    233 

232  K=I-1 

233  QXMX(K)=     (QXMX  (K-1)  **2)  /QXMX(K-2) 
IF     (QXMX(K)    -    0.00001)     240,310,235 

235   CONTINUE 

IF    (QXMX(K)     -    0.99)     3*0, 310,240 

240  CONTINUE 

IF    (K-18)    241,310,310 

241  WRITE     (NPRNT,777) 

777  FORMAT (//23H  ***  ELT  ERROR  NO.  0378,/, 81H  ***  AT  LEAST  ONE  EXTEAPO 

*LATED   Q(X)   OR  M (X)   VALUE  IS  NOT  BETWEEN  ZERO  AND  ONE) 
NERR=  1 
DO  24  3  J=NO,18 
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243    QXMX  (J)=0. 0 
242    QXMX(N0-1)=Q 

GO    TO    310 
310    CONTINUE 

IF    (NEHE    -    1)     400,340,340 
C 
c 

C PRINTING    OF    INPUT    BECAOSE    OF    ERROR 

c 

C 


340    WRITE     (NPRNT,999)     NREG,NSEX,KODE,SEP0,SEP1 ,QXHX 
999    FORMAT 
*   /11H 


/11H 
/11H 
/11H 
/11H 
/11H 
GO    TO 


(/25H 

NREG  = 
NSEX= 
KODE= 
SEP0= 
SEP1  = 
QXMX= 
900 


ELT    INPUT    ARGUMENTS, 
,16 
,16 
,16 
,F8.3 
,F8.3 
,9F10.5/    11X,9F10.5    ) 


c 

C COMPUTATION    OF    SEPARATION    FACTORS 

c _ . 

C 


397 


398 


399 


341 

342 

34  3 

344 

345 

346 
347 


349 

351 

352 
353 


CONTINUE 

IF    (NSEX    -    2)     398,398,145 

CONTINUE 

IF    (NREG    -    4)     399,399,145 

RGSP(1,1)  =0.33 

RGSP(1,2)=0.35 

RGSP(2,1)=0.29 

RGSP(2,2)=0-31 

RSA(1,1)  =0.0425 

RSA  (1,2)=0.05 

RS4  (2,1)=0.0025 

RSA  (2,  2)  =0.01 

RSB  (1)=2.875 

RSB  (2)=3.0 

RGSP2  (1,1)=1.352 

RGSP2  (1,2)  =  1-361 

RGSP2  (2,1)  =1.558 

RGSP2  (2,2)=1.570 

RGSP2  (3,1)=1.313 

RGSP2(3,2)  =1.  324 

RGSP2(4,1)=1.240 

RGSP2  (4,2)=1.239 

RSA2(1,1)=1.653 

RSA2(1,2)=1.524 

RSA2(2,1)=1.859 

RSA2  (2,2)=1.733 

RSA2  (3,1) =1.614 

RSA2(3,2)=1.487 

RSA2(4,1)=1.541 

RSA2(4,2)=1.402 

RSB2  (1)=-3.013 

RSB2(2)=-1.627 

CONTINUE 

IF  (KODE-1)  343,343,342 

CONTINUE 

IF  (QXMX  (1)-0.  1072)  349,344,344 

CONTINUE 

IF  (QXHX(1) -0.100)  349,344,344 

CONTINUE 

IF    (NREG-3)     345,346,345 

NN=1 

GO    TO    3«*7 

NN=2 

SEP0=RGSP(NN,NSEX) 

SEP1=RGSP2(NREG,NSBX) 

GO  TO  160 

CONTINUE 

IF  (NREG-3)  351,352,351 

NN=1 

GO  TO  353 

NN=2 

SA(1)  =RSA(NN,NSEX) 

SB(1)=RSB(NSEX) 
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SA  (2) =RSA2 (NREG,NSEX) 

SB(2)  =  RSB2(NSEX) 
355  CONTINUE 

IF  (KODE-1)  362,362,357 
357  AN=1.0 

N=1 
359  SAX=SA(N)*QXHX(1)+AN*QXHX(1)*1.0 

361  SP(N)=  (SAX-SQRT(SAX*SAX-4.*QXHX(1)  *  (SA  (N)  *QXMX  (1)  *AN+SA(N)  *SB(N) 
**AN*QXHX  (1)  ))  )/(2.0*QXHX  (1)  ) 

SEP0=SP(1) 

Q0  =  QXMX(1)/(1.O+(QXMX(1)*(1.0-SEPO))  ) 

SEP1  =  SA(2)*SB(2)*Q0 

GO  TO  160 

362  SEP0=SA(1)  *SB(1)*QXHX(1) 
SEP1  =  SA(2)  +SB(2)*QXMX(1) 
GO  TO  160 

C 

c _ 

C CALCOLATION  OF  Q(X)  AND  ENTERING  INTO  LIFE  TABLE 

c 

C 

400  GO  TO  (410,430)  ,KODE 
410  DO  420  1=1,17 
420  XLT  (1,1)  =  QXMX(I) 

GO  TO  450 
430  XLT(1,1)=  QXMX(1)/(1.0+(QXHX(1)*(1.0-SEP0)  )) 

XLT  (2,1)=  4.0*QXMX(2)/(1.0*(QXMX(2)*(4.0-SEP1))) 
DO  440  1=3,17 
440  XLT(I,1)=  10.0  *QXMX(I)  /  (2.0  +  QXHX  (I) *5. 0) 
C 
c 

C CALCOLATION  OF  I  (X)  AND  D  (X) 

c _ 

c 

450  XLT  (1,4)=  100000.0 
DO  460  1=1,17 

XLT(I,2)=  XLT(I,4)  *XLT(I,1) 
460  XLT  (1  +  1,4)=  XLT  (1,4)  -XLT  (1,2) 
XLT  (18,2)=  XLT  (18,4) 
XLT(18,1)=  1.0 
C 
c 

C CALCOLATION  OF  L(X)  AND  S  (X) 

c 

C 

XLT  (1,5)=   SEP0*100000.0    ♦    (1.0-SEPO)  *XLT(2,4) 

XLT(2,5)=    SEP1*XLT(2,4)     ♦    (4.0-SEP1)  *XLT(3,4) 

DO   470    1=3,17 

XLT  (1,5)  =    (XLT(I,4)+XLT(I+1,4))    *    2.5 
470    XLT(I-1,6)=    XLT(I,5)    /   XLT(I-1,5) 

XLT (1,6)*    (XLT(1,5)     ♦    XLT(2,5))    /    500000.0 

XLT  (2,6)=    XLT(3,5)     /    (    XLT(1,5)    +    XLT  (2,5)    ) 

XLT  (18,6)=    0.0 

XLT  (18,8)=    (XLT  (18,4)    *    0.0000625)     ♦    3.725 

XLT(18,7)=    XLT(18,8)    *    XLT(18,4) 

XLT(18,5)=    XLT(18,7) 
C 
c 

C CALCOLATION   OF    T  (X) 

c 

C 

DO    480    1=1,17 

J=    18   -    I 
480    XLT  (J, 7)=    XLT(J+1,7)    +   XLT  (J, 5) 

XLT(17,6)=    XLT(18,7)    /XLT  (17, 7) 
C 
c 

C CALCOLATION    OF    E(X)    AND   LIFE  TABLE    H  (X) 

C 

c 

DO    490    1=1,18 

XLT (1,3) =  XLT  (1,2)  /XLT (1,5) 
490  XLT (1,8) =  XLT  (1,7)  /XLT (1,4) 
GO  TO  1000 
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C 

c 

C ZEROING  OUT  OF  OOTPOT  BECAUSE  OF  ERROR 

c 

C 

900  DO  910  1=1,18 

DO    910   J=1,8 
910    XLT  (I,J)=    0.0 
1000    RETURN 
END 
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D-       SAMPLE    OUTPUT 
1st    SET 
SOUVENIR    HALE    Q (X) 


ABRIDGED   LIFE    TABLE 
HALES 
EHPIRICALLY    DERIVED 


6E 

Q(X) 

D(X) 

H(X) 

I(X) 

L(X) 

S(X) 

T(X) 

E 

IX) 

0 

0.09625 

9625. 

.10300 

100000. 

93447. 

.88912 

5869956. 

58. 

70 

1 

0.04180 

3778. 

.01076 

90375. 

351115. 

.96968 

5776509. 

63. 

92 

5 

0.00880 

762. 

.00177 

86597. 

431081. 

.99257 

5425394. 

62. 

65 

10 

0.00605 

519. 

.00121 

85835. 

427878. 

.99247 

4994313. 

58. 

18 

15 

0.00901 

769. 

.00181 

85316. 

424658. 

.98870 

4566436. 

53. 

52 

20 

0.01360 

1150. 

.00274 

84  547. 

419861. 

.98633 

4141779. 

48. 

99 

25 

0.01374 

1146. 

.00277 

83397. 

414122. 

.98477 

3721918. 

44. 

.63 

30 

0.01674 

1377. 

.00338 

82251. 

407815. 

.98193 

33077  97. 

40. 

.22 

35 

0.01943 

1571. 

.00392 

80874. 

400444. 

.97718 

2899983. 

35. 

86 

40 

0.02627 

2083. 

.00532 

79303. 

391307. 

.96910 

2499540. 

31. 

52 

l»5 

0.03565 

2753. 

.00726 

77220. 

379216. 

.95636 

2108234. 

27. 

30 

50 

0.05192 

3866. 

.01066 

74467. 

362668. 

.93674 

1729018. 

23. 

22 

55 

0.07523 

5311. 

.01563 

70600. 

339724. 

.90691 

1366351. 

19. 

35 

60 

0.11241 

7339. 

.02382 

65289. 

308098. 

.86127 

1026628. 

15. 

72 

65 

0.16839 

9758. 

.03677 

57950. 

265355. 

.78721 

718530. 

12. 

.40 

70 

0.26618 

12828. 

.06141 

48192. 

208890. 

.67130 

453175. 

9. 

.40 

75 

0.41390 

14637. 

.10438 

35364. 

140228. 

.42597 

244286. 

6. 

91 

80 

1.00000 

20727. 

.19919 

20727. 

104058. 

.0 

104058. 

5. 

02 

2nd    SET 
SOUVENIR    MALE H  (X) 


ABRIDGED    LIFE    TABLE 
HALES 
EHPIRICALLY    DERIVED 


GE 

Q(X) 

D(X) 

M(X) 

I(X) 

L(X) 

S(X) 

T(X) 

E(X) 

0 

0.09625 

9625. 

.10300 

100000. 

93447. 

.88912 

5869966. 

58.70 

1 

0.04180 

3778. 

.01076 

90375. 

351114. 

.96967 

5776519. 

63.92 

5 

0.00881 

76  3. 

.00177 

86597. 

431077. 

.99257 

54254  06. 

62.65 

10 

0.00603 

518. 

.00121 

85834. 

427875. 

.99248 

4994330. 

58.19 

15 

0.00901 

769. 

.00181 

85316. 

424659. 

.98870 

4566456. 

53.52 

20 

0.01361 

1150. 

.00274 

84547. 

419861. 

.98632 

4141798. 

48.99 

25 

0.01375 

1147. 

.00277 

83397. 

414117. 

.98475 

3721938. 

44.63 

30 

0.01676 

1378. 

.C0338 

82250. 

407803. 

.98193 

3307822. 

40.22 

35 

0.01941 

1570. 

.00392 

80871. 

400433. 

.97720 

2900019. 

35.86 

40 

0.02625 

2082. 

.00532 

79302. 

391304. 

.96911 

2499587. 

31.52 

45 

0.03565 

2753. 

.00726 

77220. 

379217. 

.95636 

2108283. 

27.30 

50 

0.05192 

3866. 

.01066 

74467. 

362669. 

.93675 

1729067. 

23.22 

55 

0.07521 

5310. 

.01563 

70601. 

339729. 

.90692 

1366399. 

19.35 

60 

0.11241 

7339. 

.02382 

65291. 

308106- 

.86128 

1026670. 

15.72 

65 

0.16837 

9757. 

.03677 

57952. 

265365. 

.78722 

718564. 

12.40 

70 

0.26618 

12829. 

.06141 

48194. 

208900. 

.67130 

453199. 

9.40 

75 

0.41389 

14638. 

.10438 

35366. 

140234. 

.42597 

244300. 

6.91 

80 

1.00000 

20728. 

.19918 

20728. 

104065. 

.0 

104065. 

5.02 
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3rd    SET 
SOUVENIR    MALE    WITH    SEPARATION    FACTORS 


ABRIDGED   LIFE    TABLE 
HALES 
EMPIRICALLY    DERIVED 


GE 

Q(X) 

D(X) 

M(X) 

I(X) 

MX) 

S(X) 

T(X) 

E(X) 

0 

0.09625 

9625. 

.10300 

100000. 

93445. 

.88912 

5869954. 

58.70 

1 

0.04180 

3778. 

.01076 

90375. 

351115. 

.96968 

5776509. 

63.92 

5 

0.00880 

76  2. 

.00177 

86597. 

431081. 

.99257 

5425394- 

62.65 

10 

0.00605 

519. 

.00121 

85835. 

427878. 

.99247 

4994313. 

58.18 

15 

0.00901 

769. 

.00181 

85316. 

424658. 

.98870 

4566436. 

53.52 

20 

0.01360 

1150. 

.00274 

84547. 

419861. 

.98633 

4141779. 

48.99 

25 

0.01374 

1146. 

.00277 

83397. 

414122. 

.98477 

3721918. 

44.63 

30 

0.01674 

1377. 

.00338 

82251. 

407815. 

.98193 

3307797. 

40.22 

35 

0.01943 

1571. 

.00392 

80874. 

400444. 

.97718 

2899983. 

35.86 

40 

0.02627 

208  3. 

.00532 

79303. 

391307. 

.96910 

2499540. 

31.52 

45 

0.03565 

2753. 

.00726 

77220. 

379216. 

.95636 

2108234. 

27.30 

50 

0.05192 

3866. 

.01066 

74467. 

362668. 

.93674 

1729018. 

23.22 

55 

0.07523 

5311. 

.01563 

70600. 

339724. 

.90691 

1366351. 

19.35 

60 

0.11241 

7339. 

.02382 

65289. 

308098. 

.86127 

1026628. 

15.72 

65 

0.16839 

9758. 

.03677 

57950. 

265355. 

.78721 

718530. 

12.40 

70 

0.26618 

12828. 

.06141 

48192. 

208890. 

.67130 

453175. 

9.40 

75 

0.41390 

14637. 

.10438 

35364. 

140228. 

.42597 

244286. 

6.91 

80 

1.00000 

20727. 

.19919 

20727. 

104058. 

.0 

104058. 

5.02 

4th    SET 
SOUVENIR    HALE    Q (X)    EXTRAPOLATION 


ABRIDGED    LIFE    TABLE 
HALES 
EMPIRICALLY    DERIVED 


GE 

Q(X) 

D(X) 

M(X) 

I(X) 

MX) 

S(X) 

T(X) 

E(X) 

0 

0.09625 

9625. 

.10300 

100000. 

93447. 

.88912 

5  8884  09. 

58.88 

1 

0.04180 

3778. 

.01076 

90375. 

351115. 

.96968 

5794962. 

64.12 

5 

0.00880 

762. 

.00177 

86597. 

431081. 

.99257 

5443847. 

62.86 

10 

COO  605 

519. 

.00121 

85835. 

427878. 

.99247 

5012766. 

58.40 

15 

0.00901 

769. 

.00181 

85316. 

424658. 

.98870 

4584889. 

53.74 

20 

0.01360 

1150. 

.00274 

84547. 

419861. 

.98633 

4160232. 

49.21 

25 

0.01374 

1146. 

.00277 

83397. 

414122. 

.98477 

3740371. 

44.85 

30 

0.01674 

1377. 

.00338 

82251. 

407815. 

.98193 

3326250. 

40.44 

35 

0.01943 

1571. 

.00392 

80874. 

400444. 

.97718 

2918436. 

36.09 

40 

0.02627 

208  3. 

.00532 

79303. 

391307. 

.96910 

2517993- 

31.75 

45 

0.03565 

2753. 

.00726 

77220. 

379216. 

.95636 

2126687. 

27.54 

50 

0.05192 

3866. 

.01066 

74467. 

362668. 

.93674 

1747471. 

23.47 

55 

0.07523 

5311. 

.01563 

70600. 

339724. 

.90691 

1384804. 

19-61 

60 

0.11241 

7339. 

.02382 

65289. 

308098. 

.86127 

1045080. 

16.01 

65 

0.16839 

9758. 

.03677 

57950. 

265355. 

.79354 

736982. 

12.72 

70 

0.25225 

12156. 

.05773 

48192. 

210568. 

.69401 

471628. 

9-79 

75 

0.37787 

13617. 

.09318 

36036. 

146136. 

.44022 

261060. 

7.24 

80 

1.00000 

22419. 

.19508 

22419. 

114923. 

.0 

114923. 

5.13 
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5th  SET 
TEST  OF  ERROR  0373 


***  ELT  ERROR  NO.  0373  —  IMPOT  ERROR  IN  KODE 

***  CODS  INDICATING   Q(X)   VALUES  OR   B  (X)   VALUES  HOST  EQUAL 


1   OR   2 


ELT  INPUT  ARGUMENTS, 


NREG= 

4 

NSEX= 

1 

KODE= 

0 

SEP0= 

0.319 

SEP1= 

1.251 

QXSX= 

0.09625 

0.04180 

0.003  8  0 

0.00605 

0.00901 

0.01360 

0.01374 

0.01674 

0.01943 

0.02627 

0.03565 

0.05192 

0.07523 

0.  11241 

0.16839 

0.26618 

0.41390 

0.64360 

ABRIDGED  LIFE  TABLE 
HALES 
EHPIRICALLY  DERIVED 


AGE 


Q(X>     D(X)    H(X)     I(X) 


L(X) 


S(X) 


T(X) 


E(X) 


0 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

1 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

5 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

10 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

15 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

20 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

25 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

30 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

35 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

40 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

45 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

50 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

55 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

60 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

65 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

70 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

75 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

80 

0.0 

0. 

.0 

0. 

0. 

.0 

0. 

0.0 

FWDRV 

I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To  adjust  aqe-sex  distributions  obtained  from  two  population  censuses 
taken  10  years  apart.  The  results  present  the  original  and  smoothed  pop- 
ulation distributions  and  the  differences  between  them  for  each  of  the 
enumeration  dates. 

B.  DATA   NEEDED 

1.  The  male   population   in  5-year  age  groups  for   the   later  date. 

2.  The   female   population   in   5-year   age   groups   for   the   later   date. 

3.  The  male   population  in  5-year   age  groups  for  the  earlier  date. 
H.  The   female  population  in   5-year  age   groups  for  the  earlier   date. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  population  distribution  by  5-year  age  groups  at  time  t  (  P  )  is 
projected  5  years  up  to  time  t+5  x 


JILT5  =  rpt  '  .S*'^5  for  x  =  0,   5,   10,    -..,  w 

5  x+5  5  x    5  x 

where 

P  *     is  the  projected  population  at  time  t+5  from  the  population 

at  time  t. 

rSt,t:  is  the  survival  rate  for  ages  x,x+4  for  the  period  t,t+5. 

5  x 

Also,  the  population  distribution  by  5-year  age  groups  at  time  t+10 


2   t+5 

(   P  ' ^    )    is  rejuvenated  to  year   t+5   as 


pt+10 
p2,t+5  =         5  x+10 


5  x+5  „ t+5, t+10 

5Sx+5 


where 

p2»t+5      is   the   rejuvenated    population  from   year   t  +  10. 

5  x+5 

An   average  of  the  projected   and  rejuvenated  population  is   made  as 


«pt+5  =  _1_  ,  p1,t+5  +    p2,t+5^ 
5^x+5        2     Vx+5  5  x+5     } 
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The  average   population  is  projected   to    year   t+10   and  rejuvenated   to 
year   t   as  the   "adjusted"   population. 


V+1  °  =    APt+5  •    qt+5 » t+1  ° 
5  x+10      5    x+5     5  x+5 


APt+5 


5Sx 


The   survival,  rates   used   in   the   last   projection  and   rejuvenation   are 
those  used  before. 

The   percent  difference  between  the  original   and  the   adjusted  distri- 
butions  is  calculated  as  follows: 


pt+10  _  *pt+10 


pDt+10  .  _l_x+10 5  x+10 

'     J'  *pt+1° 

5  x+10 


S    x+10  *pt+10 


t       *  t 
P     -     P 

PD*  -  _l_x L_x_  100 

5     x  *  t  luu* 

5  x 


B.       COMMENTS 

The    basic  assumption  behind   this   technigue   is  that   both    distributions   have 
the  same  net   undercounts  or  overcounts   by  age  and   sex. 

Mhen  usinq   the  main   proqram  in   Section  v.  A.    and   age-specific  fertility 
rates  are  given  as  input  for  the   first   5-year  period,   the  comparison  of   the 
adjusted  and   enumerated   population   are   valid   for  all  age  groups   at   both   the 
mid-point  of   the   interval  and  the   date  of  the  later   distribution.      Otherwise, 
the  comparison  does  not   apply  to  age   group   0-4  at  the  mid-point   or  to  5-9  at 
the  date  of  the   later  distribution. 

III.    MAIN      PROGRAM 

A.       REQUIREMENTS 

The  main   program  is  reguired   to   use   this   subroutine   and  obtain  the  data 
(input)    necessary  for  the  subroutine   to   perform  its  calculations.      A  main 
program  can  use  a  subroutine  alone   or  in  conjunction  with  other  subroutines. 
For   a  detailed  explanation  of  writing  main  programs   using  more  than  one   sub- 
routine  see   the   Appendix. 

1 .      CALL   statement 

Once  the  main  program  has  obtained   the  data   required   for  the   subroutine  to 
do   its  calculations,    the  main  program  transmits   this  data  to  the  subroutine 
and  the   subroutine  returns  the  results  of  the  calculations   performed  to   the 
main   proqram.      This   communication   process  is  made  through   the  CALL  statement. 
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The  form  of  the  C&LL  statement  for  this  subroutine  is  as  follows: 

CALL  FWDRV (PMA,PPMA, PFA, PPFA,PHB, PPHB, PPB,PPPB,SXMA,SXFA,SXMB,SXF 

*B,ASFR1, ASFR2,SRB„YEAR1,YEAR2) 


Foe  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  the  variables  PMA,PPMA,PFA, PPFA, PMB, PPMB, PFB,PPFB,SXMA, 
SXFA,SXHB,SXFB, ASFR1,  and  ASFR2,  in  the  argument  string  are  arrays.   The 
following  dimension  statement  must  be  included  in  any  main  program  using  this 
subroutine. 

DIMENSION  PHA(17)  ,PPMA  (17)  ,PPA(17)  ,PPFA(17)  ,PMB(17)  ,PPMB(17)  ,PFB(1 
*7)  ,PPFB(17)  ,SXMA(17)  ,SXFA  (17),  SXMB  (17)  ,SXFB(17)  ,ASFR1  (7)  ,ASFR2(7) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 

a.  ABRBV 

b.  PR0J5 

c.  REVR5 

d.  MLT* 

e.  ELT* 

f.  GTCON* 

*  These  subroutines  are  not  called  by  the  subroutine  FWDRV.   They 
are  used  only  by  the  main  program. 

2.  Library  Functions 
ABS (absolute  value) 
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3.   Card  Diagram  of  main  program,  subroutines,  and  functions. 


/  CARDS  INDICATING  END  OF  DECK      / 
/ _/ 

/  INPUT  DATA  /| 

/  "    COBPOfER~CONTROL~CABDS        /]     \ 
/  SDBR00flNE~GTCON^  /|  |  J 

/       ""sobrootine'elt""      "~/i  I  |  / 


SDBROOTINE  NLT 


/    I     I     I/ 

/III/ 
_/    I     I     1/ 
/III/ 


/. 


/ 

/ 

/  SUBROUTINE   REVR5 

. /    III/ 

SUBBOUTINE    PROJ5  /111/ 

/    111/ 

SUBROUTINE    ABREV  /III/ 

/    III/ 

SUBROUTINE    FWDRV  /III/ 
/    III/ 


/ 
/ 

/         COMPUTER  CONTROL  CARDS 
/ 


RAIN  PROGRAM         /III/ 

/  III/ 

/III/ 
/III/ 
I  I  / 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV.  B.  See  example,  section  V. C. 


Variable 
Card  Columns   Name    Definition 


1 

2-53 

5U-80 

1 

2 
3-4 

5-6 

7-10 


11-1U 
15-20 


NXT 


DAT 


THO 


TEAR 


SRB 


Blank 

Label  used  to  identify  the  output 

Blank 


A  zero  punched  in  column  1  indicates  this 
is  the  last  set  of  data.  Any  other  digit 
punched  in  column  1  indicates  another  set 
of  data  follows  this  one. 

Blank 

Day  of  the  month  for  which  the  later 
population  is  given 

Month  of  the  year  for  which  the  later 
population  is  given. 

Tear  for  which  the  later  population  is 
given 

Blank 

Sex  ratio  at   birth. 
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21-22    IKODE 


23 


24-80 
1-8 

9-16 

73-80 

1-8 
9-16 

4  9-56 
57-80 


K&SF 


PM 


PH 


Mortality  indicator  used  to  deter- 
mine whether  survival  rates  are  to 
be  provided  or  if  Coale-Demeny 
Regional  Model  Life  Tables  are  to  be 
used  for  the  two  5-year  intervals. 
Column  21  is  used  as  the  indicator 
for  the  last  half  of  the  10-year 
interval  and  Column  22  is  used  for 
the  first  half  of  the  10-year 
interval-   1  1  in  Column  21  or  22 
indicates  that  mortality  for  the  last 
half  or  the  first  half,  respectively, 
of  the  10-year  interval  is  provided 
by  survival  rates.   A  2  in  Column  21 
or  22  indicates  mortality  for  the  last 
or  first  half,  respectively,  of  the 
10-year  interval  is  based  on  the  Coale- 
Demeny  Regional  Model  Life  Tables.   Any 
other  value  is  an  error  and  the  main 
program  will  stop. 


Fertility  indicator 
whether  age-specific 
are  to  be  provided  f 
of  the  10-year  inter 
in  column  23  indicat 
fertility  rates  are 
date  of  the  earlier 
later.   If  any  other 
in  column  23,  the  pr 
age-specific  fertili 
half  of  the  10-year 

Blank 


which  specifies 

fertility  rates 
or  the    first  half 
val.      A  one   punched 
es  age-specific 
provided  for   the 
distribution  and   five   years 

number  is  punched 
ogram  will  make  the 
ty  rates  for  the  first 
interval  be  all  zeros. 


The  male  population  0-4  for  the  earlier 
distribution.   The  number  should  end 
in  Column  8. 

The  male  population  5-9  for  the  earlier 
distribution.   The  number  should  end 
in  Column  16. 


The  male  population  45-49  for  the 
earlier  distribution.   The  number  should 
end  in  column  80. 


The  male  population  50-54  for  the  earlier 
distribution.   The  number  should  end 
in  column  8. 

The  male  population  55-59  for  the  earlier 
distribution.   The  number  should  end  in 
column  16. 


The  male  population  80+  for  the  earlier 
distribution.  The  number  should  end  in 
column  56. 

Blank 


The  variable  PH  always  reguires  two  cards.   The  first 
card  (Card  no.  3)  must  always  contain  data,  whereas  the 
second  card  (Card  no.  4)  can  contain  all  zeroes,  depending 
on  the  number  of  age  groups  given.   The  last  age  group 
given  must  always  be  the  open-end  age  group. 

Ill  I 

J  5   |   1-8   |PF  | The  fenale  population  0-4  for  the  earlier 

|     |        |  (distribution.   The  number  should  end  in 

|     |        I  | column  8. 
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9-16 


73-80 


1-8 


9-16 


49-56 


57-80 


PF 


The  female  population  5-9  for  the  earlier 
distribution.   The  number  should  end  in 
col umn  16. 


The  female  population  4  5-49  for  the  earlier 
distribution.   The  number  should  end  in 
column  80. 


The  female  population  50-54  for  the  earlier 
distribution.   The  number  should  end  in 
column  8. 

The  female  population  55-59  for  the  earlier 
distribution.   The  number  should  end  in 
column  16. 


The  female  population  8  0+  for  the  earlier 
distribution.   The  number  should  end  in 
column  56. 

Blank 


The  variable  PF  always  requires  two  cards.   The  first 
card  (Card  no.  5)  must  always  contain  data,  whereas  the 
second  card  (Card  no.  6)  can  be  all  zeroes  depending  on 
the  number  of  age  group  given.   The  last  age  group  must 
always  be  the  open-ended  age  group. 


1-8 


9-16 


73-80 


1-8 


9-16 


49-56 


57-80 


PH 


PH 


I 

I  The  male  population  0-4  for  the  later 
(distribution.   The  number  should  end  in 
[column  8. 

The  male  population  5-9  for  the  later 
distribution.   The  number  should  end  in 
column  16. 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

(The  male  population  80+  for  the  later 

(distribution.   The  number  should  end  in 

| column  56. 

I 

|  Blank 


The  male  population  45-49  for  the 
later  distribution.   The  number 
should  end  in  column  80. 


The  male  population  50-54  in  the  later 
distribution.   The  number  should  end  in 
column  8. 

The  male  population  55-59  for  the  later 
distribution.  The  number  should  end  in 
column  16. 


The  variable  PH  always  reguires  two  cards.   The  first 
card  (Card  no.  7)  must  always  contain  data,  whereas  the 
second  card  (Card  no.  8)  can  contain  all  zeroes  depending 
on  the  number  of  age  groups  given.   The  last  age  group 
given  must  always  be  the  open-end  age  group. 


1-8 


I 
PF      | The  female  population  0-4  for  the  later 
(distribution.   The  number  should  end  in 
| Col umn  8. 
I 
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10 


9-16 


73-80 


1-8 


9-16 


49-56 


57-80 


PF 


The  female  population  5-9  for  the  later 
distribution.  The  number  should  end  in 
Column    16. 


The    female    population  4  5-49   for   the   later 
distribution.      The  number  should   end   in 
Column   80. 


The   female    population   50-54    for   the   later 
distribution.      The   number   should   end   in 
Column   8. 

The   female    population  55-59   for   the   later 
distribution.      The  number  should   end   in 
Column   16. 


The  female  population  80+  for  the  later 
distribution.  The  number  should  end  in 
Column  56. 

Blank 


The  variable  PF  always  requires  two  cards.   The  first  card 
(Card  no.  9)  must  always  contain  data  whereas  the  second  card 
(Card  no.  10)  can  be  all  zeroes  depending  on  the  number  of  age 
group  given.   The  last  age  group  must  always  be  the  open-ended 
age  group. 


111 


12 


13 


1-8 


9-16 


17-80 


1-8 


9-16 


73-80 


1-8 


9-16 


PHMT 


PHM 


PMB 


The   total   number   of   migrants   for   the   first 
five   years   of   the   10-year   interval.      The 
number  should  end   in   column   8. 

The   total   number   of   migrants  for   the   last 
five    years   of    10-year  interval.      The 
number  should   end   in   column    16. 

Blank 


The  proportion  of  the  total  migrants  during 
the  first  five  years  of  the  10-year  interval 
who  are  males  age  0-4.   The  decimal  point 
is  in  column  1. 

The  proportion  of  the  total  migrants  during 
the  first  five  years  of  the  10-year  interval 
who  are  males  5-9.   The  decimal  point  is  in 
column  9. 


The  proportion  of  the  total  migrants  during 
the  first  five  years  of  the  10-year  interval 
who  are  males  45-49.   The  decimal  point  is 
in  column  73. 


The  proportion  of  the  total  migrants  during 
the  first  five  years  of  the  10-year  interval 
who  are  males  50-54.   The  decimal  point  is  in 
column  1. 

The  proportion  of  the  total  migrants  during 
the  first  5- years  of  the  10-year  interval  who 
are  males  55-59.   The  decimal  point  is  in 
column  9. 
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49-56 


57-80 


I  The  proportion  of  the  total  migrants  during 
j the  first  five  years  of  the  10-year  interval 
I  who  are  males  80*.   The  decimal  point  is  in 
(column  49. 

I 

I  Blank 


Two  cards  must  always  be  provided  for  the  variable  PMH 
for  the  first  5-year  interval.   Values  are  provided 
only  for  age  groups  in  which  there  were  migrants.   The  last 
group  given  is  not  assumed  to  be  the  open-ended  age  group 
unless  it  is  the  seventeenth  value  or  is  the  same  number  of 
age  groups  as  given  for  the  population  distribution. 


14 


15 


1-8 


9-16 


73-80 


1-8 


9-16 


49-56 


57-80 


PMF 


PMF 


The  proportion  of  the  total  migrants 
during  the  first  five  years  of  the  10-year 
interval  who  are  females  0-4.   The 
decimal  point  is  in  column  1. 

The  proportion  of  the  total  migrants 
during  the  first  five  years  of  the  10-year 
interval  who  are  females  5-9.   The  decimal 
point  is  in  column  9. 


The  proportion  of  the  total  migrants 
during  the  first  five  years  of  the  ten 
year  interval  who  are  females  45-59. 
The  decimal  point  is  in  column  73. 


The  proportion  of  the  total  migrants 
during  the  first  five  years  of  the  10-year 
interval  who  are  females  50-54.  The 
decimal  point  is  in  column  1. 

The  proportion  of  the  total  migrants 
during  the  first  five  years  of  the  10-year 
interval  who  are  females  55-59.   The 
decimal  point  is  in  column  9. 


The  proportion  of  the  total  migrants 
during  the  first  five  years  of  the  10-year 
interval  for  females  80+.   The  decimal 
point  is  in  column  49. 

Blank 


The  reguirements  for  PMF  are  the  same  as  for  PMM. 
The  sum  of  the  proportion  of  PMM  and  PMF  for  all  ages 
for  the  first  5-year  interval  must  add  to  1.00. 
For  the  first  5-year  interval  the  proportion  of 
male  migrants  by  5-year  age  groups  is  followed  by  the 
proportion  of  female  migrants  by  5-year  age  groups  for 
the  first  5-year  interval.   So  there  are  four 
cards  for  the  first  5-year  interval  --  two  cards 
for  male  migrants  and  two  cards  for  female  migrants. 


16 


1-8 


9-16 


I 
PMM  | The    proportion   of  the  total   migrants 

I  during  the   last   five  years  of  the    10-year 
| interval    who   are  males  age   0-4.      The 
| decimal    point   is  in   column    1. 

I 

| The  proportion  of  the  total  migrants 

| during  the  last  five  years  of  the  10- 

J year  interval  who  are  males  5-9.   The 

I  decimal  point  is  in  column  9. 

I 

I 
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17 


73-80 


1-8 


49-56 


57-80 


| The    proportion  of   the  total   migrants 
I  during  the    last   five   years   of   the    10-year 
(interval   who  are   males   45-49.      The   deci- 
Jmal    point    is   in  column   73. 
I 
I 
PHH  | The    proportion   of  the   total   migrants 

| during  the  last   five   years  of   the    10- 
lyear   interval    who   are  males   50-54.      The 
| decimal    point   is   in   column    1- 


I 

|The  proportion  of  the  total  migrants 
| during  the  last  five  years  of  the 
| 10-year  interval  who  are  males  80+ 
| The  decimal  point  is  in  column  49. 

I 

| Blank 


Two  cards  must  always  be  provided  for  the  variable 
PHH  for  the  last  5-year  interval-   Values  are 
provided  only  for  age  groups  in  which  there  were  migrants. 
The  last  group  given  is  not  assumed  to  be  the  open-ended 
age  group  unless  it  is  the  seventeenth  value  or  is  the 
same  number  of  age  groups  as  given  for  the  population 
distribution. 


18 


19 


1-8 


73-80 


1-8 


9-16 


49-56 


57-80 


PMF 


PHF 


The  proportion  of  the  total  migrants 
during  the  last  five  years  of  the 
10-year  interval  who  are  females 
0-4.   The  decimal  point  is  in  column  1. 


The  proportion  of  the  total  migrants 
during  the  last  five  years  of  the 
10-year  interval  who  are  females  45-49. 
The  decimal  point  is  in  column  7  3. 


The  proportion  of  the  total  migrants 
during  the  last  five  years  of  the  10- 
year  interval  who  are  females  50-54.   The 
decimal  point  is  in  column  1. 

The  proportion  of  the  total  migrants 
during  the  last  five-years  of  the  10- 
year  interval  who  are  females  55-59. 
The  decimal  point  is  in  column  9. 


The  proportion  of  the  total  migrants 
during  the  last  five  years  of  the 
10-year  interval  for  females  80+.   The 
decimal  point  is  in  column  49. 

Blank 


The  requirements  for  PHF  are  the  same  as  for  PHH. 
The  sum  of  the  proportion  of  PHH  and  PHF  for  all  ages 
for  the  last  5-year  interval  must  add  to  1.00. 
For  the  last  5-year  interval  the  proportion  of 
male  migrants  by  5-year  age  groups  is  followed  by  the 
proportion  of  female  migrants  by  5-year  age  groups. 
So  there  are  four  cards  for  the  last  5-year  interval — 
two  cards  for  male  migrants  followed  by  two  cards  for 
female  migrants. 

The  next  group  of  cards  depends  on  the  value  given  for 
RODE  in  Columns  21  and  22  of  Card  2. 

If  K0DE=11,i.e.  columns  21  and  22  of  card  2  contain  11,  survival 
rates  are  read  for  both  the  first  and  last  five  years  of  the 
10-year  interval. 
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20 


21 


22 


23 


24 


1-8 


9-16 


73-80 


1-8 


49-56 

57-80 
1-8 

9-16 


73-80 


1-8 


49-56 

57-80 
1-8 


SEX 


SRX 


SRX 


SRX 


SRX 


The  survival   rate  for  male   births 
surviving  to  age   0-4   for  the   first 
five  years  of   the   10-year  interval. 
The   decimal    point  should  be   in 
column  1 . 

The  survival   rate  for  males  of  age 
0-4   surviving  to  age  5-9  for  the 
first  five   years  of   the    10-year 
interval.      The  decimal   point  should 
be   in  column   9. 


The  survival   rate  for  males  age   40-44 
surviving  to   age  45-49   for   the  first 
five   years  of   the  10-year  interval. 
The   decimal    point  is  in  column  73. 


The  survival   rate  for  males   age   45- 
49   surviving  to  age    50-54  for  the 
first   five   years  of    the    10-year 
interval.      The  decimal   point  should 
be   in  column   1. 


The   survival  rate  for  males  ages   75+ 
surviving   to   80+   for  the  first   five 
years  of   the   10-year   interval.      The 
decimal    point   is   in   column   4  9. 

Blank 


The  survival  rates  for  female  births 
surviving  to  0-4  for  the  first  five 
years  of  the  10-year  interval.   The 
decimal  point  is  in  column  1. 

The  survival  rate  for  females  0-4 
surviving  to  5-9  for  the  first  five 
years  of  the  10-year  interval.   The 
decimal  point  is  in  column  9. 


The  survival  rate  for  females  40-44 
surviving  to  45-49  for  the  first  five 
years  of  the  10-year  interval.   The 
decimal  point  is  in  column  73. 


The  survival  rate  for  females  45-49 
surviving  to  50-54  for  the  first  five 
years  of  the  10-year  interval.   The 
decimal  point  is  in  column  1. 


The  survival  rate  for  females  75+ 
surviving  80+  for  the  first  five  years 
of  the  10- year  interval.   The  decimal 
point  is  in  column  49. 

Blank 


The  survival  rate  for  male   births 
surviving  to   0-4  for   the  last 
five  years  of  the   10-year  interval. 
The  decimal    point  is  in   column   1. 
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25 


26 


27 


9-16 


73-80 


1-8 


49-56 

57-80 
1-8 


73-80 


1-8 


U9-56 


57-80 


SRX 


SRX 


SRX 


The   survival   rate   for  males   0-4 
surviving  to   5-9   for  the  last   five 
year   interval.      The   decimal   point   is 
in  column   9. 


The   survival   rate  for  males  40-44 
surviving   to   45-49   for   the   last 
five   years   of   the   10-year  interval. 
The   decimal    point  is   in   column  7  3. 


The   survival    rate   for  males   45-49 
surviving   to   50-54   for   the    last 
five   years   of   the   10-year  interval. 
The   decimal    point   is   in   column   1. 


The   survival   rate  for  males   75+ 
surviving   to   80+   for   the  last   five 
years  of   the    10-year   interval.      The 
decimal    point   is   in   column   4. 

Blank 


The   survival   rate  for  female   births 
surviving   to  age   0-4    for   the  last 
five   years  of   the   10-year   interval. 
The   decimal    point   is   in   column   1. 


The   survival   rate   for   females    40-44 
surviving   to   45-49   for   the    last 
five   years   of   the   10-year  mortality 
interval.      The   decimal   point   is   in 
column  73. 


The   survival    rate  for   females  45-49 
surviving  to   50-54   for   the   last 
five   years  of   the   10-year  interval. 
The   decimal    point   is   in    column   1. 


The  survival   rate  for  females  75+ 
surviving  to   age   80+    for   the  last 
five   years  of   the   10-year   interval. 
The   decimal    point   is   in   column  49. 

Blank 


If  less  than  17  survival  rates  are  to  be  given  for 
either  sex  in  either  the  beginning  or  ending  5-year  period, 
two  cards  must  still  be  used  for  each  sex  with  data  in  the 
number  of  columns  needed.   The  last  survival  rate  given  for 
each  sex  for  each  5-year  period  must  be  the  open-ended 
survival  rate. 

If  K0DE=12,  i.e.  columns  21  and  22  of  card  2  contain  12,  then  survival 
rates  are  read  for  the  first  five  years  of  the  10-year  interval  and 
Coale-Demeny  Regional  Model  Life  Tables  are  used  for  the  last  five 
years  of  the  10-year  interval.   Card  20  through  23  for  K0DE=11  are 
required.   The  following  card  is  needed  for  the  last  five  years  of 
the  10-year  interval. 


24 


1-6 


EO      | Life  expectancy  at  birth  for 
(males  for  the  last  five  years 
I  of  the  10- year  interval.   The 
| decimal  point  should  be  in 
| column  3. 
I 
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7-12 


13 


14-80 


I  Life  expectancy  at  birth  for 
j females  for  the  last  five  years 
jof  the  10-year  interval. 
| The  decimal  point  should  be  in 
| column  9. 
I 
NREG     J  The  region  in  the  Coale-Demeny 
I  Regional  Model  Life  Tables  to 
I  be  used.   NREG=1,2,3,  or  4 
I  indicates  the  Rest,  North,  East, 
| or  South  region,  respectively. 
I 
| Blank 


If  K0DE=21,  i.e.  columns  21  and  22  of  card  2  contain  21,  then  Coale-Demeny 
Regional  Model  Life  Tables  are  used  for  the  first  five  years  and  survival 
rates  are  read  for  the  last  five  years. 


20 


1-6 


7-12 


13 


14-80 


EO      | Life  expectancy  at  birth  for 

| males  for  the  first  five  years  of  the 

| 10-year  interval.   The  decimal  point  should 

I  be  in  column  3. 

I 

| Life   expectancy   at  birth  for   females 

I  for   the   first   five  years  of   the    10-year 

I  interval.      The   decimal   point   should   be 

I  in   column   9. 

I 

NREG  | The   region   in  the  Coale-Demeny 

| Regional   Model   Life   Tables   to   be 

| used.      NREG=1,2,3,   or  4    indicates 

|the   Vest,    North,    East,    or  South 

(region,    respectively. 

I 

I  Blank 


Cards  21  through  24  are  the  same  as  Cards  24  through  27 
for  K0DE=11. 

If  K0DE=22,i.e.  columns  21  and  22  of  card  2  contain  22,  then  Coale- 
Demeny  Regional  Model  Life  Tables  are  used  for  both  the  first  and 
last  five  years  of  the  10-year  interval.   Card  20  is  the  same  as 
Card  20  for  K0DE=21.   Card  21  is  the  same  as  Card  24  for  K0DE=12. 

If  KASF=1,  i.e.  column  23  of  card  2  contains  a  1,  the  following  cards 
are  needed.  For  any  other  number  in  column  23  of  card  1,  these  cards 
are  not  needed. 


21*i 


22*i 


1-7 


8-14 


43-49 


50-80 


1-7 


ASFR 


ASFR 


Age-specific  fertility  rate  for 
age  group  15-19  for  the  date  of  the 
earlier  distribution.   The  decimal 
point  should  be  in  Column  1 . 

Age-specific  fertility  rate  for  the 
age  group  20-24  for  the  date  of  the 
earlier  distribution.   The  decimal 
point  should  be  in  Column  8. 


Age-specific  fertility  rate  for 
the  age  group  45-49  for  the  date 
of  the  earlier  distribution.   The 
decimal  point  should  be  in  column  43. 

Blank 


Age-specific  fertility  rate  for  age 
group  15-19  for  the  date  five  years 
after  the  date  of  the  earlier  dis- 
tribution.  The  decimal  point  should 
be  in  Column  1. 
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8-14 


43-49 


50-80 


| Age-specific   fertility    rate   for  age 
jgroup  20-24   for  the  date   five   years 
lafter  the  date   of   the  earlier  dis- 
tribution.     The   decimal   point   should 
| be  in  Column   8. 
I 
I 
I 

| Age-specif ic   fertility  rate   for   age 
I  group  45-49   for   the   date  five   years 
lafter   the   date   of   the  earlier   dis- 
tribution.     The   decimal   point   should 
|be   in  Column   43. 
I 
|  Blank 


IV.  SUBROUTINE 

A.   SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  FWDRV (PM A,PPMA,PFA,PPFA, PHB, PPMB, PFB, PPFB 
SXHA,SXFA,SXMB,SXFB,ASFR1,ASFR2,SRB,YEAR1,YEAR2) 


B.   DESCRIPTION  OF  ARGUMENTS 


Name 


PHA 


How  Obtained   Definition 


PPBA 


PFA 


PPFA 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


PMA  contain  the  5-year  age 
groups  of  males  for  the  earlier 
distribution.   There  can  be  a 
maximum  of  17  age  groups  with 
the  last  age  group  being  the 
open-ended  age  group.   At  least 
eleven  age  groups  must  be  given 
and  each  age  group  given  must 
be  greater  than  or  egual  to  one. 
If  this  is  not  the  case,  error 
message  number  0431  will  be 
written  and  the  subroutine  will 
return  to  the  calling  program. 

The  number  of  male  migrants  by 
5-year  age  groups  for  the  first 
five  years  of  the  10-year 
interval.   There  can  be  a  maxi- 
mum of  17  age  groups  with  the 
seventeenth  one  being  the  open- 
ended  age  group. 

PFA  contains  the  5-year  age 
groups  of  females  for  the  earlier 
distribution.   There  can  be  a 
maximum  of  17  age  groups  with  the 
last  age  group  being  the  open- 
ended  age  group.   At  least  eleven 
age  groups  must  be  given  and  each 
age  group  given  must  be  greater 
than  or  egual  to  one.   If  this  is 
not  the  case,  error  message 
number  0431  will  be  written  and 
the  subroutine  will  return  to  the 
calling  program. 

The  number  of  female  migrants  by 
5-year  age  groups  for  the  first 
five  years  of  the  10-year  interval- 
There  can  be  a  maximum  of  17  age 
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|PHB 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

I 

I  Transferred  In 


I      I 

IPPHB  (Transferred  In 


I 


I 


I 


I 


|PFB   | Transferred  In 


I 


I 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

|PPFB  |Transf erred  In 

I 


ISXMA  | Transferred  In 

I 


I  I 

1  I 

1  I 

I  I 

I  I 
|SXFA  ITransferred  In 

I  I 

1  I 

1  I 


ITransferred  In 


I 

ISXMB 

I 
I 
I 

I 


I  I 

I  I 

I  I 

I  I 

ISXFB  ITransferred  In 

I  I 

I  I 


groups  with  the  seventeenth  one 
being  the  open-ended  age  group. 

PHB  contains  the  5-year  age 
groups  of  males  for  the  later 
distribution.   There  can  be  a 
maximum  of  17  age  groups  with  the 
last  age  group  being  the  open-ended 
age  group.   &t  least  eleven  age 
groups  must  be  given  and  each  age 
group  given  must  be  greater  than  or 
egual  to  one.   If  this  is  not  the 
case,  error  message  number  04  31  will 
be  written  and  the  subroutine  will 
return  to  the  calling  program. 

The  number  of  male  migrants  by  5-year 
age  groups  for  the  last  five  years 
of  the  10-year  interval.   There  can 
be  a  maximum  of  17  age  groups  with  the 
seventeenth  one  being  the  open-ended 
age  group. 


PFB  contains  the  5-year 
of  females  for  the  later 
There  can  be  a  maximum  o 
with  the  last  age  group 
ended  age  group.   At  le 
age  groups  must  be  given 
age  group  given  must  be 
egual  to  one.   If  this  i 
error  message  number  04  3 
and  the  subroutine  will 
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The  number  of  female  migrants  by  5-year 
age  groups  for  the  last  five  years 
of  the  10-year  interval.   There  can 
be  a  maximum  of  17  age  groups  with  the 
last  one  being  the  open-ended  age  group. 
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The  5-year  survival  rates  for  males 
for  the  last  five  years  of  the  10-year 
interval.   There  can  be  a  maximum  of  17 
and  a  minimum  of  12  survival  rates  for 
males.  Each  survival  rate  must  be  less 
than  one  and  greater  than  or  egual  to  zero. 
If  this  is  not  the  case  or  if  there  are  less 
than  12  survival  rates,  error  message  number 
0432  will  be  written  out  and  the  subroutine 
will  return  to  the  calling  program. 

The  5-year  survival  rates  for  females 
for  the  last  five  years  of  the  10-year 
interval.   There  can  be  a  maximum  of  17 
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and  a  minimum  of  12  survival  rates  for 
females.   Each  survival  rate  must  be  less 
than  one  and  greater  than  or  equal  to  zero. 
If  this  is  not  the  case  or  if  there  are  less 
than  12  survival  rates,  error  message  number 
0432  will  be  written  out  and  the  subroutine 
will  return  to  the  calling  program. 

The  5-year  age-specific  fertility  rates 
for  females  15-49  for  the  date  of  the 
earlier  distribution.   Each  age-specific 
fertility  rate  must  be  greater  than  or 
egual  to  0  and  less  than  .5.   If  this  is 
not  the  case,  error  message  number  0433  is 
written  out  and  the  subroutine  will  return 
to  the  calling  program. 

The  5-year  age-specific 
fertility  rates  for  females  15-49 
for  the  date  five  years  after  the 
date  of  the  earlier  distribution. 
Each  age-specific  fertility  rate 
must  be  greater  than  or  equal  to  0. 
and  less  than  .5.   If  this  is  not  the 
case  error  message  number  0433  is 
written  out  and  the  subroutine  will 
return  to  the  calling  program. 

The  sex  ratio  at  birth.   It  must  have 
a  value  between  .9  and  1.1  or  the  sub- 
routine will  write  out  error  message 
number  0434  and  return  to  the  calling 
program. 

The  year  of  the  earlier  distribution 

The  year  of  the  later  distribution 


C.   ERROR  MESSAGES 

0431  ***  FWDRV  ERROR  NO.  0431  INPUT  ERROR  IN  PMA,PFA,PMB  OR  PFB 

***  AT  LEAST  ONE  DISTRIBUTION  HAS  DATA  FOR  LESS  THAN  11  AGE 

GRODPS,  OR  HAS  VALUES  LESS  THAN  1.0. 

0432  ***  FWDRV  ERROR  NO.  0432  INPUT  ERROR  IN  SXMA,SX FA,SXMB 

OR  SXFB 
***  AT  LEAST  ONE  DISTRIBUTION  OF  SURVIVAL  RATES  HAS  DATA 

FOR  LESS  THAN  12  AGE  GROUPS 
***  DR  HAS  VALUES  LESS  THAN  0.  OR  GREATER  THAN  1.0. 

0433  ***  FWDRV  ERROR  NO.  0433  INPUT  ERROR  ASFR1  OR  ASFR2 

***  AT  LEAST  ONE  AGE-SPECIFIC  FERTILITY  RATE  IS  LESS 

THAN  ZERO  OR  GREATER  THAN  .5. 

0434  ***  FWDRV  ERROR  NO.  0434  INPUT  ERROR  IN  SRB 

***  THE  SEX  RATIO  AT  BIRTH  MUST  BE  BETWEEN  .9  AND  1.1. 


V.   PROGRAM   AND   RESULTS 


A. 


COMPUTER  LISTING  FOR  MAIN  PROGRAM 


c 

c 

C MAIN  PROGRAM  FOR  FWDRV 

c 

c 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  EIGHT  READ 

C STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 
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C 2-53  OF  THIS  CARD. 

C 

C THE  SECOND  READ  STATEMENT  OSES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  (1)THE 

C INDICATOR  (NXT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER  DATA  SET 

C FOLLOWING  THIS  ONE,  (2) THE  LATER  DATE  (DAY ,TMO, YEAR)  FOR  WHICH  THE 

C LATER  POPULATION  DISTRIBUTION  IS  GIVEN,  (3) THE  SEX  RATIO  AT 

C BIRTH  (SRB),  (4)  THE  MORTALITY  INDICATOR  (KODE)  USED  TO  SPECIFY 

C WHETHER  AGE  SPECIFIC  SURVIVAL  RATES  ARE  TO  BE  GIVEN  OR  A  REGIONAL 

C MODEL  LIFE  TABLE  IS  TO  BE  USED  FOR  THE  MIDDLE  OF  EACH  FIVE  YEAR 

C PERIOD,  AND  (5) THE  FERTILITY  INDICATOR (KASF)  USED  TO  SPECIFY  IF 

C AGE-SPECIFIC  FERTILITY  RATES  ARE  BEING  PROVIDED  FOR  THE  FIRST 

C HALF  OF  THE  TEN  YEAR  INTERVAL. 

C NXT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  1 

c INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER  NUMBER 

c — _ PUNCHED  IN  COLUMN  1  INDICATES  THERE  IS  ANOTHER  SET  OF  DATA 

c FOLLOWING  THIS  ONE. 

C DAY   IS  COLUMNS  3-4  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED  AS  XX 

c so  THAT  IT  £NDS  IN  COLUMN  4,  I.E.  IF  IT  IS  THE  FIRST  DAY  OF 

c THE  MONTH  IT  WOULD  BE  ENTERED  AS  01. 

C TMO   IS  IN  COLUMNS  5-6  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED  SO 

c THaT  IT  ENDS  IN  COLUMN  6. 

c YEAR   IS  IN  COLUMNS  7-10  OF  THIS  CARD. 

C SRB   IS  IN  COLUMNS  15-20  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED 

C WITH  THE  DECIMAL  POINT  IN  COLUMN  16. 

C KODE   IS  IN  COLUMNS  21  AND  22  OF  THIS  CARD.   IF  THE  MORTALITY 

c__ DaTA  F0R  THE  first  HALF  OF  THE  TEN  YEAR  INTERVAL  IS  TO  BE 

C PROVIDED  AS  SURVIVAL  RATES,  A  1  SHOULD  BE  PUNCHED  IN 

c COLUMN  21.  IF  THE  MORTALITY  FOR  THE  FIRST  HALF  OF  THE  TEN 

c YEAR  INTERVAL  IS  TO  BE  BASED  ON  THE  COALE-DEMENY  REGIONAL 

C MODEL  LIFE  TABLE  A  2  SHOULD  BE  ENTERED  IN  COLUMN  21.  ANY 

C OTHER  NUMBER  PUNCHED  IN  COLUMN  21  IS  AN  ERROR  AND  WILL  CAUSE 

c MAIN  PROGRAM  TO  STOP.   IF  THE  MORTALITY  DATA  FOR  THE  LAST 

C HALF  OF  THE  TEN  YEAR  INTERVAL  IS  TO  BE  PROVIDED  AS  SURVIVAL 

C RATES,  A  1  SHOULD  BE  PUNCHED  IN  COLUMN  22.   IF  THE  MORTAL- 

c ITY  FOR  THE  LAST  HALF  OF  THE  TEN  YEAR  INTERVAL  IS  TO  BE 

C BASED  ON  THE  COALE-DEMENY  REGIONAL  MODEL  LIFE  TABLE  A  2 

C SHOULD  BE  ENTERED  IN  COLUMN  22.   ANY  OTHER  NUMBER  PUNCHED 

c IN  COLUMN  22  IS  AN  ERROR  AND  WILL  CAUSE  THE  MAIN  PROGRAM 

C TO  STOP. 

C KASF      IS    IN   COLUMN    23    OF    THIS    CARD.       A    1    PUNCHED    IN    COLUMN    23 

c INDICATES    THAT    AGE-SPECIFIC    FERTILITY    RATES    ARE    TO    BE 

c PROVIDED   FOR    THE   DATE   OF   THE    EARLIER    AGE   DISTRIBUTION    AND 

c FIVE    YEARS   LATER. 

C 

c THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS. 

c the  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  HALE 

C POPULATION  AGE  DISTRIBUTION (PM)  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE 

C EARLIER  DISTRIBUTION. 

c PM(I,1)   VALUES  ARE  ENTERED  ON  TWO  CARDS.  FOR  EACH  PM  VALUE  EIGHT 

C COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS 

C OF  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  PM  VALUES  CAN  APPEAR 

C ON  THE  FIRST  CARD  SO  THAT  THE  VALUES  END  IN  COLUMNS  8,  16, 

c 24,  ...,  72,  AND  80.   THE  SECOND  CARD  CAN  CONTAIN  A  MAXIMUM 

C OF  SEVEN  PM  VALUES  AND  THE  VALUES  SHOULD  BE  ENTERED  IN  THE 

C SAME  MANNER  AS  ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALUE 

C ON  THE  SECOND  CARD  WILL  END  IN  COLUMN  56.   IF  LESS  THAN 

C SEVENTEEN  VALUES  ARE  TO  BE  GIVEN,  TWO  CARDS  MUST  STILL  BE 

C USED  WITH  DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECESSARY  FOR 

c THE  NUMBER  OF  PM  VALUES. 

C 

C THE  FOURTH  READ  STATEMENT  USES  TWO  DATA  CARDS. 

c THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  FEMALE 

C POPULATION  DISTRIBUTION (PF (1,1))  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE 

c EARLIER  DATE  PF(I,1)   VALUES  ARE  CONTAINED  ON  TWO  CARDS  AND  HAVE 

c THE  SAME  REQUIREMENTS  AS  PM  VALUES. 

C 

c THE  PURPOSE  OF  THE  FIFTH  READ  STATEMENT  IS  TO  READ  IN  THE  MALE 

c POPULATION  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE  LATER  DATE  PM(I,2). 

c PM(I,2)  VALUES  ARE  CONTAINED  ON  TWO  CARDS  AND  HAVE  THE  SAME 

C REQUIREMENTS  AS  PM(I,1). 

C 

C THE  PURPOSE  OF  THE  SIXTH  READ  STATEMENT  IS  TO  READ  IN  THE  FEMALE 

c DISTRIBUTION  FOR  THE  LATER  DATE  PF(I,2). 

C 

c THE  SEVENTH  READ  STATEMENT  USES  ONE  DATA  CARD.  THE  PURPOSE  OF  THE 

c SEVENTH  READ  STATEMENT  IS  TO  READ  IN  THE  TOTAL  NUMBER  OF  MIGRANTS 
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C (PMMT)     FOP    EACH    FIVE    TEAR    INTERVAL. 

C PMMT      IS   CONTAINED   ON    ONE   CARD.    THE   FIRST    VALUE    IS    FOR    THE   FIRST 

c FIVE    YEARS   OF    THE   TEN    YEAR    INTERVAL    AND   THE   SECOND    VALUE 

c IS    for    THE    SECOND    FIVE    YEAR    INTERVAL. 

c F0R    EiCH    PHMT    VALUE,    EIGHT    DIGITS    ARE    ALLOWED    WITH    THE 

c FIRST    NUMBER    ENDING    IN    COLUMN    8    AND    THE   SECOND    NUMBER 

C ENDING    IN    COLUMN    16. 

C 

C THE  EIGHTH  READ  STATEMENT  USES  FOUR  DATA  CARDS. 

C THE  PURPOSE  OF  THE  EIGHTH  READ  STATEMENT  IS  TO  READ  IN  THE 

C PERCENT  DISTRIBUTION  OF  THE  MALE  AND  FEMALE  MIGRANTS  (PMM  AND 

C PMF)  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE  FIRST  FIVE  YEARS  OF  THE 

C TEN  YEAR  INTERVAL.   THE  TOTAL  MALE  AND  FEMALE  MIGRANTS  (PMM 

C AND  PMF)  MUST  ADD  TO  1.00.   THERE  ARE  TWO  CARDS  FOR  MALE 

C MIGRANTS  (PMM)  FOLLOWED  BY  TWO  CARDS  FOR  FEMALE  MIGRANTS  (PMF) . 

C PMM   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  THERE  ARE  EIGHT  DIGITS 

C ALLOWED  FOR  EACH  PMM  VALUE  WITH  THE  DECIMAL  POINT  IN 

C COLUMN  1,9,17,  65  AND  73.  THUS,  THERE  ARE  TEN  VALUES 

c ON  THE  FIRST  CARD.  THE  SECOND  CARD  CONTAINS  SEVEN  VALUES 

C WITH  THE  LAST  VALUE  IN  COLUMN  49-56. 

C PMF   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  PMF  VALUES  HAVE  THE 

C SAME  REQUIREMENTS  AS  PMM  VALUES. 

C 

C THE  NINTH  READ  STATEMENT  USES  FOUR  DATA  CARDS. 

C THE  PURPOSE  OF  THE  NINTH  READ  STATEMENT  IS  TO  READ  IN  THE 

C PERCENT  DISTRIBUTION  OF  THE  MALE  AND  FEMALE  MIGRANTS  (PMM  AND 

C PMF)  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE  LAST  FIVE  YEARS  OF  THE 

C TEN  YEAR  INTERVAL..   THE  TOTAL  MALE  AND  FEMALE  MIGRANTS 

C (PMM  AND  PMF)  MUST  ADD  TO  1.00.   THERE  ARE  TWO  CARDS  FOR  MALE 

C MIGRANTS  (PMM)  FOLLOWED  BY  TWO  CARDS  FOR  FEMALE  MIGRANTS  (PMF). 

C PMM   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  THERE  ARE  EIGHT  DIGITS 

C ALLOWED  FOR  EACH  PMM  VALUE  WITH  THE  DECIMAL  POINT  IN 

C COLUMN  1,9,17, 65  AND  73.  THUS,  THERE  ARE  TEN  VALUES 

C ON  THE  FIRST  CARD.  THE  SECOND  CARD  CONTAINS  SEVEN  VALUES 

C WITH  THE  LAST  VALUE  IN  COLUMN  49-56. 

c PMp   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  PMF  VALUES  HAVE  THE 

C SAME  REQUIREMENTS  AS  PMM  VALUES. 

C 

C THE  TENTH  READ  STATEMENT  USES  BETWEEN  ONE  AND  EIGHT  DATA  CARDS. 

C THE  PURPOSE  OF  THE  TENTH  READ  STATEMENT  IS  TO  READ  IN  THE 

C MORTALITY  DATA.   THIS  CAN  BE  READ  IN  FOUR  ALTERNATIVE  WAYS.   THE 

C ALTERNATIVE  THAT  IS  TO  BE  USED  DEPENDS  ON  THE  MORTALITY  INDICATOR 

C KODE  READ  BY  THE  SECOND  READ  STATEMENT. 

C ALTERNATIVE  1,  KODE  =  11,  I.E.  AN  11  PUNCHED  IN  COLUMNS  21  AND  22 

C OF  CARD  2,  SURVIVAL  RATES  (SRX)  ARE  TO  BE  READ  FOR  BOTH 

c THE  BEGINNING  AND  ENDING  INTERVALS. 

C SRX   VALUES  ARE  CONTAINED  ON  EIGHT  CARDS,  FOUR  CARDS  FOR 

C THE  FIRST  FIVE  YEARS  OF  THE  TEN  YEAR  INTERVAL  ANDS 

C FOUR  CARDS  FOR  THE  LAST  FIVE  YEARS  OF  THE  TEN  YEAR 

C INTERVAL.  FOR  THE  FIRST  FIVE  YEARS,  THERE  ARE  TWO 

C CARDS  ALLOWED  FOR  THE  SURVIVAL  RATES  FOR  EACH  SEX. 

C FIRST  THERE  ARE  TWO  CARDS  FOR  THE  MALE  SURVIVAL  RATES 

C FOLLOWED  BY  TWO  CARDS  FOR  THE  FEMALE  SURVIVAL  RATES. 

C FOR  EACH  FIVE  YEAR  SURVIVAL  VALUE,  EIGHT  DIGITS  ARE 

C ALLOWED  WITH  A  DECIMAL  POINT  IN  COLUMNS  1,  9,  17, 

C ...,  65,  AND  73.   THUS,  THERE  ARE  TEN  SURVIVAL 

C RATES  FOR  MALES  ON  THE  FIRST  CARD.   THE  SECOND  CARD 

C CAN  CONTAIN  SEVEN  SURVIVAL  RATES  FOR  MALES 

C ENTERED  IN  THE  SAME  MANNER  AS  ON  THE  FIRST  CARD.   THE 

C LAST  VALUE  THAT  CAN  BE  ON  THE  SECOND  CARD  IS  IN 

C COLUMNS  49-56  WITH  A  DECIMAL  POINT  IN  COLUMN  49.   IF 

C LESS  THAN  SEVENTEEN  VALUES  ARE  TO  BE  GIVEN,  TWO  CARDS 

C MUST  STILL  BE  USED  WITH  DATA  ONLY  IN  THE  NUMBER  OF 

C COLUMNS  NECESSARY  FOR  THE  NUMBER  OF  MALE  SURVIVAL 

C RATES  GIVEN.   THE  THIRD  AND  FOURTH  CARDS  ARE  FOR 

C FEMALE  SURVIVAL  RATES  FOR  THE  FIRST  FIVE  YEARS  AND 

C HAVE  THE  SAME  REQUIREMENTS  AS  THE  FIRST  TWO  CARDS. 

C CARDS  FIVE  THROUGH  EIGHT  ARE  FOR  THE  LAST  FIVE  YEARS 

C AND  SHOULD  HAVE  THE  DATA  ENTERED  IN  THE  SAME  MANNER 

C AS  THE  FIRST  FOUR  CARDS. 

C ALTERNATIVE  2,    KODE  =  12  ,I.E.  A  12  PUNCHED  IN  COLUMNS  21  AND 

c 22  OF  CARD  2,  SURVIVAL  RATES  (SRX)  ARE  TO  BE  READ  FOR 

C THE  FIRST  FIVE  YEARS  OF  THE  TEN  YEAR  INTERVAL,  AND 

C COALE-DEMENY  REGIONAL  MODEL  LIFE  TABLES  ARE  TO  BE  USED  FOR 

c THE  LAST  FIVE  YEARS  OF  THE  TEN  YEAR  INTERVAL  SO  THAT  LIFE 

c EXPECTANCIES  AT  BIRTH(EO)  ARE  NEEDED  FOB  EACH  SEX  AND  A 

C REGION  (NREG)  MUST  BE  INDICATED.   FIVE  CARDS  ARE  NEEDED  FOR 
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c THIS  ALTERNATIVE. 

C SRX   VALUES  ARE  CONTAINED  ON  FOUR  CARDS  AND  HOST  BE 

C SUPPLIED  ON  THE  FIRST  FOUR  CARDS  THE  SAME  AS 

C SPECIFIED  IN  ALTERNATIVE  1. 

C EO   VALUES  ARE  CONTAINED  ON  THE  FIFTH  CARD.   ONE 

C VALUE  BUST  BE  GIVEN  FOR  EACH  SEX  WITH  SIX 

C DIGITS  ALLOWED  FOR  EACH  VALUE.   THE  VALUE  FOR 

C MALES  IS  IN  COLUMNS  1-6  WITH  A  DECIMAL  POINT  IN 

C COLUMN  3.   THE  VALUE  FOR  FEMALES  IS  IN  COLUMNS 

C 7-12  WITH  THE  DECIMAL  POINT  IN  COLUMN  9. 

C NREG   IS  IN  COLUMN  13  OF  THE  FIFTH  CARD.   A  VALUE 

C OR  1,  2,  3,  OR  4  PUNCHED  IN  COLUMN  13  INDI- 

C CATES  WEST,  NORTH,  EAST,  OR  SOUTH,  RESPEC- 

C RTIVELY. 

C ALTERNATIVE  3,  KODE  =  21, I.E.  A  21  PUNCHED  IN  COLUMNS  21  AND  22 

c OF  CARD  2,  COALE-EEMENY  REGIONAL  MODEL  LIFE  TABLES  ARE  TO 

c BE  0SED  por  THE  FIRST  FIVE  YEARS  OF  THE  TEN  YEAR  INTERVAL 

c so  THAT  life  EXPECTANCIES  AT  BIRTH  (EO)  ARE  NEEDED 

c poR  EACH  SEX  AND  A  REGION (NREG)  MUST  BE  INDICATED,   AND 

C SURVIVAL  RATES (SRX)  ARE  TO  BE  READ  FOR  THE  LAST  FIVE  YEARS 

C OF  THE  TEN  YEAR  INTERVAL.  FIVE  CARDS  ARE  NEEDED  FOR  THIS 

C ALTERNATIVE. 

C EO   VALUES  ARE  CONTAINED  ON  THE  FIRST  CARD  OF  THIS 

C GROUP.   EXCEPT  FOR  BEING  ON  THE  FIRST  CARD  THEY 

C SHOULD  BE  ENTERED  IN  THE  SAME  MANNER  AS 

C SPECIFIED  IN  ALTERNATIVE  2. 

C NREG   IS  CONTAINED  ON  THE  FIRST  CARD  AND  EXCEPT  FOR 

C THAT  FACT  SHOULD  BE  ENTERED  IN  THE  SAME  MANNER 

C AS  SPECIFIED  IN  ALTERNATIVE  2. 

C SRX   VALUES  ARE  CONTAINED  ON  FOUR  CARDS.   IN  THIS 

C CASE  ON  CARDS  TWO  THROUGH  FIVE  AND  SHOULD  BE 

C ENTERED  IN  THE  SAME  MANNER  AS  THE  FIRST  FOUR 

C CARDS  IN  ALTERNATIVE  1. 

C ALTERNATIVE  4,  KODE  =  22,1. E.  A  22  PUNCHED  IN  COLUMNS  21  AND  22 

C OF  CARD  2,  COALE-DEMENY  REGIONAL  MODEL  LIFE  TABLES 

C ARE  TO  BE  USED  FOR  BOTH  THE  FIRST  FIVE  AND  LAST  FIVE  YEARS. 

c THUS,  LIFE  EXPECTANCIES  AT  BIRTH (EO)  ARE  NEEDED  AND  A 

C REGION (NREG)  MUST  BE  INDICATED.   TWO  CARDS  ARE  NEEDED  FOR 

c THIS  ALTERNATIVE  AND  MUST  BOTH  BE  SPECIFIED  IN  THE  SAME 

C MANNER  BUT  WITH  DATA  SUPPLIED  FOR  THE  TWO  DIFFERENT  DATES. 

c THUS,  TWO  CARDS  MUST  BE  COMPLETED  AS  INDICATED  BELOW. 

C EO   VALUES  MUST  BE  ENTERED  AS  GIVEN  FOR  CARD  FIVE  OF 

C ALTERNATIVE  2. 

C NREG   MUST  BE  ENTERED  AS  GIVEN  FOR  CARD  FIVE  OF 

C ALTERNATIVE  2. 

C 

C IF  KASF  =  1,I.E.  A  1  PUNCHED  IN  COLUMN  23  OF  CARD  2,  THEN  THE 

c ELEVENTH  READ  IS  NEEDED.   IT  READS  IN  TWO  CARDS.   THE  PURPOSE 

C OF  THE  ELEVENTH  READ  STATEMENT  IS  TO  READ  IN  AGE-SPECIFIC 

C FERTILITY  RATES  (ASFR)  FOR  THE  DATE  OF  THE  EARLIER  DISTRIBUTION 

C AND  FIVE  YEARS  LATER. 

C ASFR  VALUES  ARE  CONTAINED  ON  TWO  CARDS.  THE  FIRST  CARD  CONTAINS 

c THE  AGE-SPECIFIC  FERTILITY  RATES  FOR  THE  DATE  OF  THE 

c EARLIER  DISTRIBUTION.  THERE  ARE  SEVEN  VALUES  ON  THE  FIRST 

c caRD  PERTAINING  TO  FEMALES  AGE  15-19,  20-24,  ...  45-45. 

c SEVEN  COLUMNS  ARE  ALLOWED  FOR  EACH  VALUE  WITH  THE  DECIMAL 

c POINT  IN  COLUMN  1,  8,  ...  43.  THE  SECOND  CARD  CONTAINS  THE 

C AGE-SPECIFIC  FERTILITY  RATES  FOR  THE  DATE  FIVE  YEARS  AFTER 

C THE  DATE  OF  THE -EARLIER  DISTRIBUTION. 

c 

C 

DIMENSION  PH(17,2)  ,PF(17,2)  ,CDMLT  (18,8)  ,EOM  (3)  ,EOF(3)  ,ASFR  (7,2)  , 
*SRH  (17,2)  ,SRF(17,2)  ,PMMT  (2)  ,PMH  (17,2)  ,PHF(17,2)  , KODE  (2) 
NREAD  =  1 
NPRNT  =  15 


C ■ 

C READ  IN  THE  DATA 

c . 

C 

10  READ(NREAD,11) 

11  F0RHAT(1X,52H  ) 
READ(NREAD, 22) NXT, DAY,TM0, YEAR, SRB, (KODE(I) ,1=1, 2), KASF 

22   F0RMAT(I1,1X,2F2.0,F4.0,4X,F6.4,3I1) 

DO      12   J=1,2 

READ (NREAD, 33)  (PH  (I, J) ,1=1,17) 
33  FORMAT (10F8.0) 
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READ(NREAD,33)   (PF  (I  ,  J)  ,1=1  ,17) 

12  CONTINUE 

READ(NREAD,44)   (PMMT  (J)  ,  J=1  ,2) 
DO  13  J=1,2 

READ(NREAD,55)   (PMM  (I  ,  J)  ,1  =  1,  1  7) 
READ(NREAD,55)   (PMF (I, J) , 1=1, 17) 

13  CONTINDE 

14  CONTINUE 

44  FORMAT  (2F10.0) 

55  FORMAT(10F8.7,/,7F8.7) 

C 

c 

C DETERMINE  HOW  THE  MORTALITY  DATA  IS  TO  BE  READ  AND  OBTAIN 

C SURVIVAL  RATES  IF  LIFE  EXPECTANCY  AT  BIRTH  IS  SIVEN 

c 

C 

DO  126  J=1,2 

IF    (KODE(J)    -    1)     1010,30,50 
30    READ(NREAD,77)      (SRM  (I,  J)  ,1=1,  17) 

READ(NREAD,77)     (SRF  (I  ,  J)  ,1  =  1 ,  17) 

RM    =    5.0 

EOH  (J)    =0.0 

DO    37    1=1,16 

IF  (SRM(I  +  1,1)  -  0.001)  40,35,35 
35  RM  =  RM  *  SRM  (I, J) 
37  BOH  (J)  =  EOM(J)  +  RM 

I  =  17 
40  EOM(J)  =  EOM(J)  +  ((RM*SRM(I,J))/(1.0  -  SRM  (I, J))) 

RF  =  5.0 

EOF  (J)  =0.0 

DO  45  1=1,16 

IF  (SRF(I+1,1)  -  0.001)  47, 43, 43 
43  RF  =  RF  *  SRF  (I, J) 
4  5  EOF  (J)  ■  EOF  (J)  +  RF 

I  =  17 
47  EOF  (J)  =  EOF(J)  +  ( (  RF*SRF  (I,  J)  )  /  (1 .  0  -  SRF(I,J))) 
77  FORMAT  (10F8.0) 

GO  TO  126 
50  CONTINUE 

IF  (KODE(J)  -  2)  1010,60,1010 
60  READ(NREAD,88)  EOM  (J)  ,EOF  (J)  ,  NREG 
88  FORHAT(2F6.3,I1) 
C 
c 

C TEST  EO  VALUES  AND  NREG  FOR  APPROPRIATE  VALUES 

c 

C 

IF    (EOM(J)-20.0)     1020,85,80 
80   CONTINUE 

IF    (EOM(J)-80.0)    85,85,1020 
85   CONTINUE 

IF    (EOF(J)    -    20.0)     1020,90,90 
90    CONTINUE 

IF    (EOF (J)    -    80.0)    95,95,1020 
9  5   CONTINUE 

IF  (NREG  -  1)  1030,110,100 
100  CONTINUE 

IF  (NREG  -  4)  110,110,1030 
110  CALL  MLT(EOH(J)  ,  1  ,NREG,CDMLT) 

DO  120  I  =  1,17 
120  SRH(I,J)  =  CDHLT  (1,6) 

CALL  MLT(EOF(J),2,NREG,CDMLT) 
DO  125  I  =1,17 

125  SBF(I,J)  =  CDHLT(I,6) 

126  CONTINUE 

IF    (KASF    -    1)     150,130,150 
130   DO    140   J=1,2 

READ(NREAD,99)     (ASFR  (I,  J)  ,  1=1  ,7) 
99   FORMAT (7F7. 6) 
140   CONTINUE 

GO   TO    200 
150   DO    160   J=1,2 
DO    160   1=1,7 
160   ASFR  (I, J)    =    0.0 
C 
c 

C WRITE  OUT    IDENTIFICATION 
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c 

C 

200  YEAR2  =  YEAR  +  (.  0833*  (TMO-1-)  )  +  (.  0027*  (DAI-  1.)  ) 
YEAR1  -  YEAR2  -  10.0 
WRITE(NPRNT,111) 
111  FORMAT(1H1) 

WRITE  (NPRNT, 11) 

C 

c _ _ 

c CALCULATE  NUMBER  OF  MIGRANTS  BY  AGE  AND  SEX  FOR  EACH  REVERSAL 

c 

C 

DO  300  1=1,2 

DO  300  J=1,17 

PMM(J,I)  =  PHM(J,I)  *  PMMT  (I) 
300  PMF(J,I)  =  PMF(J,I)  *  PMMT  (I) 
C 
C 

C REJUVENATION  LOOP 

c 

C 

CALL  FWDRV(PM  (1,1)  ,PMM  (1  ,  1)  ,PF  (1 ,  1)  ,PMF(1,1)  ,  PM  (1  ,  2)  ,  PMM  (  1,  2)  , 
*PF(1,2)  ,PMF(1,2)  ,SRM(1,1)  ,SRF(1,1)  ,SRM  (1  ,2)  ,SRF  (1  ,2)  , 
*ASFR  (1,1) ,ASFR(1,2)  ,  SRB,  YEAR1  ,  YEAR2) 
IF  (NXT)  10,1000,10 
C 
c 

C ERRORS  IN  INPUT  DATA  FOR  THE  MAIN  PROGRAM 

C 

C 

1010  WRITE  (NPRNT, 111) 
WRITE(NPRNT,1011) 

1011  FORMAT (/, 1X,95H***  ERROR  IN  INPUT  FOR  MAIN  PROGRAM  --  KODE,  YOU  SH 
*0ULD    CHECK    ALL   OF    YOUR    INPUT   DATA    CAREFULLY.) 

GO    TO    1000 

1020  WRITE  (NPRNT,111) 
WRITE  (NPRNT,1021) 

1021  FORMAT (/, 1X,71H***  ERROR  IN  INPUT  FOR  MAIN  PROGRAM  —  EO  IS  NOT  BE 
*TWEEN  20-0  AND  80. 0. ,/, 5X,50HYOU  SHOULD  CHECK  ALL  OF  YOUR  INPUT  DA 
*TA    CAREFULLY.) 

GO  TO  1000 
1030  WRITE  (NPRNT, 111) 

WRITE  (NPRNT,  1031) 
10J.    FORMAT (/,1X,65H***    ERROR   IN   INPUT    FOR    MAIN    PROGRAM    —    NREG   IS    NOT 
*1,    2,    3,    OR   «»-,/, 5X,50HYOi5    SHOULD    CHECK   ALL  OF   YOUR    INPUT    DATA    CAR 
*EFUL1  Y.) 

GO  TO  1000 
1000  CONTINUE 

STOP 

END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  FWDRV (PMA,PPHA, PFA, PPFA,PMB, PPMB,PFB, PPFB, SXMA, SXFA, SXM 

*B,SXFB,ASFR1,ASFR2,SRB,YEAR1,YEAR2) 

c . 

c 

C PROGRAM  NO.  0430 

C 

c 

C THE    INPUT    ARGUMENTS    TO    THIS    SUBROUTINE    ARE   PMA,PMB,PPMA,PPMB, 

C PFA,PFB,PPFA,PPFB,SXMA,SXMB, SXFA,SXFB, ASFR1, ASFR2,  SRB,YEAR1, 

C AND    YEAR2. 

C PMA    IS  THE  MALE  POPULATION  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE 

C EARLIER  DISTRIBUTION. 

C PPHA   IS  THE  MALE  MIGRANTS  BY  FIVE  YEAR  AGE  GROUPS  FOR  THE 

C EARLIER  DISTRIBUTION. 

C PFA    IS  THE  FEMALE  POPULATION  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE 

C EARLIER  DISTRIBUTION- 

c PPPA   Is  THB  FEMALE  MIGRANTS  IN  FIVE  YEAR  AGB  GROUPS  FOR  THE 

C EARLIER  DISTRIBUTION. 

C SXMA   IS  THE  FIVE  YEAR  SURVIVAL  RATES. FOR  MALES  IN  THE  EARLIER 

c DISTRIBUTION. 
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c SXFA       IS    THE    FIVE   YEAR    SURVIVAL    RATES    FOR    THE    FEMALES    IN    THE 

c EARLIER    DISTRIBUTION. 

C PUB         IS    THE    HALE   POPULATION    IN    FIVE    YEAR    AGE   GROUPS    FOR    THE 

c LATER    DISTRIBUTION. 

C PPMB      IS    THE    HALE    MIGRANTS   BY    FIVE    YEAR    AGE    GROUPS   FOR    THE  LATER 

c DISTRIBUTION. 

C PBA         IS    THE   FEMALE    POPULATION    IN    FIVE   YEAR    AGE   GROUPS    FOR   THE 

c LATER    DISTRIBUTION. 

c ppBA       IS    THE    FEMALE    MIGRANTS    IN    FIVE    YEAR    AGE    GROUPS    FOR    THE 

C LATER    DISTRIBUTION. 

C SXMB       IS    THE    FIVE    YEAR    SURVIVAL    RATES    FOR    MALES    IN   THE   LATER 

c DISTRIBUTION. 

C SXFB      IS    THE   FIVE   YEAR    SURVIVAL    RATES    FOR    THE   FEMALES    IN   THE 

c LATER    DISTRIBUTION. 

C ASFR1    IS    THE   FIVE    YEAR    AGE-SPECIFIC    FERTILITY    RATES    FOR    FEMALES 

c 15-49    FOR    THE    EARLIER    DATE. 

C ASFR2    IS    THE    FIVE   YEAR    AGE-SPECIFIC    FERTILITY    RATES    FOR    FEMALES 

c 15-49   FOR    THE    MID-INTERVAL    DATE. 

C YEAR    1    IS    THE   YEAR    OF   THE    EARLIER    DISTRIBUTION. 

C YEAR    2    IS    THE    YEAR    OF    THE    LATER    DISTRIBUTION. 

c 

C 

DIMENSION    PMA  (17)  ,PFA(17)  ,PMB{17)  ,PFB(17)  ,SXMA(17)  ,  SXFA  (17)  , 

*  SXMB  (17)  , SXFB  (17)  ,ASFR1(7)  ,ASFR2(7)  ,PPMA(17)  ,PPFA(17)  , 

*  PPMB  (17)  ,  PPFB(17)  , PPAR1  (8)  ,PPAR2  (8)  ,  PMC  (17)  ,  PFC(17)  , 

*  ASFR3(7)  ,ASFR4  (7)  ,PMA1  (17)  ,PFA1 (17)  ,PMB1  (17)  ,PFB1(17) 
NPRNT  =  15 

C 

C 

C VERIFY  INPUT  ARGUMENTS 

c _ 

C 

NERR  =  0 

DO  10  1=1,17 

IF  (PMA(I)  -  1.0)  15,10,10 
10  CONTINUE 

GO  TO  26 
15  CONTINUE 

IF  (I  -  11)  90,90,20 
20  DO  25  J=I,17 

IF  (ABS(PMA(J))  -  .000001)  25,25,90 

25  CONTINUE 

26  DO  30  1=1,17 

IF  (PFA(I)  -  1.0)  35,30,30 
30  CONTINUE 

GO  TO  46 
35  CONTINUE 

IP  (I  -  11)  90,90,40 
40  DO  45  J=I,17 

IF  (ABS(PFA(J))  -  .000001)  45,45,90 

45  CONTINUE 

46  DO  50  1=1,17 

IF  (PMB(I)  -  1.0)  55,50,50 
50  CONTINUE 

GO  TO  66 
55  CONTINUE 

IF  (I  -  11)  90,90,60 
60  DO  65  J=I,17 

IF  (ABS(PMB(J))  -  .000001)  65,65,90 

65  CONTINUE 

66  DO  70  1=1,17 

IF  (PFB(I)  -  1.0)  75,70,70 
70  CONTINUE 

GO  TO  100 
75  CONTINUE 

IF  (I  -  11)  90,90,80 
80  DO  85  J=I,17 

IF  (ABS(PFB(J))  -  .000001)  85,85,90 
85  CONTINUE 

GO  TO  100 
90  HRITE(NPRNT,111) 
111  FORMAT  (//,63H  ***  FWDRV  ERROR  NO.  0431  —  INPUT  ERROR  IN  PMA,PFA,P 
*HB,  OR  PFB, 

*/, 108H  ***  AT  LEAST  ONE  POPULATION  DISTRIBUTION  HAS  DATA  FOR  LESS 
♦THAN  11  AGE  GROUPS,  OR  HAS  VALUES  LESS  THAU  1.0.) 
NERR  =  1 
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100  DO  110  1=1,17 

IF  (SXMA(I)  -  0.1)  115,105,105 
105  CONTINUE 

IF  (SXMA(I)  -  1.0)  110,110,190 
110  CONTINUE 

GO  TO  121 
115  CONTINUE 

IF  (I  -  12)  190,190,117 
117  DO  120  J=I,  17 

IF  (ABS  (SXNA(J))  -  .000001)  120,120,190 

120  CONTINUE 

121  DO  130  1=1,17 

i?  (SXFA(I)  -  0.1)  135,125,125 
125  CONTINUE 

IF  (SXFA(I)  -  1.0)  130,130,190 
130  CONTINUE 

GO  TO  141 
135  CONTINUE 

IF  (I  -  12)  190,190,137 
137  DO  140  J=I,17 

IF  (ABS(SXFA(J))  -  .000001)  140,140,190 

140  CONTINUE 

141  DO  150  1=1,17 

IF  (SX«B(I)  -  0.1)  155,145,145 
145  CONTINUE 

IF  (SXMB(I)  -  1.0)  150,150,190 
150  CONTINUE 

GO  TO  161 
155  CONTINUE 

IF  (I  -  12)  190,190,157 
157  DO  160  J=I,17 

IF  (ABS(SXMB(J))  -  .000001)  160,160,190 

160  CONTINUE 

161  DO  170  1=1,17 

IF  (SXFB(I)  -  0.1)  175,165,165 
165  CONTINUE 

IF  (SXFB(I)  -  1.0)  170,170,190 
170  CONTINUE 

GO  TO  240 
175  CONTINUE 

IF  (I  -  12)  190,190,177 
177  DO  180  J=I,17 

IF  (ABS(SXFB(J))  -  .000001)  180,180,190 
180  CONTINUE 

GO  TO  240 
190  HRITE(NPRNT,222) 

222  FORMAT  (//69H  ***  FWDRV  ERROR  NO.  0432  —  INPUT  ERROR  IN  SXMA,  SXFA 
*,  SXMB,  OR  SXFB, 

*/85H  ***  AT  LEAST  ONE  DISTRIBUTION  OF  SURVIVAL  RATES  BAS  DATA  FOB 
♦LESS  THAN  12  AGE  GROUPS, 
*/,52H  ***  OR  HAS  VALUES  LESS  THAN  0.  OR  GREATER  THAN  1.0.) 

NERR  =  1 
240  ISH1  =  1 

ISW2  =  1 

DO  265  1=1,7 

IF  (ABS (ASFR1 (I))  -  0.000001)  258,258,252 
252  CONTINUE 

IF  (ASFR1(I))  275,254,254 
254  CONTINUE 

IF  (ASFR1  (I)  -  0.5)  256,256,275 
256  CONTINUE 

ISH1    =    0 
258    CONTINUE 

IF     (ABS(ASFR2  (I))     -    0.000001)     265,265,260 
260    CONTINUE 

IF    (ASFR2(I))    275,262,262 
262    CONTINUE 

IF    (ASFR2(I)    -    0.5)     264,264,275 

264  ISW2  =  0 

265  CONTINUE 

IF  (ISH1)  266,268,266 

266  CONTINUE 

DO  267  1=1,7 

267  ASFR1  (I)  =  0.03 

268  CONTINUE 

IF    (ISH2)     280,280,269 

269  CONTINUE 
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DO    270    1=1,7 
270    ASFR2(I)     =   0.03 

GO   TO    280 
275    WRITE  (NPRNT, 333) 

333    FORMAT (//58H    ***    FWDRV    ERROR    NO-    0433    —    INPUT    ERROR   IN    ASFR1    OR    A 
*SFR2,/,82H    ***    AT    LEAST   ONE   AGE-SPECIFIC    FERTILITY    RATE    IS   LESS    TH 
*AN    0.0    OR   GREATER    THAN    0.5) 
NERR    =    1 
290    CONTINUE 

IF    (SRB   -    0.9)     300,310,295 
295    CONTINUE 

IF  (SRB  -  1.1)  310,310,300 
300  WRITE (NPRNT, 444) 

444    FORMAT (//47H   ***    FWDRV    ERROR    NO.    0434    —    INPUT    ERROR    IN    SRB, 
♦/,51H    ***    SEX    RATIO    AT    BIRTH   BUST    BE    BETWEEN    0.9    AND    1.1) 
NERR    =    1 
310    CONTINUE 

IF     (NERR)     320,400,320 
320    WRITE  (NPRNT, 555)     PMA, PPM A,PFA, PPFA ,PMB,PPMB,PFB, PPFB, SXMA,SXFA, 
*    SXMB,SXFB,SRB 

555  FORMAT  (/26H    ***    FWDRV    INPUT   ARGUMENTS 

*//6H    PMA=    ,9F12.0,/,6X,8F12.0,//,6H    PPMA  =    , 9F12. 0,/, 6X, 8F12.0, 
*//6H    PFA=    ,9F12.0,/,6X,8F12.0,//,6H    PPFA=    , 9F 12. 0,/,6X, 8F12.0, 
*//6H    PMB=    ,9F12.0,/,6X,8F12.0,//,6H   PPMB=    ,9F12. 0,/,6X,8F12.0, 
*//6H    PFB=    ,9F12.0,/,6X,8F12.0,//,6H    PPFB=    , 9F12. 0,/,6X,8F12.0, 
*//6H    SXMA=    ,9F12.4,/,6X,8F12.4,//,6H    SXFA=    ,9F 12. 4, /, 6X,8F12. 4, 
*//6H    SXMB=    ,9F12.4,/,6X,8F12.4,//,6H    SXFB  =    ,9F12. 4, /, 6X, 8F12. 4, 
*//,  6H    SRB=    ,F8.3) 
WRITE  (NPRNT, 556)     ASFR 1, ASFR2, YEAR  1 , YEAR2 

556  FORMAT  (//,9H   ASFR1=      ,7F12.7,//,9H    ASFR2=       ,7F12.7,//, 
*8H    YEAR1=    ,F7.2,10X,8H    YEAR2=    ,F7.2) 

TPMB  =  0.0 

TPFB  =  0.0 

DO  330  1=1,17 

PMB(I)  =  0.0 
330  PFB(I)  =0.0 

GO  TO  1000 
C 
c 

C PROJECT  EARLIER  POPULATION   (PMA  AND  PFA)  AND 

C REJUVENATE  LATER  POPULATION  (PMB  AND  PFB) 

c 

C 

400  CALL  ABREV  (1, PMA, PMB, N6) 

CALL  ABREV  (2, SXMB, SXFB, NG) 
CALL  ABREV  (2,SXHA,SXFA ,NG) 
CALL  ABREV  (3  ,PMA,SXFA,  NG) 
CALL  ABREV  (3, PMB, SXFB, NG) 
CALL  ABREV  ( 1,  PM  A,  PFA,  NG) 
CALL  ABREV  (1, PMB, PFB, NG) 
DO  405  1=1,17 
PHA1  (I)  =  PMA  (I) 
PFA1  (I)  =  PFA  (I) 
PMC  (I)  =0.0 
PFC  (I)  =  0.0 
PMB1  (I)  =  PMB  (I) 

405  PFB1  (I)  =  PFB  (I) 

CALL    PR0J5(PMA1,TPMA,PPMA,PFA1,TPFA,PPFA,SXMA,SXFA,ASFR1,ASFR2,SRB 
*,PPAR1) 
CALL   REVR5 (PMB 1 ,T PMB, PPMB, PFB1 , TPFB, PPFB, SXMB, SXFB, PPAR 2) 
DO    406    1=1,7 
ASFR3  (I)     =    PPAR2(5) 

406  ASFR4(I)     =    PPAR2(5) 
C 

c 

C AVERAGE  TWO  POPULATIONS  (PMB  AND  PFB)  AND  PROJECT  TO  LATER  DATE 

c 

C 

YEAR3    =     (YEAR1    +    YEAR2)    /    2.0 
WRITE  (NPRNT, 666)     YEAR3 

WRITE  (NPRNT, 567)     YEAR  1 ,YEAR2, YEAR  1 ,YEAR2 
567    FORMAT  (1 1X , F7. 2, 8X, F7.2, 23X,F7 .2, 8X,F7.2) 

WRITE  (NPRNT, 566) 
566    FORMAT(3X,3HAGE,/,1X,5HGROUP,3X,2 (9HPROJECTED, 6X, 8HREVERSSD,7X, 
*7HAVERAGE,8X)  ,/) 
K    =    0 
K4    =    K   +    4 
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IF    (ISW1    +    ISW2)     510,510,520 
510    PBC(1)    =    (PHB1(1)     ♦    PBA1(1))    /   2.0 
PPC(1)    =     (PFB1(1)     ♦    PFA1(1))    /   2.0 

WRITE  (NPRMT, 588)    K,K4,PHA1(1)  ,  PMB1  (1)  ,  PHC(1)  ,  PFA1  (1),PFB1(1)  , 
*PFC  (1) 
GO   TO    522 

520  PMC(1)    =    PHB(1) 
PFC  (1)    =    PFB(1) 

WRITE  (NPRNT, 521)     K,K4,PHB1  (1)  ,PFB1  (1) 

521  F0RHAT(1X,I2,  1H-,I2,  18X,  F8.  0,36X,F8.  0) 

522  NGH1    =    NG    -    1 
DO    410    I=2,NGH1 

PMC  (I)  »  (PHB1(I)  «■  PMA1(I))  /  2.0 
PFC  (I)  =  (PFB1(I)  ♦  PFA1(I))  /  2.0 
K   =     (I   -    1)     *    5 

K4  =  k  +  4 

WRITE  (NPRNT, 588)     K,K4,PHA1  (I)  ,PMB1  (I)  ,PHC(I)  ,PFA1  (I)  ,PFB1  (I)  , 

*  PFC  (I) 

588    FORHAT(1X,I2,1H-,I2,4X,F8.0,6X,F8.0,6X,F8.0,8X,F8.0,6X,F8.0, 
*6X,F8.0) 
PHB1  (I)    =    PMC  (I) 
410    PFB1  (I)    =    PFC  (I) 

PHC(NG)  =  (PHAI(NG)  ♦  PHB1(NG))  /  2.0 
PFC(NG)  =  (PFA1(NG)  *  PFB1  (NG)  )  /  2.  0 
K    =    5    *    (NG    -    1) 

WRITE  (NPRNT, 599)     K,PMA1  (NG)  ,PMB1  (NG)  ,PHC(NG)  ,PFA1  (NG)  ,PFB1(NG)  , 
*PFC(NG) 
599    F0RHAT<2X,I2,2H*    ,4X,F8.  0,6X,F8.  0,6X, F8. 0, 8X, F8.0,6X,F8.0, 6X, 
*F8.0) 
PHB1  (NG)     =    PMC(NG) 
PFB1  (NG)    =    PFC(NG) 

WRITE  (NPRNT, 611)    YEAR3, YEAR2,PPAR2 (3) 
611    FORMAT (/, 1X,21HCR0DE    BIRTH   RATE   FOR    ,F7.2,3H   -    ,F7.2,3H    =    ,F6.4) 

CALL    PROJ5 (PHB1,TPMB, PPMB, PFB1 ,TPFB,PPFB,SXMB,SXF B, ASFR3, ASFR4,SRB 
*,PPAB1) 
CALL   REVR5 (PMC,TPMC,PPHA, PFC,TPFC , PPFA, SXMA, SXFA, PPAR2) 
C 
C 

C WRITE   OOT    RESOLTS 

c . 

C 

TPHC  =  0.0 
TPHA  =0.0 
TPFC  =  0.0 
TPFA  =  0.0 
WRITE(NPRNT,655) 

655  FORMAT (///) 

656  FORMAT  (/) 

WRITE  (NPRNT, 667)     IEAR1 
666    FORMAT  (    72H   COMPARISON    OF    THE    POPULATION    DISTRIBOTIONS    OBTAINED    AT 

*  THE    MID-POINT    -    ,F7.2,/, 19X, 5HHALES, 40X, 7HFEMALES,/) 
WRITE  (NPRNT, 777) 

777    FORMAT(3X,3HAGE,/, 1X, 5HGR00P, 4X,2 (8HORIGINAL,4X, 1 OHCALCOLATED, 
*14H      PERCENT    DIFF,8X)/) 

DO    500    I=1,NGM1 

PDM    =    100.0    *    (PMA(I)-PMC(I))     /   PMC  (I) 

PDF    =    100.0    *    (PFA(I)-PFC(I))     /  PFC(I) 

TPMA   =   TPHA    +    PMA(I) 

TPFA    =   TPFA    ♦   PFA  (I) 

TPHC   =   TPHC    +   PMC  (I) 

TPFC    =    TPFC    ♦    PFC  (I) 

K   =     (1-1)     *    5 

K4    =    K    ♦    4 
500    WRITE  (NPRNT, 888)    K,K4,PHA  (I)  ,  PHC  (I)  ,  PDH,PFA  (I)  ,PFC(I)  ,PDF 
888    FORMAT  (1X, 12, 1H-, 12, 4X,F8.0,6X,F8.0,8X,F6. 2,8X,F8.0,6X,F8. 0,8X, 
*F6.2) 

TPHA    =   TPHA    ♦    PHA  (NG) 

TPFA    =   TPFA    +    PFA(NG) 

TPHC   =    TPHC    +    PHC(NG) 

TMPC    =   THFC    ♦    PFC(NG) 

PDH   =    100.0    *     (PHA(NG)     -    PHC(NG))     /   PHC(NG) 

PDF    =    100.0    *    (PFA  (NG)    -    PFC(NG))     /   PFC(NG) 

K  ~    5    *    NGH1 

WRITE  (NPRNT,  999)     K,PHA(NG)  ,PHC(NG)  ,PDH,PFA(NG)  ,PFC(NG)  ,  PDF 
999    FORMAT (2X, 12, 2H+    , 4X,F8. 0,6X, F8.0, 8X,F6.2 ,8X,F8. 0,6X,F8-0,8X, 
♦F6-2) 

K  =    0 
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PDH  =  100.0  *  (TPHA-TPMC) /TPHC 
PDF  =  100-0  *  (TPFA-TPFC)/TPFC 
WRITE(NPRNT,656) 

WRITE  (NPRNT, 999)  K,TPMA,TPMC, PDH, TPFA ,TPFC, PDF 
TPMA  =  TPMA  -  PMA(1) 
TPMC  =  TPMC  -  PMC(1) 
TPFA  =  TPFA  -  PFA  (1) 
TPFC  =  TPFC  -  PFC(1) 
WRITE  (NPRNT, 656) 
K  =  5 

PDB    =    100.0    *     (TPMA-TPHC)    /   TPMC 
PDF    =    100.0    *     (TPFC-TPFC)    /  TPFC 
WRITE (NPRNT, 999)     K,TPMA , TPMC, PDM, TPFA, TPFC, PDF 
WRITE  (NPRNT, 655) 
WRITE(NPRNT,667)     YEAF2 
667    FORMAT (/,68H   COMPARISON    OF    ORIGINAL    AND   CALCULATED   POPULATION    DIST 
♦RIBUTIONS    FOR    ,F7. 2,/, 19X, 5HHALES, UOX, 7HFEHALES,/) 
WRITE  (NPRNT, 777) 
TPMB   =    0.0 
TPFB    =0.0 
TPMB1    =    0.0 
TPFB1    =    0.0 
DO    600    I=1,NGH1 


PDM  =  100.0  * 
PDF  ■  100-0  * 
K  =  (1-1)  *  5 
Kl»  =VK  ♦  U 
TPMB  =  TPMB  + 
TPHB1  =  TPHB1 
TPFB  =  TPFB  + 
TPFB1    =    TPFB1 


(PMB(I)  -PMB1  (I)  ) 
(PFB(I)-PFBI  (I)) 


PMB(I) 

+  PHB1 (I) 

PFB(I) 

♦  PFB1  (I) 


PHB1  (I) 
PFB1  (I) 


600  WRITE (NPRNT, 888)  K,K4, PMB (I) , PMB1 (I) ,PDM,PFB (I) ,PFB1 (I) , PDF 


700 


TPMB    =   TPMB    ♦ 
TPHB1    =   TPHB1 
TPFB   =    TPFB    + 
TPFB1    =    TPFB1 
PDH    =    100.0    * 
PDF    =    100.0    * 
K  =    5    *    NGM1 
WRITE (NPRNT, 999) 
DO   700    1=1,3 
K  =    5    *    I 
TPMB    =   TPMB    - 
TPHB1    =    TPMB1 
TPFB    =   TPFB   - 
TPFB1    =    TPFB1 
PDM    =    100.0    * 
PDF    =    100.0    * 
WRITE (NPRNT, 656) 
WRITE (NPRNT, 999) 


PHB(NG) 

+    PMB1  (NG) 

PFB(NG) 

♦  PFB1  (NG) 
(PMB(NG)  - 
(PFB(NG)     - 


PHB1 (NG) ) 
PFB1  (NG)  ) 


PHB1  (NG) 
PFB1  (NG) 


K,PMB(NG)  ,PMB1  (NG)  ,PDN,PFB(NG)  ,PFB1(NG)  ,  PDF 


PMB  (I) 

-  PHB1  (I) 

PFB(I) 

-  PFB1  (I) 

(TPMB-TPMB1) 

/ 

TPHB1 

(TPFB-TPFB1) 

/ 

TPFB1 

K,TPMB, TPMB1 , PDM , TPFB ,TPFB1 , PDF 


c 

C RETURN  TO  CALLING  PROGRAM 

c 

C 

1000    CONTINUE 
RETURN 
END 
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GTCON 


I.  DESCRIPTION   OP   PROGFAH 

To  obtain  the  constants  cr  coefficients  required  for  applying  the 
techniques  presented  in  subroutines  ADJBG,  BRASH,  and  HLT.   GTCON  is  used 
only  in  conjunction  with  these  three  subroutines. 

II.  METHODOLOGY 

COMMENTS 

There  are  two  versions  of  this  subroutine.   The  first  version  uses  a 
subroutine  called  BLOCK  DATA.   The  BLOCK  DATA  subroutine  can  be  used  by  most 
computers.   Even  some  computers  that  do  not  allow  data  statements  will  accept 
BLOCK  DATA  subroutines.   Because  of  the  wide  acceptance  of  BLOCK  DATA  all  of 
the  MAIN  programs  and  subroutines  in  this  package  are  written  to  use  the 
version  of  GTCON  containing  the  BLOCK  DATA  subroutine.   In  this  version 
the  labeled  common  statement  is  used.   If  your  computer  accepts  BLOCK  DATA, 
the  subroutines  GTCON  and  BLOCK  DATA  can  be  used  as  given  in  Section  III. 
COMPOTE R  LISTING  FOR  SUBROUTINE. 

For  computers  that  do  not  accept  BLOCK  DATA  a  slight  modification 
must  be  made  in  any  MAIN  program  which  uses  the  subroutines  ADJBG,  BRASM, 
or  MLT;   some  data  must  be  added  to  the  input  for  the  main  program  and  a 
modification  to  the  subroutine  GTCON  is  also  needed.   The  MAIN  program 
must  have  the  following  lines  inserted  right  after  the  DIMENSION  statement. 

DIMENSION  C(954) 

COMMON  C 

READ  (NREAD,  1)  C 

1  FORNAT(8(17(6x,F10.5,3x,F10.6,  1x,P9.4,4x,  F9.  5,  1x,/)  ,  6x,F5.  2,  1x,F8. 
*3,1x,F8.4,1x,F6.3,1x,F7.3,1x,F7.3,1x,/,6x,F8.3, 1x,F7. 3, 1x,F7. 3, 1x, 
*F7.3,12x,/)  ,40(7x,8(F5.3,1x)  ,/)  ,  6x,  8F5.  4,  1x,/,  6x,  F7.5, 1x,F6.5,  20x) 

The  data  to  be  added  to  the  input  for  the  main  program  comes  from 
the  deck  of  cards  that  make  up  the  BLOCK  DATA  subroutine  listed  in 
Section  III.   The  BLOCK  DATA  subroutine  starts  with  the  words  BLOCK  DATA. 
The  cards  for  this  subroutine  should  be  sorted  into  two  stacks.   Be  certain 
the  cards  within  the  two  stacks  are  in  the  same  order  as  in  the  listing  in 
Section  III.   One  stack  will  contain  any  card  that  has  a  letter  of  the 
alphabet  on  it.   The  other  or  second  stack  will  contain  cards  that  have  an 
asterisk  and  numbers.   This  second  stack  will  also  contain  a  few  cards 
that  have  a  slash.   None  of  the  cards  in  the  second  stack  will  have  an 
alphabetic  letter  on  it. 

This  second  stack  of  cards  contains  194  cards  and  is  placed  in  front  of 
the  input  data  for  the  main  program.   These  194  cards  are  placed  in  front 
of  the  card  containing  the  label,  the  first  card  for  each  main  program, 
and  are  read  by  the  read  statement  inserted  at  the  beginning  of  the  main 
program. 

In  the  subroutine  GTCON  the  COMMON  statement  must  be  changed.   It  has  to 
be  changed  from  labeled  COMMON  to  unlabeled  common.   This  change  is  made  by 
taking  the  /DATA/  out  of  the  COMMON  statement.   Thus,  the  COMMON  statement 
reads  COMMON  C. 

III.  COMPUTER   LISTING   OF   SUBROUTINE 

SUBROUTINE    GTCON     (NPR0G,ND1 ,ND2, CONST) 

c 

c 

C PROGRAM  NO.  0490 

c 

C NPR0G,ND1    AND   ND2   ARE    INPUT   ARGUMENTS. 

C CONST    IS    AN   OUTPUT    ARGUMENT. 

C NPROG    IS    THE   NUMBER    OF    THE  SUBROUTINE    REQUIRING    THE   CONSTANTS. 
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C NPR0G=1    INDICATES    NLT,NPROG=2    INDICATES    ADJBG,    NPROG=3 

C INDICATES    BRASN. 

C ND1    IS    THE   FIRST    CONSTANT    ARRAY   CODE. 

C ND2    IS    THE   SECOND  CONSTANT   ARRAY    CODE. 

c CONST    IS    THE   ARRAY    OF   CONSTANTS    REQUIRED    BY    THE    SUBROUTINE    FOB 

C ITS    CALCULATIONS. 

c 

c . _ _ 

DIHENSION   CONST  (78) 

DIMENSION    C(954)  ,K(3,3) 

COBBON   /DATA/   C 

K(1,1)     =    0 

K(2,1)    =    78 

K(3,1)    =    156 

K(1,2)    =    624 

K(2,2)    =    16 

K(3,2)    =    128 

K(1,3)    =    880 

K(2,3)    =   74 

K  (3 ,3)    =    0 
c 

C CALCULATE  LOCATION    OF    APPROPRIATE    CONSTANTS    IN    C   

C ■ 

11=    K(2,NPROG) 

12=    K(1,NPROG)    +  (ND1-1)  *K(2,NPROG)    ♦  (ND2-1)  *K  (3,  NPROG) 

C 

C TRANSFER  CONSTANTS 

c _ 

DO  100  1=1,11 

13=  12  +1 

100  CONST  (I)=  C(I3) 
c . 

C RETURN  TO  CALLING  PROGRAM — ■ 

c „ 

RETURN 
END 
c _ _-„„-_.. _. 

C BLOCK    DATA    PROGRAM    SEGMENT    PLACES    CONSTANTS   INTO 

C COBMON    AREA    NABED    DATA    FOR    USE    OF    SUBROUTINE    GTCON    

c 

BLOCK    DATA 

DIHENSION    C1  (78)  ,C2  (78)  ,C3  (78)  ,C4  (78)  ,C5(78)  ,C6  (78)  ,C7  (78)  , 

*  C8(78)  ,C9(128),C10(128)  ,C11(74) 

COBBON   /DATA/   C1,C2,  C3,C4,C5,C6,C7,C8,C9,C10, C11 
c _ _ 

C NEST    BALE    BODEL   LIFE   TABLE   CONSTANTS 

C 

DATA   C1    / 

*  0.63726,         -0.009958,         5.8061,  -0.05338, 

*  0.40548,         -0.006653,         7.1062,  -0.08559, 

*  0.10393,         -0.001662,         5.4472,  -0.06295, 

*  0.07435,         -0.001183,         5.0654,  -0.05817, 

*  0.09880,         -0.001539,         4.8700,  -0.05070, 

*  0.14009,         -0.002183,         5.0677,  -0.05156, 

*  0.15785,        -0.002479,         5.2660,  -0.05471, 

*  0.18260,        -0.002875,         5.3438,  -0.05511, 

*  0.21175,         -0.003312,         5.2792,  -0.05229, 

*  0.25049,         -0.003864,         5.0415,  -0.04573, 

*  0.27894,         -0.004158,         4.6666,  -0.03637, 

*  0.33729,         -0.004856,         4.4506,  -0.02961, 

*  0.38425,         -0.005190,         4.2202,  -0.02256, 

*  0.48968,         -0.006300,         4.1851,  -0.01891, 

*  0.59565,         -0.007101,         4.1249,  -0.01491, 

*  0.73085,         -0.007911,         4.1051,  -0.01161, 

*  0.89876,         -0.008695,         4.1133,  -0.00895, 

*  .33,         1.352,         .0425,    1.653,       2.875,       3.013, 

*  58.540,    55.749,       5.046,       4.604  / 

c _ 

C NEST    FEMALE   BODEL    LIFE   TABLE  CONSTANTS    

c _ , 

DATA    C2   / 

*  0.53774,  -0.008044,  5.8992,  -0.05406, 

*  0.39368,  -0.006162,  7.4576,  -0.08834, 

*  0.10927,  -0.001686,  6.2018,  -0.07410, 

*  0.08548,  -0.001320,  5.9627,  -0.07181, 

*  0.10979,  -0.001672,  5.9335,  -0.06812, 

*  0.13580,  -0.002051,  5.9271,  -0.06577, 
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*  0. 15134,         -0.002276,  5.8145,  -0.06262, 

*  0.17032,         -0.002556,  5.6578,  -0.05875, 

*  0.18464,         -0.002745,  5.3632,  -0.05232, 

*  0.19390,         -0.002828,  4.9600,  -0.04380, 

*  0.20138,         -0.002831,  4.5275,  -0.03436, 

*  0.25350,         -0.003487,  4.4244,  -0.03004, 

*  0.31002,         -0.004118,  4.3131,  -0.02554, 

*  0.43445,         -0.005646,  4.3439,  -0.02295, 

*  0.53481,         -0.006460,  4.2229,  -0.01773, 

*  0.69394,        -0.007713,  4.1838,  -0.01376, 

*  0.84589,         -0.008239,  4.1294,  -0.00978, 

*  .35,  1.361,         .05,         1.524,       3.0,  1.627, 

*  55.749,    58.540,       4.604,  5.046  / 

c 

C NORTH    HALE    HODEL  LIFE   TABLE   CONSTANTS  

c 1 

DATA    C3    / 

*  0.54327,         -0.008251,  5.6151,  -0.05022, 

*  0.46169,         -0.007290,  7.2025,  -0.08475, 

*  0.18983,         -0.002974,  6.1947,  -0.07195, 

*  0.09551,         -0.001476,  5.3488,  -0.06047, 

*  0.09666,         -0.001422,  4.5662,  -0.04322, 

*  0.13472,         -0.001968,  4.6970,  -0.04277, 

*  0.14325,         -0.002103,  4.7661,  -0.04372, 

*  0.15280,         -0.002244,  4.7248,  -0. 01*236, 

*  0.17535,         -0.002589,  4.7568,  -0.04197, 

*  0.20924,         -0.003083,  4.7280,  -0.03986, 

*  0.24673,         -0.003605,  4.6020,  -0.03578, 

*  0.28578,         -0.004016,  4.3499,  -0.02857, 

*  0.36171,         -0.005037,  4.3718,  -0.02682, 

*  0.45849,         -0.006124,  4.2977,  -0.02244, 

*  0.59986,         -0.007677,  4.2858,  -0.01913, 

*  0.82662,         -0.010241,  4.3482,  -0.01710, 

*  1.03681,         -0.011906,  4.3197,  -0.01357, 

*  .33,         1.558,         .0425,    1.859,       2.875,      3.013, 

*  56.622,    53.922,      6.112,  5.911  / 

c 

C NORTH    FEHALE    HODEL  LIFE    TABLE    CONSTANTS   

c 

DATA    C4    / 

*  0.47504,         -0.006923,  5.7332,  -0.05133, 

*  0.45025,         -0.006805,  7.6298,  -0.08909, 

*  0.19376,         -0.002928,  7.1271,  -0.08647, 

*  0.10041,         -0.001497,  6.1089,  -0.07192, 

*  0.10126,         -0.001480,  5.4984,  -0.05955, 

*  0.11261,         -0.001618,  5.2649,  -0.05372, 

*  0.13137,         -0.001893,  5.2547,  -0.05236, 

*  0.15448,         -0.002239,  5.3691,  -0.05339, 

*  0.17693,         -0.002566,  5.3186,  -0.05136, 

*  0.18440,         -0.002612,  4.9099,  -0.04261, 

*  0.19440,         -0.002712,  4.6164,  -0.03627, 

*  0.22364,         -0.003011,  4.3673,  -0.02961, 

*  0.30043,         -0.004053,  4.4363,  -0.02858, 

*  0.41033,         -0.005394,  4.4163,  -0.02511, 

*  0.56691,         -0.007187,  4.4030,  -0.02152, 

*  0.77206,         -0.009334,  4.3826,  -0.01784, 

*  0.96175,         -0.010681,  4.3108,  -0.01355, 

*  .35,         1.57,  .05,  1.733,       3.0,  1.627, 

*  53.922,    56.622,       5.911,  6.112  / 

C 

C EAST  HALE  HODEL  LIFE  TABLE  CONSTANTS  

c 

DATA  C5  / 

*  1.07554,    -0.017228,  6.3796,  -0.06124, 

*  0.55179,    -0.009201,  7.8944,  -0.09934, 

*  0.15292,    -0.002523,  6.4371,  -0.08076, 

*  0.06856,    -0.001096,  5.1199,  -0.05978, 

*  0.10060,    -0.001578,  4.9229,  -0.05182, 

*  0.14725,    -0.002312,  5.1056,  -0.05225, 

*  0.15127,    -0.002381,  5.1036,  -0.05207, 

*  0.17022,    -0.002686,  5.1685,  -0.05244, 

*  0.20786,    -0.003277,  5.1986,  -0.05131, 

*  0.24876,    -0.003868,  5.0221,  -0.04577, 

*  0.28685,    -0.004320,  4.6915,  -0.03697, 

*  0.32623,    -0.004654,  4.3492,  -0.02767, 

*  0.38906,    -0.005243,  4.1849,  -0.02171, 

*  0.49337,    -0.006341,  4.1647,  -0.01842, 
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*  0.66168,         -0.008182,         4.2175,  -0.01634, 

*  0.84188,         -0.009644,         4.2171,  -0.01324, 

*  1.03876,         -0.010780,         4.2155,  -0.01035, 

*  .29,         1.313,         .0025,    1.614,      2.875,      3.013, 

*  56.664,    54.064,      5.883,      4.682  / 

c 

C EAST    FEMALE    MODEL    LIFE    TABLE  CONSTANTS    

c 

DATA    C6    / 

*  0.78219,  -0.011679,  5.8529,  -0.05064, 

*  0.46584,  -0.007284,  7.2269,  -0.08351, 

*  0.13739,  -0.002136,  6.3204,  -0.07590, 

*  0.07600,  -0.001166,  5.6332,  -0.06684, 

*  0.10067,  -0.001529,  5.5780,  -0.06295, 

*  0.13039,  -0.001973,  5.5872,  -0.06081, 

*  0.15401,  -0.002335,  5.6149,  -0.06004, 

*  0.169U1,  -0.002559,  5.4593,  -0.05616, 

*  0.18184,  -0.002718,  5.1881,  -0.05000, 

*  0.18555,  -0.002718,  4.8186,  -0.04209, 

*  0.19407,  -0.002746,  4.4509,  -0.03368, 

*  0.24415,  -0.003376,  4.3702,  -0.02966, 

*  0.34490,  -0.004723,  4.4480,  -0.02807, 

*  0.49585,  -0.006651,  4.4917,  -0.02544, 

*  0.68867,  -0.008874,  4.4702,  -0.02152, 

*  0.88452,  -0.010551,  4.3759,  -0.01640, 

*  1.07727,  -0.011513,  4.2972,  -0.01191, 

*  .31,         1.324,         .01,         1.487,       3.0,  1.627, 

*  54.064,    56.664,      4.682,      5.883  / 

c 

C SOOTH    MALE    MODEL    LIFE   TABLE   CONSTANTS    

c 

DATA    C7    / 

*  0.61903,  -0.008974,  4.7096,  -0.02980, 

*  0.70613,  -0.011375,  6.3246,  -0.06433, 

*  0.16455,  -0.002674,  5.6400,  -0.06389, 

*  0.07634,  -0.001207,  4.6816,  -0.05008, 

*  0.11449,  -0.001810,  4.9454,  -0.05170, 

*  0.17104,  -0.002693,  5.2748,  -0.05458, 

*  0.17171,  -0.002710,  5.1168,  -0.05152, 

*  0.16483,  -0.002535,  4.8459,  -0.04547, 

*  0.17905,  -0.002734,  4.7660,  -0.04292, 

*  0.20606,  -0.003081,  4.5796,  -0.03738, 

*  0.23208,  -0.003370,  4.3559,  -0.03116, 

*  0.28000,  -0.003917,  4.1918,  -0.02547, 

*  0.35245,  -0.004765,  4.1492,  -0.02193, 

*  0.49465,  -0.006569,  4.2479,  -0.02063, 

*  0.66947,  -0.008608,  4.3069,  -0.01863, 

*  0.89759,  -0.010843,  4.3251,  -0.01552, 

*  1.10111,  -0.011806,  4.2684,  -0.01123, 

*  .33,         1.24    ,         .0425,    1.541,       2.875,       3.013, 

*  55.590,    53.054,      5.601,      4.755  / 

c _ 

C SOOTH    FEMALE   MODEL   LIFE    TABLE   CONSTANTS    

c . 

DATA    C8    / 

*  0.52069,  -0.007051,  4.5097,  -0.02566, 

*  0.68268,  -0.010453,  5.9815,  -0.05532, 

*  0.17066,  -0.002657,  5.6479,  -0.06136, 

*  0.09000,  -0.001380,  5.1045,  -0.05537, 

*  0.12189,  -0.001851,  5.2384,  -0.05494, 

*  0.15083,  -0.002279,  5.1708,  -0.05171, 

*  0.16073,  -0.002412,  5.0949,  -0.04945, 

*  0.16719,  -0.002505,  4.9291,  -0.04590, 

*  0.17408,  -0.002583,  4.8035,  -0.04280, 

*  0.17278,  -0.002504,  4.4917,  -0.03615, 

*  0.17800,  -0.002513,  4.2693,  -0.03092, 

*  0.22639,  -0.003140,  4.1982,  -0.02717, 

*  0.30167,  -0.004130,  4.2724,  -0.02588, 

*  0.47682,  -0.006501,  4.4242,  -0.02491, 

*  0.67440,  -0.008891,  4.4554,  -0.02190, 

*  0.92943,  -0.011532,  4.4348,  -0.01775, 

*  1.16023,  -0.013009,  4.3542,  -0.01296, 

*  .35,         1.239,         .05,         1.402,       3.0,  1.627, 
♦53.054,    55.590,       4.755,       5.601                             / 

c 

c QOASI-STABLE  CBP    AND   GBB    ADJUSTMENT   CONSTANTS    

C 5    YEAR    INTERCENSAL   INTERVAL  
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DATA    C9    / 

*  -.003,    .010,    .021,    .025,  .025,    .025,  .023,    .022, 

*  -.005,    .007,    .018,    .022,  .023,    .022,  .021,    .019, 

*  -.007,    .017,    .045,    .062,  .068,    .069,  .066,    .063, 

*  -.009,    .015,    .042,    .058,  .065,    .065,  .063,    .059, 

*  -.010,    .005,    .039,    .070,  .089,    .096,  .098,    .094, 

*  -.004,    .012,    .045,    .076,  .094,    .102,  .103,    .100, 

*  -.012,-. 002,    .024,    .055,  .085,    .102,  .109,    .108, 

*  .005,    .016,     .042,    -073,  .103,    .120,  .127,    .126, 

*  -.013, -.004,    .019,    .045,  .075,    .102,  .118,    .123, 

*  .017,    .027,    .050,    .076,  .108,    .135,  .150,    .156, 

*  -.014,-. 000,    .021,    .045,  .068,    .095,  .117,    .129, 

*  .021,    .034,     .057,    .081,  .106,    .133,  .155,    .167, 

*  -.016, -.001,    .028,    .054,  .075,    .096,  .118,    .137, 

*  .019,    .038,    .065,    .092,  .114,    .136,  .158,    .178, 

*  -.018,    .000,    .031,    .059,  .082,    .101,  .119,    .138, 

*  .015,    .034,    .066,    .096,  .120,    .140,  .158,    .177                / 
c 

C QUASI-STABLE    CBB    AND    GRR    ADJUSTMENT    CONSTANTS    

C 10  YEAR  INTERCENSAL  INTERVAL  

C 

DATA  C10  / 

*  -.016,-. 008,  .000,  .005,  .006,  .006,  .007,  .006, 

*  -.017,-. 009,  .000,  .004,  .005,  .005,  .006,  .005, 

*  -.030, -.015,  .012,  .032,  .040,  .043,  .044,  .043, 

*  -.032, -.017,  .010,  .029,  .037,  .040,  .041,  .040, 

*  -.027,-. 019,  .011,  .043,  .064,  .073,  .076,  .076, 

*  -.035,-. 027,  .013,  .045,  .065,  .074,  .077,  .076, 

*  -.025, -.023,  .001,  .034,  .066,  .085,  .094,  .096, 

*  -.014, -.011,  .012,  .045,  .078,  .096,  .105,  .108, 

*  -.028,-. 025,-. 004,  .021,  .053,  .081,  .099,  .106, 

*  -.005,-. 002,  .019,  .045,  .078,  .106,  .124,  .131, 

*  -.033,-. 027, -.006,  .018,  .043,  .072,  .096,  .112, 

*  -.006,  .005,  .026,  .051,  .077,  .107,  .131,  .147, 

*  -.039, -.029, -.004,  .022,  .047,  .069,  .094,  .116, 

*  -.005,  .006,  .032,  .059,  .085,  .108,  .133,  .156, 

*  -.043,-. 032,-. 004,  .026,  .051,  .073,  .092,  .114, 

*  -.010,  .001,  .031,  .062,  .088,  .111,  .130,  .153      / 
c . 

C BRASS    MORTALITY    CONSTANTS    

c 

DATA    C11    / 

*  0.387,0.330,0.268,0.205,0.143,0.090,0.04  5,0,014, 

*  0.859,0. 890,0.928,0.977,1.041,1. 129,1.254,1.425, 

*  0.93  8,0.959,0.983,1.010,1.043,1.08  2,1. 129,1.  188, 

*  0.94  8,0.962,0.978,0.994,1.012,1.0  33,1.055    1.081, 

*  0.961,0.975,0.988,1.00  2,1.016,1.031,1.046,1.063, 

*  0.966,0.982,0.996,1.011,1.026,1.040,1.054,1.069, 

*  0.938,0.955,0.971,0.988,1.004,1.021,1.037,1.052, 

*  0.937,0.953,0.96  9,0.986,1.003,1.0  21,1.039,1.057, 
♦.48  64,. 2590,. 5864,. 3334,. 4 694,. 2464,. 4575,. 2075, 

*  1.01926,-84793  / 
END 


INTRP 


DESCRIPTION      OF      DATA 

A.  PURPOSE 

To  make  a  linear  or  exponential  interpolation  between  two  values.   The 
subroutine  can  be  used  to  interpolate  between  population  totals,  age-specific 
fertility  rates,  survival  rates,  life  expectancies,  or  other  such  demographic 
indicators. 

B.  DATA  NEEDED 

1.  Reference  point  for  the  first  set  of  data  or  indices. 

2.  Reference  point  for  the  second  set  of  data  or  indices. 

3.  The  data  to  which  the  first  reference  point  applies  or 
the  first  set  of  indices. 

4.  The  data  to  which  the  second  reference  point  applies  or 
the  second  set  of  indices. 

5.  The  reference  point  for  which  the  interpolation  is  to  be 
made. 

6.  The  type  of  interpolation  to  be  made. 

METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

Assuming  that  the  interpolation  is  made  for  year  t+s  between 
year  t  and  t+n  —  where  0  .<.  s  <_  n  —  the  formula  is: 

1.   Linear  interpolation 

jt+S     _    jt    _        S        .      /  jt  T*411^ 

n 


where 


It+Sis  the  index  to  be  interpolated. 
Exponential  interpolation. 

Tt+S_Tt   "J- mtt*4*/!*) 

1    -  I  •  e 


B.   COMMENTS 

The  variables  t,  n,  and  s  do  not  necessarily  have  to  be  years.   The 
interpolation  can  be  for  a  specific  year,  an  age,  a  population,  etc.   The 
interpolation  can  be  used  for  any  purpose.   The  only  restriction  is  that  in 
exponential  interpolation  Ic  cannot  be  zero. 

Empirical  data  can  fluctuate  over  time  and  interpolations  performed  on  such 
data  can  yield  unexpected  and  unacceptable  irregularities  in  the  results. 
Therefore,  the  interpolated  results  should  be  carefully  examined. 


185 


186       DOCUMENTATION 


III.  MAIN   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
proqram  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  proqram.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  INTRP(LOE,NWRIT,N,YA,YB,YC,A,C,B) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement- 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single- valued  or  refer  to  a 
group  of  values  which  are  called  an  array.   If  they  refer  to  an  array,  then  the 
variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
qreater  than  the  variable  name  is  dimensioned  in  any  subroutine  called  by  the 
main  proqram. 

For  this  subroutine  the  variables  names  A,B,  and  C  in  the  argument  string 
are  arrays.   The  following  dimension  statement  must  be  included  in  any  main 
program  or  subroutine  using  this  subroutine. 

DIMENSION  A  (99)  ,B(99)  ,C(99) 

B.   DTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  packaqe 
None 

2.  Library  functions 

a.  ABS  (absolute  value) 

b.  ALOG (natural  logarithm) 

c.  EXP (exponential) 
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3.      Card   diagram  of  main   program   and  subroutines. 


/ 


/ 
/ 
/ 

/I 

CARDS    INDICATING    END  OF    DECK         /    | 

/ 
/ 

/ 

/I        1 
INPOT    DATA                                /    |        | 

/       1        1 

/ 
/ 

/I       1       / 

COMPUTER   CONTROL    CARDS              /J        |    / 

/ 
/ 

/ 

/I       1       / 

SUBROUTINE    INTRP                /    |        |    / 

/ 


/I     I    / 

MAIN    PROGRAM  /    |        |    / 


/  -      -      —  /I  |       / 

/  COMPUTES    CONTROL   CARDS  /    |  |     / 

/ /      I  I  / 

I  / 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data,  see  the 
description  of  arguments  in  section  IV. B.   See  example,  section  V.C. 

Variable 
Card  Columns   Name    Definition 


1 

2-53 

54-80 

1 


4-6 


NXT 


NWBIT 


LOE 


Blank 

Label  used  to  identify  the  output 

Blank 


The  code  indicating  if  there  is  another 
data  set  following  this  one.   A  zero 
punched  in  column  1  indicates  that  this 
is  the  last  set  of  data.   Any  other  digit 
punched  in  column  1  indicates  that  an- 
other set  of  data  follows  this  one. 

The  write  indicator.   If  a  zero  is  punched 
in  column  2,  the  results  of  the  subroutine 
INTRP  will  not  be  printed  out.   If  any  other 
number  is  punched  in  column  2,  the  subroutine 
INTBE  will  write  out  the  results  of  its 
calculations. 

The  indicator  used  to  determine  the  type 
of  interpolation  to  be  done.   If  a  one 
is  punched  in  column  3,  linear  inter- 
polation will  be  done.   If  a  two  is  punched 
in  column  3,  exponential  interpolation  will 
be  done.   If  any  other  value  is  punched  in 
column  3,  both  linear  and  exponential  inter- 
polation will  be  done. 

Blank 
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7-14  |YA      | Reference  point  for  the  first  set  of  data. 
It  should  be  entered  so  the  value  has  a 
decimal  point  somewhere  in  the  8  columns. 

Ifieference  point  for  which  the  interpolation 
is  to  be  made.   It  should  be  entered  so  the 
value  has  a  decimal  point  somewhere  in  the 
8  columns. 

;        I  Reference  point  for  the  second  set  of  data. 
It  should  be  entered  so  the  value  has  a 
decimal  point  somewhere  in  the  8  columns. 

:   !M        IThe  number  of  observations  for  which  inter- 
polation is  to  be  performed.   N  can  be  a 
maximum  of  99.   The  number  should  be  entered 
so  that  it  ends  in  column  3  2. 

33-80  I         I  Blank 


I A       IThe  first  value  of  the  data  pertaining  to 

reference  point  I A  contained  in  columns  7-14  of 
card  2.   It  should  have  a  decimal  point  some- 
where in  the  8  columns. 

9-16  |         |The  second  value  of  the  data  pertaining  to 

reference  point  YA  contained  in  columns  7-14  of 
card  2.   It  should  have  a  decimal  point  some- 
where in  the  8  columns. 


72-80  |        |The  tenth  value  of  the  data  pertaining  to 

reference  point  YA  contained  in  columns  7-14  of 
card  2.   It  should  have  a  decimal  point  some- 
where in  the  8  columns. 


Note:   A  can  have  any  number  of  values  between  1  to  99.   The 
number  of  cards  to  be  used  depends  on  the  number  of  values 
given.   There  are  10  values  on  each  card,  so,  the  number  of 
cards  to  be  used  can  be  from  1  to  10. 


i*1 


i+n 


1-8 


9-16 


73-80 


The  first  value  of  the  data  pertaining  to 
reference  point  YC  contained  in  columns  23-30  of 
card  2.   It  should  have  a  decimal  point  some- 
where in  the  8  columns. 

The  second  value  of  the  data  pertaining 
to  reference  point  YC  contained  in  columns  23-3  0  of 
card  2.   It  should  have  a  decimal  point  some- 
where in  the  8  columns. 


The  tenth  value  of  the  data  pertaining  to 
reference  point  YC  contained  in  columns 
23-30  of  card  2.   It  should  have  a  decimal 
point  somewhere  in  the  8  columns. 


Note:   C  can  have  any  number  of  values  between  1  to  99. 
The  number  of  cards  to  be  used  depends  on  the  number  of  values 
given.   There  are  10  values  on  each  card,  so,  the  number  of 
cards  to  be  used  can  be  from  1  to, 10. 
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IV.    SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string 
enclosed  in  parentheses.   This  subroutine  begins  as  follows: 

SURBROUTINE  IHTRP(LOE, NHRIT,N, YA, YB, YC,A,C,B) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


LOE 


How  Obtained   Definition 


NMRIT 


N 
YA 

YB 

YC 


Transferred  In 


Transferred  In 


Transferred  In 
Transferred  In 

Transferred  In 

Transferred  In 

Transferred  In 

Transferred  In 

Transferred  Out 


ERROR  MESSAGES 


Indicates  whether  linear  or  exponential 
interpolation  is  to  be  performed.   If  LOE=1, 
then  linear  interpolation  is  to  be  performed. 
If  LOE=2,  then  exponential  interpolation 
is  to  be  done.   For  any  other  value,  both  linear 
and  exponential  interpolation  is  to  be  done. 
If  both  types  of  interpolation  are  calculated, 
then  the  warning  message  is  written  out  to  remind 
the  user  that  the  returned  interpolated  values 
are  the  result  of  exponential  interpolation. 

The  indicator  which  determines  whether  the 
subroutine  will  write  out  the  results  of 
its  calculations.   If  NHRIT=0,  the  results 
of  the  subroutine  will  not  be  written  out. 
If  NWRIT  eguals  any  other  value,  the  sub- 
routine will  write  out  the  results  of  its 
calculations. 

The  number  of  values  to  be  interpolated. 

The  reference  point  for  the  first  set  of 
data. 

The  reference  point  for  which  the  inter- 
polated set  of  data  are  to  be  obtained. 

The  reference  point  for  the  second  set  of 
data. 

The  first  set  of  data  which  refers  to  point 
YA.   This  data  consists  of  N  observations. 

The  second  set  of  data  which  refers  to 
point  YC.   This  data  consists  of  N 
observations. 

The  interpolated  values  that  refer  to  point 
YB.   When  both  linear  and  exponential  inter- 
polations are  made,  the  values  returned 
through  the  argument  string  are  the 
result  of  exponential  interpolation. 


0521***INTRP  ERROR  NO.  0521  —  INPUT  ERROR  IN  YA  OR  YC 
♦♦♦YEARS  INTERPOLATED  BETWEEN  ARE  BOTH  EQUAL  TO 
THEY  MUST  NOT  BE  EQUAL  TO  EACH  OTHER. 

0522^+INTRP  ERROR  NO.  0522  —  INPUT  ERROR  IN  A 

♦♦♦ONE  VALUE  OF  A  IS  ZERO,  EXPONENTIAL  INTERPOLATION  IS 
IMPOSSIBLE. 
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V.       PROGRAM       AND      BESOLTS 

A.       COMPUTER   LISTING    FOB    MAIN   PROGRAM 

c 

c _ 

C MAIN  PROGRAM  FOR  INTRP 

C 

c _ _ .... 

C THIS  PROGRAM  OSES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  FODR  READ 

C STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

c STATEMENTS  AS  FOLLOWS. 

C 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE 

C INFORMATION  TO  BE  USED  TO  IDENTIFY  THE  OUTPUT.   THIS  INFORMATION 

C WOULD  USUALLY  IDENTIFY  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

C ANALYZED  AND  GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR 

C ANALYSIS  THAT  ARE  BEING  DONE.   THIS  INFORMATION  IS  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  THE 

C INDICATOR (NXT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER  DATA  SET 

C FOLLOWING  THIS  ONE,  THE  WRITE  INDICATOR (NWRIT)  WHICH  DETERMINES 

C WHETHER  THE  RESULTS  OF  THE  SUBROUTINE  INTRP  SHOULD  BE  WRITTEN 

C ■  OUT,  THE  INTERPOLATION  INDICATOR (LOE)  WHICH  DENOTES  WHETHER 

C LINEAR  OR  EXPONENTIAL  OR  BOTH  TYPES  OF  INTERPOLATION  ARE  TO  BE 

C DONE,  THE  LIMITS  FOR  THE  INTERPOL ATION (YA  AND  YC) ,  THE  POINT  (YB) 

c T0  BE  INTERPOLATED  FOR  AND  THE  NUMBER (N)  OF  INTERPOLATIONS  TO  BE 

C DONE. 

C NXT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  1 

c INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER  NUMBER 

c PUNCHED  IN  COLUMN  1  INDICATES  THERE  IS  ANOTHER  SET  OF  DATA 

c FOLLOWING  THIS  ONE. 

C NWRIT   IS  IN  COLUMN  2  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  2 

c INDICATES  THAT  THE  RESULTS  OF  THE  SUBROUTINE  INTRP  ARE  NOT 

c T0  BE  pfilNTED  OUT.   FOR  ANY  OTHER  NUMBER  PUNCHED  IN  COLUMN 

c 2  THE  RESULTS  OF  THE  SUBROUTINE  INTRP  WILL  BE  PRINTED  OUT. 

c L0E   IS  in  COLUMN  3  OF  THIS  CARD.   A  ONE  PUNCHED  IN  COLUMN  3  IN- 

c DICATES  THAT  LINEAR  INTERPOLATION  IS  TO  BE  DONE.   A  TWO 

c PUNCHED  IN  COLUMN  3  INDICATES  THAT  EXPONENTIAL  INTERPOLA- 

c TION  IS  T0  BE  PBRFORMED.   FOR  ANY  OTHER  VALUE  PUNCHED  IN 

c COLUMN  3  BOTH  LINEAR  AND  EXPONENTIAL  INTERPOLATION  WILL  BE 

c PERFORMED. 

c YA   IS  IN  COLUMNS  7-14  OF  THIS  CARD.  IT  SHOULD  BE  ENTERED  SO  THAT 

c THE  VALUE  HAS  A  DECIMAL  POINT  AND  IS  IN  THE  EIGHT  COLUMNS 

C ALLOWED- 

c YC       IS    IN    COLUMNS    15-22    OF   THIS    CARD.       IT    SHOULD    BE   ENTERED    IN 

c THESE    COLUMNS    IN    THE    SAME    MANNER   AS    YA. 

c YB      IS    IN    COLUMNS    23-30    OF   THIS    CARD.       IT    SHOULD    BE   ENTERED    IN 

c THESE   COLUMNS    IN   THE   SAME    MANNER   AS    YA. 

C N      IS    IN   COLUMNS    31-32    OF    THIS   CARD.       IT    SHOULD    BE   ENTERED   SO 

c THAT    THE    NUMBER    ENDS    IN   COLUMN    32.       N    HAS    A    MAXIMUM   OF    99. 

C 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  DATA 

C VALUES (A)  TO  BE  USED  IN  INTERPOLATING.   THIS  DATA  PERTAINS  TO 

c THE  POINT  YA. 

c __  A   Is  CONTAINED  ON  AT  LEAST  ONE  CARD.   FOR  EACH  A  VALUE 

C EIGHT  COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT 

c COLUMNS  OF  THECARD.   THE  VALUE  MUST  BE  ENTERED  WITH  A 

C DECIMAL  POINT  OR  MUST  BE  ENTERED  SUCH  THAT  EACH  VALUE  ENDS 

c IN  COLUMNS  8,  16,  24,  ...»  72,  AND  80.   IF  A  HAS  MORE 

c THAN  TEH  VALUES  AS  MANY  CARDS  AS  NEEDED  SHOULD  BE  USED  AND 

C SHOULD  HAVE  THE  DATA  ENTERED  ON  THEM  IN  THE  SAME  MANNER  AS 

C ON  THE  FIRST  CARD. 

C 

C THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  DATA 

c VALUES (C)  TO  BE  USED  IN  INTERPOLATING.   THIS  DATA  PERTAINS  TO 

c THE  POINT  YC. 

c c   IS  CONTAINED  ON  AT  LEAST  ONE  CARD  AND  IS  ENTERED  IN  THE 

C SAME  MANNER  AS  A. 

c 

c . . 

DIMENSION  A  (99)  ,C  (99)  ,B{99) 

NPRNT  =  15 

NREAD  =  1 

10  READ(NREAD,11) 

11  FORHAT(1X,52H  ) 
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READ(NREAD, 22)     NXT,NWRIT,LOE, YA, YC, YB,N 
22   F0RMAT(3I1,3X,3F8.3,I2) 

READ(NREAD,33)  (A(I),I=1,N) 
33    FORMAT(10F8.0) 

READ(NREAD,33)  (C(I)  , I=1,N) 

WRITE (NPRNT, 44) 
44  FORMAT  (1H1) 

WRITE  (NPRNT, 11) 

CALL  INTRP(LOE,NWRIT,N,YA,YB,YC,A,C,B) 

IF  (NXT)  10,20,10 
20  CONTINUE 

STOP 

END 


B.      COHPUTER    LISTING    FOR    SUBROUTINE 

SUBROUTINE  INTRP  (LOE, NiRIT, N, YA, YB, YC, A,C, B) 

c 

c 

c PROGRAM  NO.  0520 

c . . 

C THE    INPUT    ARGUMENTS    TO    THIS    SUBROUTINE  ARE  LOE,     NHRIT,    N,    YA,    YB, 

C YC,    A,    AND   C. 

C THE  OUTPUT  ARGUMENT  FROM  THIS  SUBROUTINE  IS  B. 

c L0B   INDICATES  BITHER  LINEAR  OR  EXPONENTIAL  INTERPOLATION. 

C NHRIT   PRINT  INDICATOR.   PRINTS  WHEN  NONZERO. 

C N   IS  THE  NUMBER  OF  INTERPOLATIONS  TO  BE  PERFORMED. 

c YA   REFERENCE  POINT  FOR  VALUES  IN  A. 

c yB   POINT  TO  BE  INTERPOLATED  FOR. 

c YC   REFERENCE  FOR  VALUES  IN  C. 

C A   CONTAINS  THE  VALUES  TO  BE  USED  FOR  THE  INTERPOLATION  REFERRING 

c T0  poiNT  YA. 

c c   CONTAINS  THE  VALUES  TO  BE  USED  FOR  THE  INTERPOLATION  REFERRING 

c T0  poiNT  YC. 

C B   VALUES  THAT  WERE  INTERPOLATED  FOR  BY  THE  SUBROUTINE.   THEY 

c PERTAIN  TO  THE  POINT  YB. 

c 

C 

DIMENSION  A  (99)  ,C(99)  ,B(99) 

NPRNT  =  15 
C 
c 

C ERROR  CHECK 

C 

c 

IF(  YC  -  YA  )  70,60,70 
60  WRITE (NPRNT, 222)  YA 
222  FORMAT (/, 1X,51H***  INTRP  ERROR  NO.  0521  —  INPUT  ERROR  IN  YA  OR  YC 
*,/, 1X,49H***  YEARS  INTERPOLATED  BETWEEN  ARE  BOTH  EQUAL  TO  ,F8.3, 
*38H  THEY  MUST  NOT  BE  EQUAL  TO  EACH  OTHER.) 
63  WRITE  (NPRNT,  11) 
11  FORMAT (/,5X,18HINTRP  INPUT  VALUES,/) 

DO  65  I  =1,N 
65  B(I)  =  0.0 

WRITE  (NPRNT, 22)     LOB, NWRIT,N, YA, YB, YC 
22    FORMAT (5X,6HLOE   =    ,1 1,/, 5X, 8HNWRIT    =    ,I1,/,5X,4HN    =    ,12, 
*/,5X,5HYA    =    ,F13.5,/,5X,5HYB   =    , F13. 5,/,5X, 5HYC   =    ,F13.5) 
WRITE  (NPRNT, 33)     (A(I),I  =  1,N) 
33    FORMAT(/,5X,4HA   =    ,5  (F13.5, 3X) ,/, 9X, 5  (F13. 5,3X) ) 

WRITE  (NPRNT, 44)     (C(I),I=1,N) 
44    FORMAT (/,5X,4HC   =    ,5 (F13.5,3X) ,/, 9X, 5  (F13. 5,3X) ) 
GO    TO    1000 
C 
c 

C CALCULATE    DISTANCE    BET1EBN   POINTS    AND    DETERMINE    WHETHER   LINEAR 

C INTERPOLATION    IS    TO    BE    DONE. 

c 

C 

70    Z   =     (    YB    -    YA    )    /    (    YC   -    YA  ) 
IF(    LOE   -    2    )     80,160,80 
C 
c 

C LINEAR    INTERPOLATION 

C 
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80  DO   90  I  =  1,N 

90  B(I)  -  MI)  "  Z  *  (  MI)  "  C(I)  ) 
120  CONTINUE 

IF(  LOE  -  1  )  130, 1«0,130 
130  WRITE  (NPRNT, 444)  LOE 

444  FORMAT  (/,1X,19H***  INTERF  WARNING: ,/, 1X, 26H+++  INTERPOLATION  CODE 
♦IS  ,I1,85H  IT  HOST  BE  1  (LINEAR)  OR  2  (EXPONENTIAL);  BOTH  LINEAR  A 
*ND  EXPONENTIAL  HERE  COMPUTED., 

*A1X,52H***  EXPONENTIALLY  INTERPOLATED  VALOES  HERE  RETORNED.) 
140  CONTINUE 

IF(  NWRIT  )  150,1000,150 
150  WRITE(NPRNT,555) YA,YB,YC 

555  F0RHAT(/, 12X, 20HLINEAR  INTERPOLATION,//, 13X,1 8HINTERPOLATED  VALUE, 
♦//,  1X,3(F13.5,6X),/) 
DO  155  I  =  1,N 
155  WRITE  (NPRNT, 777)  A  (I)  ,B  (I)  ,C(I) 
IF  (LOE-1) 160,1000,160 
C 
c 

c EXPONENTIAL  INTERPOLATION 

C — 

C 


160  DO  170  I  =  1,N 

IF  (ABS(A(I))  -  0.0000001)  163,163,170 
163  WRITE  (NPBNT, 55) 
55  F0RHAT(/, 1X,44H***  INTRP  ERROR  NO.  0522  —  INPUT  ERROR  IN  A 

*,/, 1X,68H***  ONE  VALUE  OF  A  IS  ZERO,  EXPONENTIAL  INTERPOLATION  IS 
♦IMPOSSIBLE.   ) 
GO  TO  63 
170  B(I)  =  A(I)  ♦  EXP(ALOG(  C(I)  /  A(I)  )  ♦  Z  ) 

IF(  NWRIT)  180,1000,180 
180  WRITE  (NPRNT, 666) YA,YB,YC 
666  F0RHAT(/,13X,25HEXP0NENTIAL  INTERPOLATION,//, 17X, 18HINTERPOLATED  V 

♦ALUE,//,1X, 3(F13.5,6X) ,/) 
190  DO  200  I  =  1,N 

200  WRITE  (NPRNT, 777)  A  (I)  ,B(I)  ,C(I) 
777  FORMAT  (IX, 3  (F13.5,6X)) 
1000  RETURN 
END 


INTRP      193 


r- 

Hj 

-j 

Q_ 

cr> 
t-5 

2 

o~ 

o 

LA 

r*. 

S 

S 

£ 

U> 

N. 

r- 

Cj 

z: 

£ 

K 

cn 

^. 

~. 

to 

E 

s 

!» 

O 

vS 

CM 

— 

e 

~ 

£ 

o- 

m 

o 

o 

s 

!» 

;c 

~~ 

— 

• 

• 

" 

^ 

5 

^ 

' 

R 

" 

" 

™ 

o 

CO 

CO 

o- 

~ 

^ 

K 

t^ 

3- 

~ 

m 

^ 

° 

IT. 

Cr- 

Ct> 

3- 

s 

s 

s 

O- 

vS 

— 

~- 

s 

s 

s 

CO 

vS 

Ci 

O 

s 

lf> 

5 

OJ 

— 

• 

» 

s 

s 

$ 

s 

*o 

£ 

£ 

z 

2 

N 

r-- 

o 

m 

t 

s 

2 

0» 

f^ 

o- 

f> 

s 

to 

3 

O- 

O- 

U» 

OJ 

s 

s 

s 

oo 

C^J 

— 

— 

1 

3 

s 

vfi 

O 

O 

C> 

o 

o 

s 

S 

s 

CO 

cm 

• 

• 

• 

s 

s 

s 

— 

— 

s 

s 

K 

K 

K 

£ 

OJ 

vS 

0- 

(^ 

i^ 

o 

s 

s 

£ 

3- 

S- 

vS 

OJ 

co 

<»\ 

-~ 

o 

K 

s 

O 

(^ 

3- 

Co 

— 

r>- 

s 

v9 

O 

S 

s 

OJ 

D 

—. 

r- 

■— 

ITk 

CO 

— 

s 

s 

— 

3- 

O 

Ki 

o 

'•O 

5 

O 

O 

s 

s 

UJ 

rr» 

<M 

G: 

• 

• 

s 

s 

-J 

S. 

s 

in 

s 

V 

<r 

Ul 

5 

» 

s 

3 

s 

c9 

oo 

OO 

ir> 

u. 

r~ 

vr> 

Oo 

fC» 

9 

o 

3 

■*T 

3- 

vS 

0} 

tfi 

c«> 

r^ 

\» 

m 

5 

r- 

3- 

o 

5 

s 

o 

vS 

o 

l*> 

r^t 

X. 

OJ 

in 

0- 

r- 

% 

•*> 

o 

3 

s 

vS 

r» 

o~ 

O- 

Oj 

Or 

— 

rr> 

o 

— 

5 

a 

0» 

0= 

S 

o> 

re, 

h~ 

U-> 

o 

CO 

o 

OJ 

3 

z 

o 

— 

5 

3 

D 

"n 

CVI 

O 

• 

< 

. 

• 

3 

« 

• 

• 

3 

3 

z 

N 

3 

>j 

5 

ar 

5 

in 

3 

3 

o~ 

CO 

vS 

vS 

c» 

r^. 

0- 

— 

m 

§ 

• 

« 

£ 

o 

vS 

vS 

o- 

^ 

r- 

r» 

ir. 

Co 

fc» 

S 

o 

in 

o 

S 

S 

r~ 

o 

~~ 

O 

It, 

0- 

o- 

t^. 

vS 

S 

\S 

O 

— 

Ci 

S 

S 

— 

Oo 

t^ 

O 

O 

o 

f% 

o 

Co 

s 

l^~ 

a 

vS 

s 

S 

£ 

in 

"Ci 

CO 

T> 

\» 

o 

~ 

Cj 

— 

s 

z 

o- 

CO 

co 

s 

K 

O 

3- 

«■> 

• 

. 

• 

• 

s 

o 

— 

• 

. 

2 

3 

o; 

S 

s 

s 

u_ 

o 

s 

a 

lu 

2 

2 

vS 

O 

o» 

O 

O 

e: 

Oo 

— 

— 

O 

■— 

s; 

Ul 

3- 

CC 

r- 

S 

s 

in 

— 

Oj 

CO 

•^ 

-~ 

u. 

-~ 

v9 

0O 

CO 

vj> 

s 

CO 

O 

o 

a: 

r- 

O 

3 

s 

vS 

. 

Oo 

C\J 

o~ 

3- 

. 

vS 

vc, 

3- 

vS 

° 

«c 

ir> 

rn 

m 

o- 

o 

S 

a 

o~ 

LT> 

r- 

r*\ 

CO 

— 

in 

tr> 

O 

0» 

Ci 

1^ 

s 

CO 

t 

• 

3: 

in 

ir» 

o 

s 

s 

— 

vS 

0° 

vS 

f~- 

*■ 

vS 

vS 

O 

CJ 

Ci 

o 

s 

m 

O 

r^ 

r- 

v9 

CO 

CO 

£ 

s 

O- 

in 

IT> 

o- 

o- 

t 

• 

R 

o 

v» 

v& 

m 

o 

o~ 

• 

• 

R 

s 

cc 

-~ 

— 

— 

X 

LU 

cr- 

CO 

— 

S 

s 

o 

£ 

■— 

iC 

*r 

LL 

K> 

— . 

CO 

r~ 

CC 

OJ 

O 

vS 

m 

S 

CC 

in 

s 

3 

0» 

— 

o 

3- 

o 

OJ 

~ 

~~ 

o 

s 

o 

O 

Cj 

Or 

r- 

o 

s 

S! 

O. 

■ 

o- 

CO 

3- 

0» 

li- 

. 

CS 

fC, 

hv 

r- 

k; 

LL 

in 

— 

rr> 

<fc 

vS 

o 

s; 

S 

cc 

O 

Oo 

O 

— 

f^~ 

o 

— 

m 

O 

3- 

s 

• 

• 

• 

iu 

O 

— 

CJ 

s 

g 

t- 

>S 

CO 

cr- 

v9 

iri 

CC 

r^ 

o 

o 

o 

O 

s 

Ol. 

O 

r-~ 

3- 

>■ 

r~ 

rO 

lf> 

s 

2 

z 

o- 

N 

3- 

C£ 

Ct- 

CC 

vS 

in 

ia 

o- 

■« 

• 

2 

a 

M 

— 

1— 

— 

2 

r- 

o- 

Z 

— 

2 

s 

2 

5 

z 

— 

H 

2 

a 

er 

in 

-~ 

•3 

o- 

M 

Ci 

3- 

r- 

— 

2 

M 

2 

a 

<r 

0o 

CO 

ff> 

vr> 

cS 

*■ 

i- 

o 

2 

O 

o 

cs 

oo 

O 

2 

* 

Ui 

. 

Ln 

Oo 

0- 

re, 

o 

• 

Q 

r- 

^ 

fp> 

Z 

3: 

io 

— 

Oo 

o 

• 

vj) 

o 

2 

2 

2 

o 

O 

O 

00 

oo 

Q. 

o 

m 

rr» 

^f^ 

rr, 

2 

V- 

• 

. 

. 

cs 

o 

Oo 

tM 

2 

2 

M 

r- 

in 

OJ 

cr- 

oo 

■x. 

vS 

o 

O 

O 

O 

~ 

o 

O 

•<» 

o- 

a 

r- 

OJ 

(VI 

2 

3 

_i 

o~ 

Oo 

— 

ir» 

Ut 

o- 

• 

• 

• 

• 

3 

CO 

r~ 

vS 

m 

LU 

o- 

. 

• 

2 

2 

— 

— . 

S 

Of 

— 

2 

<n 

CC 

cc 

cr, 

cr 

— 

c~ 

„ 

- 

M 

CP 

fe> 

CO 

o 

M 

o~ 

ir» 

CO 

O 

» 

V-4 

M 

» 

~ 

z 

r-~ 

r-- 

vj» 

o- 

z 

rci 

in 

fr, 

Co 

- 

z 

o 

o 

z 

CO 

o 

r- 

"> 

LU 

Oo 

3- 

— 

3- 

UJ 

in 

vS 

3- 

OJ 

^ 

LU 

o 

o- 

UJ 

o 

o 

» 

"" 

:> 

o- 

<*> 

vS 

r- 

^ 

o- 

CO 

oo 

o» 

u. 

> 

. 

> 

o- 

3- 

n 

"• 

r> 

o 

LT> 

0) 

O 

rs 

o 

O 

o 

o 

•» 

O 

o 

vS 

r> 

o 

o 

-r 

n 

o 

— 

o 

— • 

r~ 

■— 

o 

CO 

O 

re, 

vS 

in 

o 

— 

• 

. 

n 

~ 

en 

— 

— 

CO 

^ 

^ 

CD 

— 

CO 

— 

N 

- 

— 

— 

- 

— 

o 

- 

V. 

a 

CO 

1. 

<* 

CO 

■B 
C 
CO 

co 

i_ 

a 

so 

-c 

i. 

a 
«o 

w 
O 

O 

\ 

"0 

o 

■o 

c 
OJ 

1. 

(3 

CO 

Tl 

3- 

V- 
-C 

■1- 

~5 

o 

/ 

a 

to 

vo 

L. 

a 
<o 

■B 
CO 

■J 

co 

-B 
CO 

€ 
3- 
J 

~5 

u 
<o 

a 

CO 

c 
CO 

u 

0 
CO 

Tl 

c 
<c, 

-o 

o 
o 

t 

3" 

J 

UJ 

c/> 

UJ 

c 
OJ 

V— 
Uj 

5 

fC» 

Hi 

3- 

194        DOCUMENTATION 


© 

So  o  ©  o  ©  o 

O  0©0©0©©O©©©©0©00 

«0             ©  ©0©©©0©©0©0©©©©0 

as         o   ©©oo©ooooooooooo 

•     •«f«ltfttftttl«t 

O  O         (NSOCNOvOCOvOC^fNOOO^t^OvOlO 

vo  so      vof>oro^voa-r~a,r^o>u*>*»-in(T) 

<Ti        r-a>*<T>or»t^CT\<yi^s»-rovOa-tf)(N 
Q  «-        vO<X>»"-a0cr)O>©CNVOvOr~r\)r*-T-©<N 

as  vf>o>vor»(Nr»*©vom©oom*coir> 

© 

B 

o 

m 

Pu  o 

SB  O  o  ©  ©  © 

in      o      M      o      ©oo©©©o©oo©o©o©o 

VO         H         9         ©         O00©00©0000©0000 

&       E-<      iJ       ©      ©inmoifiooooinmooooifi 
<-      «*      ««        t        i    ,    .    t    t    .    f    t    t    .    •    .    •    i    •    t 

kJ         t>         IT)         OONlflMbSNiOWr-OaiSlUir- 

03  O  vo      cNvoo><^oo©^coir>T~ooa>cNr-mif> 

E-<              o  o<  o  a>      ©r»»-frior»'r>o>cNina-ina>'T>'r>vo 

D               pli  os  w  r-      ooa-inmr^fivoinoofiOT-ntN^m 

Oi  w  h  oo(NCTioooo<Nr»roaivom©r^mm* 

e-i              o<  e-i  •*)  oor^ma-rofocvitNT-i-T-T- 

D  03         SB         ^ 

O  H        H        O 

e-f      si  oj 

h      pa     h      as      ps 

Cm  03        W        Eh 

■3        +>        «<        B        SB 

•m       en      m      h      m      o 

i/i      *-      sb      *3  o  o©o© 

H  ©      0©0©Oo©©©0©©©0© 

J  ©    ©O©©©000©00©0©0© 

•  ©   ©oo©©©©©©©©©©©©© 

H  ©  OOlTlfOOO^vOtNf^OCTiflT-i-OOfMOO 

SB  r»  r-0000VOv0a-*00t^V0r»fNr-(NVO>O 

M  ^  00m*00©v0OCTilf)00*00CN|(NT-© 

>  r-  0>O00M-r*N000\omoo(n(»0> 

©  ©in(Naoinvo^-iO(NCT>io<NCTs,orofo 

O  ©oor»«na-cn<r>c>irgr-'r-»- 


INTRP        195 


05 

o 

& 

o 

W 

o 

&-. 

o 

X 

o 

Ot 

O 

f— 

r^ 

o 

EH 

2 

o 

o 

vO 

H 
Eh 

w 

E 

«t 

B 

o 

h-l 

fJ 

o 

PS 

O 

«* 

o 

Pn 

05 

> 

o 
o 

in 

w 

Q 

o 

VO 

H 

W 

1 

vT> 

!= 

EH 

in 

^* 

H 

1-1 

VO 

« 

1-1 

o 

T» 

o 

«a 

Oi 

h 

H 

EH 

04 

S= 

H 

H 

« 

W 

SB 

H 

EH 

55 

H 

W 

M 

O 

Of 

Tl 

M 

a 

o 

W 

o 

rvj 

a* 

X 
H 

« 
M 

== 
H 

6» 
O 

o 

© 
o 
o 

o 

© 

VO 

o      (Ni^voO'-oofLnovr^QT-in'^inpooo 

(Ui-aXNicNnmotoooioninrno 

oorooooo»-'-r-T-(Nfr>=rr-fN»-ino 
©ooooooooooooo'-rNco© 

OOOOOOOOOOOOOOOOO'- 


oovoinrooivor~-'-in(NovooocD'_vo*o 

vO<TiinvOf0r-00O'_0Dv0'-vT>OaDS>"V0O 
0><NOOinOO«_(Na'VOcri^-ino>r-fNvOr>-0 

eO*OOOrrrr-rNm*OOmNlOO 

oooooooooooooo^-csfoo 
ooooooooooooooooot- 


(Tio<Nr-p*r-crio<Ninind-OT-(Tiinr>-o 

inooiooMN»Ki»ru)MninwineDo 

OOOOOOOOOOOOOO»-fNr0O 
OOOOOOOOOOOOOOOOOt- 


196        DOCUMENTATION 


►J 
*a 

M 

P-l 
Z 

M 

2 

o 

a. 

M 

M 

Q 

ss 
« 

H 

z 


Eh 
O 
CQ 


i-4 

«a 

H 

X 

w 
» 
o 
Cm 

M 
W 

<N 

OS      t 

O  Q  ©         CTi  ©  ©  ©  ©         CTi  O  O  O 

pa  ocnooo  o       a>  o  o  o 

m           , z  o      cr>  o  o  o  ©       en  ©  o  © 

■           ps  cs  ©      on  ©  ©  ©  o       <t>  o  o  o 

o           hid  meococom  moooonro 

r-          h  h  t        •    •    •    •  ttit> 

z  w  ©      \o  cr«  a  r»  ©      vo  cr>  *  c- 

q           h  ca  to      mmmm  \o       in  m  if)  in 

z          ,-j  a.  en 

w 

If)  i-  M 

t  SB 

O  M 

«  nvi  se 

03  O 

Z  E-l  D  H 

q  »  >•  oooooHit^orosj-oin 

W  z  o      oooo      o       <      ©       a- oo  a- co 

OT  EH  Q         O         W        O        OOOO         CM         >        O         CTi  t~-  <N  © 

■a    hM   h   d   o   iomoo   as      o   cm  cn  eo  co 
m      gn   e-i   i-i   m   a  a  r-  oo   w   ©   in   a-  a  vo  r» 

m  «S        <;        «s  «  •     •     i     t        Eh        W  •  c     o     i     . 

o  i-l  iJ  >  in      oo*-if>co      »      eh      m      eo«_if)co 

w  wo  o  «o      tnvoifiin      h      *      vo      m  v©  m  m 

H  CM  CM  Q  Oft                                            M       cf> 

PS  PCi  05  Pd.  <-                                      >-JO»- 

O              H  H  W  H                                                  «S         Cm 

Pm              Q  EH  E-t  «l                                                  H         OS 

O  95  Z  i-4                                               En        W 

Cm         ••  U  H  H  O                                                  SB        EH 

Eh         05         O  Cu  HZ 

w       eh      s  z  tw       os       03  z       w 

tO         Z         M  O  1-3         «S         M  O 

H        Z  H  J         IB         EH  Cm 

it3  W  EH   <  S         Z  X 

u       tn       «S  <  H       H       H       O       O  T-  *»  o       w  o       o«-»-o 

CO    EH    EB  i-3  Eh    »J        O    OOOO  O    OOOO 

O      OZ  OOOOO  OOOOO 

CQ    CM  Cm  W  OOOOO  OOOOO 

pa  as  z  in      orrw  in      ©  *~  r-  oo 

K       HHO  I  •     •    t     «  •  •     »     t     t 

mfhfhcm  ©©or-©  ©      ©  <n  r-  © 

zzzx  r>\ovoifivo  r^vovoiftvo 

W  H  H  Pfl  ON  c« 

>  r-  *» 

D  #   *    * 

O  *   *    * 

in       *  #  « 


INTRP        197 


as 

M 

aa 

H 
© 

S3 

u 

•4 
M 

O 
Eh 

i-5 

«a 

B 

a 

M 

W 

oa 


o 

O 

in 

© 

T— 

o 

O 

VO 

(N 

(N 

EH 

O 


Eh 

© 

3C 


© 

o 

!*• 

© 

o 

o 

lO 

© 

«N 

1*1 

N 
H 

S3 
H 

© 
O 

o 


© 

tw- 
os O 

O  6H 


© 


© 
© 
© 


«8  iJ 

X  «9 

D 

ss  o 

H  H 

es  aa 

©  as  o 

r>  «  m 

a>  H 
t-  M 

EH  OS 

H        B  <* 
»        Ot 

*a      sb  as 

H  M 

03  M 

EH  I     V 

O         I    Eh 

m         m 


EH 

M 
(0 

US 


V) 

03 


m  Q 

O  H 

H 

•   «1 

*8 

OS  « 

0  M 
«  EH 

01  SB 

pa  h 


o 

ea 
as 
pa 

cu  in 

03  OS  CC 

M  EH  <* 

pb  sb  pa 

pa  h  x 

o  *  » 

o  »  » 

CO  •  » 


to 

M 
O 

> 

EH 

D 

04 


Cw 

03 

Eh 


©  ©  © 

o  o  o 
o  o  o 
©  ©  o 
©  ©  © 
•  t  I 
©  to  © 
r»  v9  (-. 
o*  o*  ON 


©  ©  ©  © 

00  »»  ©  o 

\0  \0  O  O 

oo  r<i  o»  f- 

<N  ©  (NO 

If  •    • 

o  ©  o  © 


o  o  ©  o 

IN  &  ©  © 

©  <r>  ©  O 

en  ao  9  oo 

o  o  ©  «- 

•    •  •    I 

o  o  ©  o 


■  fi' 

pa  as 

SB     '    •«  flO  U 
SB    8B   t«   ►»    «M 


II  II  II 


INTRT 


I.  DESCRIPTION   OF   PROGRAM 

A„   PURPOSE 

To  determine  the  intrinsic  qrowth  rate,  given  the  female  life  table 
function  5L   in  the  childbearinq  aqes  and  age-specific  fertility  rates 

based  only  on  female  births. 

B.   DATA  NEEDED 

1.  Seven  eL   values  from  a  life  table  for  females  for  agas  15-19, 

5  x  a        » 

20-24.  25-29,  30-34,  35-39,  40-44,  and  45-49. 

2.  Seven  age-specific  fertility  rates  in  5-year  age  groups  for 
aqes  15-19,  20-24,  25-29,.  .. ,45-49. 

II.  BETHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

In  a  staple  population  the  relation  among  mortality,  fertility  and 
the  intrinsic  growth  rate  for  the  female  population  is 


v 


r  '  x  a*  =   mnnno.  (0 


u 


1  •  0  •  e      dx  =  100000. 


where 

x  is  the  age. 

1   is  the  survival  function  from  birth  to  age  x  (the  1   life 

X  X 

table  function  where  1  =  100000.). 

0xis  the  fertility  rate  at  age  x,  for  female  births. 

r  is  the  intrinsic  growth  rate. 

u  is  the  age  at  the  beqinninq  of  the  female  reproductive  ages. 

v  is  the  aqe  at  the  end  of  the  female  reproductive  aqes. 

In  discontinuous  notation,  the  above  formula  is: 

Y,      CL  .  J    •  e"r  *  (3d"2*5)  =  H  =  100000.  (2) 

*=15,5  5  x  5x 


where 

CL   is  the  CL   value  from  the  life  table  where  1  =  100,000. 
5  x         5  x  o 

To  obtain  the  intrinsic  qrowth  rate  the  above  equation  orast 
be  solved  for  r.   This  can  be  done  by  an  iterative  process. 
First,  settinq  r  equal  to  Tj  (for  instance  .01)  a  value  of  H, 
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in  formula  2  is  obtained.   Then  by  substituting  r   equal  to  r   (for 

instance  .04)  in  formula  (2),  a  second  value,  H  can  be  obtained. 

By  interpolating  between  these  two  values  an  estimate  of  r  is  obtained 
as  follows: 

(100000.  -  H  )  ,  . 

r3  =  r2  +  (F1  -  r2)    ^  -  g 

where 

r   is  the  first  approximation  of  the  intrinsic  growth  rate. 

Substituting  the  value  of  r3  in  eguation  (2)  a  value  H3  is  obtained. 
If  |H  -100000. |<  5  then  r   is  accepted  as  the  intrinsic  growth  rate. 
Otherwise,  the  r   and  H   from  this  interpolation  are  substituted  for  the 

r  or  r„  value  and  its  corresponding  H   value  in  equation  (3)  and  hence 

I       2  i 

obtaining  r..   The  r.  is  used  to  calculate  H..   The  value  of  H,  is  again 

4  4  4  4 

compared  with  100000.   If  the  difference  of  H,  and  100000.  is  greater 

4 

than  5,  then  the  above  iterative  procedure  is  repeated  until  the  constraint 
|H  -100000. |<  5   is  met. 

B.   COMMENTS 

The  intrinsic  growth  rate  obtained  as  a  result  of  the  calculations 
of  this  subroutine  is  for  a  stable  population  with  the  mortality  and 
fertility  characteristics  given  as  input.   This  intrinsic  growth  rate  will 
usually  differ  from  the  rate  of  natural  increase  of  the  population  for 
which  the  mortality  and  fertility  were  given. 

III.B  lit   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  mors  than  one  sob- 
routine  see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  INTRT  (BGLX5, ASFR, NWRIT, RNG) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
qroup  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  the  variables  BGLX5  and  ASFR  in  the  argument  string 
are  arrays.   The  following  dimension  statement  must  be  included  in  any  main 
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proqram   usinq    this   subroutine. 

DIMENSION    BGLX5(7) ,ASFR(7) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 
None 

2.  Library  functions 

a.  EXP  (base  of  the  natural  logarithm) 

b.  ABS  (absolute  value) 


3.   Card  diagram  of  main  proqram  and  subroutines. 


/  / 

/    CARDS  INDICATING  END  OF  DECK    / 

/ / 

/  /I 

/  INPUT  DATA  /  | 

/ /   I 

/  /I   I   / 

/     COMPUTER  CONTROL  CARDS         /  |   |  / 

/ /   1   1/ 

/  /I   I   / 

/  SUBROUTINE  INTRT       /  |   |  / 

/ /   I   1/ 

/  /J    I   / 

/  MAIN  PROGRAM  /  |   |  / 

/       COMPUTER  CONTROL  CARDS       /  |   |  / 


BEGINNING  OF  DECK 


I  / 
1/ 

/ 


/ 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  proqram  included  with  this 
publication  are  as  qiven  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arquments  in  section  IV.  B.  See  examDle,  section  V.  C. 


Card 
1 


Columns 

1 

2-53 

54-80 

1-7 
8-14 


Variable 

Name    Definition 
I 
(Blank 


BGLX5 


I 

I  Label  used  to  identify  the  output 

I 

| Blank 

I 

I 


Capital  rL   from  the  life  table  for 
females  15-19.   The  number  should 
end  in  column  7. 


I 
I 
I 
I 
ICapital  cLv  from  the  life  table  for 


females  20-24.   The  number  should 
end  in  column  14. 
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I    3 


j    4 


15-21     j 


1 

43-49     | 
I 

I 

I 

50-80    | 

I 

1-7        |ASFK 

I 


8-14 


15-21     | 

I 


43-49     | 


50-80    ( 
I 


INHEIT 

I 


NXT 


4-80! 


jCapital   5LX  from  the   life   table  for 
females   25-29.      The   number   should 
end   in  column   21. 


Capital   5LX   from  the   life   table   for 
females  45-49.      The   number   should 
end   in  column   49. 

Blank 

Age-specific  fertility  rate  for  female 
births  by  females  15-19.   The  number  should 
be  entered  with  a  decimal  in  column  2. 

Aqe-specific  fertility  rate  for  female 
births  by  females  20-24.   The  number 
should  be  entered  with  a  decimal  in 
column  9. 

Aqe-specific  fertility  rate  for  female 
births  by  females  25-29.   The  number 
should  be  entered  with  a  decimal  in 
column  16. 


Aqe-specific  fertility  rate  for  female 
births  by  females  45-49.   The  number 
should  be  entered  with  a  decimal  point 
in  column  44. 

Blank 

Write  indicator.   If  a  zero  is  punched 
in  column  1,  the  subroutine  INTRT  will  not 
write  out  the  results  of  its  calculations. 
If  any  other  value  is  punched  in  column  1, 
the  subroutine  INTRT  will  write  out  the 
results  of  its  calculations. 

Blank 

The  code  indicating  if  there  is  another 

set  of  data  following  this  one.   If  a  zero  is 

punched  in  column  3,  this  is  the  last  set  of 

data.   Any  other  value  punched  in  column  3 

indicates  another  set  of  data  follows  this 

one. 

Blank 
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A.  SUBROUTINE  STATEMENT 

All  external  subroutines  beqin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  INTRT  (BGLX5,ASFR,NWRIT, RNG) 

B.  DESCRIPTION'  OF  ARGUMENTS 


Name 
I 

IBGLK5 
I 


Row  Obtained   Definition 
i 
Transferred  In  fThe  seven  Capital  5L  from  a  life  table 
|for  ages  15-19,  20-214,  25-29,  30-34, 
S35-39*  40-44  and  45-49.   If  any  of  tha 
Iseven  5LX  are  less  than  60,000  or  great- 


|ec  than  472,000,  the  subroutine  will 
Sprite  out  error  message  number  0551 
land  return  to  the  calling  program. 
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ASFR    (Transferred   In 


HHRIT 


RNG 


Transferred  In 


Transferred  Out 


The  5-year  aqe-specific  fertility 
rates  for  female  births  only  for 
females  aqe  15-19,  20-21,  25-29,  30-34, 
35-39,  40-44,  and  45-49.   If  any  of  the 
seven  values  for  the  aqe-specific 
fertility  rates  are  negative,  the 
subroutine  will  write  out  error  message 
number  0552  and  return  to  the  calling 
proqram. 

The  write  indicator  which  determines 
whether  the  subroutine  will  write  out 
the  results  of  its  calculations.   If 
NWRIT  is  zero,  the  subroutine  will  not 
write  out  the  results  of  its  calcula- 
tions.  For  any  other  value  the  sub- 
routine will  write  out  the  results  of 
its  calculations. 

The  intrinsic  growth  rate  pertaining 
to  a  stable  population  with  the  given 
Capital  5Lx  and  aqe-specific  fertility 
rates. 


C.   ERROR  MESSAGES 

0551  ***  INTRT  ERROR  0551  —  INPUT  ERROR  IN  BGLX5 

***  ALL  VALUES  OF  CAPITAL  L  MUST  BE  GREATER  THAN  60,000  AND 
LESS  THAN  472J0OO. 

0552  ***  INTRT  ERROR  0552  —  INPUT  ERROR  IN  ASFR 

***  ALL  VALUES  OF  AGE-SPECIFIC  FERTILITY  RATES  BUST  BE  POSITIVE. 

0553  ***  INTRT  ERROR  0553  --  PROBABLE  INPUT  ERROR 

***  IMPOSSIBLE  TO  ESTIMATE  INTRINSIC  GROWTH  RATE (CHECK  INPUT) 


V.   PROGRAM   AND   RESULTS 

A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 


c 

c 

c HAIii  PKOGRAM  FOR  SUBROUTINE  INTRT 

c 

c 

C THIS  PROGRAM  USES  A  SET  OF  DTAT  CARDS  WHICH  IS  READ  IN  BY  FOUR 

C READ  STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLWS. 

C 

c THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

c T0  BE  0SED  T0  IDENTIFY  THE  OUTPUT.   THIS  LABEL  WOULD  USUALLY 

C CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

c ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

C THE  TYPE  OF  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 

c XN  COLUMNS  2-53  OF  THE  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  THE  SEVEN 

C LIFE  TABLE  VALUES  OF  CAPITAL  L  (BGLX5)  FOR  THE  5-YEAR  AGE  GROUPS 

C 15-19  THROUGH  45-49. 

C BGLX5  IS  CONTAINED  ON  ONE  CARD.   SEVEN  COLUMNS  ARE  ALLOWED  FOR 

C EACH  VALUE.   THE  VALUES  SHOULD  BE  ENTERED  SO  THAT  THEY 

C —         END  IN  COLUMNS7,  14,  ...  ,  49. 

C 

C THE  THIRD  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  SEVEN 

c VALUES  OF  THE  AGE-SPECIFIC  FERTILITY  RATES  FOR  FEMALE  BIRTHS 

C ONLY  (ASFR)  IN  5-YEAR  AGE  GROUPS  15-19  THROUGH  45-49.   THE 

C FERTILITY  RATES  ARE  EXPRESSED  PER  WOMAN. 

C ASFR   IS  CONTAINED  ON  ONE  CARD.  SEVEN  COLUMNS  ARE  ALLOWED  FOR 

c E&CH  VALUE.   THE  VALUES  SHOULD  BE  ENTERED  SO  THAT  THE 

c DECIMAL  POINTS  WILL  BE  IN  COLUMNS  1,  8,  ...  ,43. 

C 

C THE  FOURTH  READ  STATEMENT  USES  ONE  DATA  CARD. 
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C  — THE  PURPOSE  OF  THE   FOURTH  READ  STATEMENT  IS  TO  READ  IN  (1)  THE 

c C0DE  INDICATING  WHETHER  OR  NOT  THE  RESULTS  OF  THE  SUBROUTINE  ARE 

c T0  BE  PRINTED  (NHRIT)  AND  (2)  THE  CODE  INDICATING  IF  THERE  IS 

C ANOTHER  SET  OF  DATA  FOLLOWING  THIS  ONE  (NXT) . 

C NWP.I1   IS  LOCATED  IN  COLUMN  1.   IF  A  ZERO  IS  PUNCHED  IN  COLUMN  1 

c THE  OUTPUT  HILL  NOT  BE  PRINTED.   IF  ANY  OTHER  NUHBER  IS 

c PUNCHED  IN  COLUMN  1,  THE  OUTPUT  BILL  BE  PRINTED. 

c_-_—  NXT   IS  LOCATED  IN  COLUMN  3.   A  ZERO  PUNCHED  IN  COLUMN  3 

c INDICATES  THIS  IS  THE  LAST  SET  OF  DATA.   ANY  OTHER  DIGIT 

c PUNCHED  IN  COLUMN  3  INDICATES  ANOTHER  SET  OF  DATA  FOLLOWS 

c THIS  ONE. 

c _ _ 

c _ 

DIMENSION    BGLX5(7)  ,ASFR(7) 
NREAD    =    1 
NPRNT    =    15 

5  READ  (NREAD, 3) 
READ(NREAD,2)      (BGLX5  (I)  .  1=1  ,7) 
READ (NREAD, 6)      (ASFR  (I) , 1= 1 , 7) 
READ  (NREAD, 1)     NWRIT, NXT 
WRITE  (NPRNT, 7) 

WRITE  (NPRNT, 3) 

CALL  INTET (BGLX5 , ASFR, NWRIT, RNG) 
IF  (NXT)  4,4,5 
4  CONTINUE 
STOP 

1  FORMAT  (11, 1X, 11) 

2  FORMAT  (7F7. 0) 

3  FORMAT  (1X,52H  ) 
7  FORMAT  (1  HI) 

6  FORMAT  (7F7.6) 
END 


B.       COMPUTER    LISTING    FOR    SUBROUTINE 

SUBROUTINE    INTRT(BGLX5, ASFR, NWRIT, RNG) 

c 

c 

C PROGRAM  NO.  0550 

c — _ 

c  —  _ 

C THE  INPUT  ARGUMENTS  ARE  BGLX5,  ASFR,  AND  NWRIT. 

C THE  OUTPUT  ARGUMENT  IS  RNG. 

C BGLX5  IS  THE  SEVEN  LIFE  TABLE  VALUES  OF  CAPITAL  L  FOR  THE 

c FEMALE  5-YEAR  AGE  GROUPS  15-19  THROUGH  45-49. 

C ASFR   IS  THE  SEVEN  AGE-SPECIFIC  FERTILITY  RATES  IN  5-YEAR  AGE 

c GROUPS  15-19  THROUGH  45-49.   THE  FERTILITY  RATES  ARE  FOR 

c FEMALE  BIRTHS  ONLY  AND  ARE  PER  WOMAN. 

C NWRIT   IS  THE  PRINT  OPTION.   IF  NWRIT=0,  THE  OUTPUT  WILL  NOT  BE 

c PRINTED.   IF  NWRIT  EQUALS  ANY  OTHER  NUMBER,  THE  OUTPUT  WILL 

C BE  PRINTED. 

C RNG   IS  THE  INTRINISIC  GROWTH  RATE  GIVEN  AS  OUTPUT. 

c 

c 

DIMENSION    BGLX5  (7) .ASFR (7) ,AGE(7) 

NPRNT    =15 
C 
c 

C > —  VERIFICATION  OF  INPUT  ARGUMENTS 

c _ 

C 

NERR  =  0 

DO  11  1=1, 7 

IF  (BGLX5  (I)  -  60000.)  1,1,2 

2  CONTINUE 

IF  (BGLX5(I)  -  472000.)  11,1,1 
11  CONTINUE 
GO  TO  8 
1  NERR  =  1 

WRITE (NPRNT, 3) 

3  FORMAT (//,49H  ***  INTET  ERROR  NO.  0551  —  INPUT  ERROR  IN  BGLX5,/, 
*80H  ***  ALL  VALUES  OF  CAPITAL  L   MUST  BE  GREATER  THAN  60000.  AND  L 
*ESS  THAN  472000.   ) 

8  CONTINUE 
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DO    6    1=1,7 

IF     (ASFR  (I)     +    0.00001)     5.6,6 
5    CONTINUE 

GO    TO    9 
>    NERR   =    1 

WHITE  (NPRNT, 7) 
7  FORMAT(/,48H  ***  INTRT  ERROR  NO.  0552  —  INPUT  ERROR  IN  ASFR 
*,/,68H  ***  ALL  VALUES  OF  THE  AGE-SPECIFIC  FERTILITY  RATES  BUST  BE 
♦POSITIVE) 


9  CONTINUE 

IF  (NERR)  4,4,70 


ITERATIVE  INTERPOLATION  FOR  ESTIMATE  OF  NATURAL  GROWTH  RATE 


4  R1  =  .01 

R2  ■  .04 

A  =  0. 

B  =  0. 

DO  10  I  =1,7 

Y  =  I 

AGE(I)  =  17.5  +  5.  *  (Y-1) 

A  =  A  +  (EXP(-R1  *  AGE(I)))  *  BGLX5  (I)  *  ASFR  (I) 
10  B  =  B  +  (EXP(-R2  *  AGE(I)))  *  BGLX5(I)  *  ASFR(I) 

DO  50  K  =  1,12 

RNG  =  0. 0 

C  =  0. 

RNG  =  R2  +  (R1-R2)  *  ((B-100000.)  /  (B-A) ) 

DO  20  I  =1,7 
20  C  =  C  +  (EXP(-RNG  *  AGE  (I)  )  )  *  BGLX5(I)  *ASFR(I) 

IF  (AB3(C-100000.)  -  5.)  90,90,30 
30  CONTINUE 

IF  (ABS(RNG-RI)  -  ABS(R2-RNG))  40,35,35 
35  R1  =  RNG 

A  =  C 

GO  TO  50 
40  S2  =  ENG 

B  =  C 
50  CONTINUE 

WRITE  (NPRNT, 60) 
60  FORHAT(/,49H  ***  INTRT  ERROR  NO. 0553  —  PROBABLE  INPUT  ERROR 

*/63H  ***  IMPOSSIBLE  TO  ESTIBATE  INTRINSIC  GROWTH  RATE  (CHECK  INPUT 
*)) 

PRINTING  OF  INPUT  ARGUBENTS  AND  ZEROING  OUT  OF  RNG  BECAUSE  OF 

ERRSORS. 


70  WRITE (NPRNT, 80)  ASFR,BGLX5, NWRIT 
80  FORMAT(//27H      INTRT  INPUT  ARGUBENTS,, 
*//26H      ASFR=  ,7F13.4 

*/27H      CORRESPONDING  BGLX5=   ,7F13.0, 
*/13H      NWRIT  =  ,  15) 
RNG  =0.0 
GO  TO  1000 


PRINTING  OF  OUTPUT  AND  RETURN 


90  CONTINUE 

IF  (NWRIT)  1000,1000,100 
100  WRITE(NPRNT,110) 
110  FORMAT (////, 2X,3HAGE,4X, 9HFERTILITY, 51, 4HL(X)  ,/, 1 1 X, 5HRATES) 

DO  120  1=1,7 

NAGE  =  10  +  5  *  I 

NAGF  =  NAGE  +4 

WRITE(NPRNT, 130)  NAGE, NAGF, ASFR (I) ,BGLX5(I) 
120  CONTINUE 
130  FORMAT(1X,I2,1H-,I2,4X,F6.5,6X,F7.0) 

WRITE(NPRNT,140)  RNG 
140  FORBAT(//,1X,25HINTRINSIC  GROWTH  RATE  IS  ,F7.5  ) 
1000  RETURN 

END 
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INTSP 


I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To  estimate  a  stable  population  distribution  and  the  life  table  per- 
taining to  such  a  population,  given  the  intrinsic  growth  rate  and  another 
population  parameter. 

B.  DATA  NEEDED 

1.  An  indicator  for  determining  which  stable  population  parameter  is  to  be 
matched.   See  the  chart  given  in  the  section  IV. B.  Description  of  Arguments. 

2.  The  value  of  the  stable  population  parameter  which  is  to  be  matched. 

3.  The  intrinsic  growth  rate  of  the  stable  population  whose  distribution 
is  to  be  obtained. 

U.   The  sex  for  which  the  stable  population  distribution  is  to  be  obtained. 

5.   The  region  of  the  Coale-Demeny  Model  Life  Tables  which  is  to  be  used 
in  determining  the  stable  population  and  life  table  pertaining  to  the  given 
parameter  and  intrinsic  growth  rate. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

By  using  the  regression  coefficients  calculated  by  Coale  and  Demeny  a 
model  life  table  for  a  particular  region  is  generated  for  a  life  expectancy  at 
birth  of  40  years.   With  this  life  table  and  the  given  intrinsic  growth  rate, 
a  stable  population  and  its  parameters  are  calculated.   (For  this  purpose  the 
SPP  subroutine  is  used.)   The  same  procedure  is  repeated  by  generating  a  life 
table  with  a  life  expectancy  at  birth  of  65  years. 

With  the  given  specific  stable  population  parameter  and  the  similar 
parameter  from  the  two  above-calculated  stable  populations  the  following 
interpolation  procedure  is  made 


(7  Z  ) 

o3  _  o1  .  ,o2   o1v   v  e  ~  V 

eo  "  eo  +  (eo  -  e0}  *  (z*-  V 


where 

o, 

e   is  the  life  expectancy  at  birth  of  40. 

02 

eQ  is  the  lxfe  expectancy  at  birth  of  6  5. 

°3 

e   is  the  estimate  of  the  life  expectancy  at  birth 

corresponding  to  the  given  parameter  that  describes  the 
stable  population. 

z     is  the  given  parameter  pertaining  to  the  stable 

population  that  will  be  estimated. 

z?  is  the  stable  population  parameter  corresponding 

02 
to  the  life  table  with  e0  of  65  and  the  given  intrinsic  growth  rate 

Z]  is  the  stable  population  parameter  corresponding 
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°l 
to  the  life  table  with  e  of  40  and  the  given  intrinsic  qrowth  rate. 

o  * 

o3  o3 

Once  the  estimate  eQ  is  obtained,  a  life  table  corresponding  to  e  and  a 

stable  population  based  on  this  life  table  are  generated  with  the  given 
intrinsic  growth  rate*   This  new  stable  population  yields  another  estimate 
of  the  given  specific  parameter,  that  is  z, . 


If 


|.  -  .  |  <  « 


where 

o  varies  with  the  parameter  being  interpolated. 

03 
If  the  constraint  is  met,  the  process  is  completed.   Otherwise,  eQ  and  z. 

oi  03 

replaces  the  eQ   and  z-  (for  1=1, 2)  which  is  furthest  from  e    and  the 

interpolation  is  repeated. 

This  iterative  process  continues  until  the  constraint  is  met.  When  the 
constraint  is  met,  the  life  table  and  the  stable  population  are  accepted  as 
representative  of  the  given  intrinsic  growth  rate  and  specific  parameter. 

B.   COMMENTS 

Since   this  subroutine   is  restricted   to   the   mortality    patterns   of 
Coale-Demeny   Regional   Model  Life   Tables,    both   the    fertility   and   mortality 
rates   are   based  on  the   patterns   as   given  by   Coale-Demeny   in   Regional   Model 
Life   Tables   and   Stable    Populations.      Although   the   stable    population  distri- 
bution and   its   parameters   can  be  generated   for    either  sex,    when  a   male    stable 
population  distribution  is  estimated,    the  female  fertility   rates  are  applied 
to  the  male  distribution  for  purposes   of  determining  the  crude  birth  rate  and 
gross  reproduction   rates. 

III.  B    A    I    N  PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  reguired  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  INTSP(N,A,RNG,NSEX,NREG,CDMLT,S) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined 
in  the  above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single -valued  or  refer  to 
a  group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then 
the  variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
greater  than  the  variable  name  is  dimensioned  in  any  subroutine  called  by  the 
main  program. 

For  this  subroutine  the  variables  CDHLT  and  S  in  the  argument  string  are 
arrays.   The  following  statement  must  be  included  in  any  main  program  using 
this  subroutine. 

DIMENSION   CDMLT(18,8),S  (49) 
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B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other 
subroutines  presented  in  this  publication  or  functions  included  in  the  FORTRAN 
library. 

1.  Subroutines  from  this  package 

a.  MLT 

b.  ELT 

c.  SPP 

d.  GTCON 

e.  PLT* 

f.  PSPP* 

*  The  subroutines  PLT  and  PSPP  are  needed  by  the  main 
program  to  write  out  the  results  obtained  by  INTSP. 

2.  Library  functions 

a.  ABS  (absolute  value) 

b.  SQRT  (sgoare  root) 

c.  EXP  (base  of  the  natural  logarithm) 

3.  Card  diagram  of  main  program  and  subroutines. 


/  CARDS  INDICATING  END  OF  DECK      /I 

/  ~     INPUT~DATA  / 1 

/ /  I 

/    COMPUTER  CONTROL  CARDS  /|  | 

/ /  I  I 

/      SOBBODTINE  PSPP  /|  |  | 

/      S0BROUTINl~PLT  /|  |  |  / 

/  "       S0BBO0TINE-GTCON  /|  |  |  / 

/ /  III/ 

/  SUBROUTINE  SPP  /III/ 

/ /    III/ 

/  SUBROUTINE    ELT  /III/ 

/  subroutinIThlt  /  III/ 

/ /    III/ 

/  SUBROUTINE    INTSP  /III/ 

/ /    III/ 

/  MAIN  PROGRAM  /III/ 

'  "     ""computer  contr6l~cards   / J  I  I  / 

/  III/ 

I  I  / 


BEGINNING  OF  DECK 


I  1/ 
I  / 
1/ 
/ 

/ 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 


The  card  format  reguirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the  columns 
specified.   For  a  more  detailed  description  of  the  input  data,  see  the 
description  of  arguments  in  section  IV. B.  See  example,  section  V.C. 

Variable 


Card  Columns 

Name 

Definition 

1  1   1    1 

Blank 

I     I   2-53 

Label  used  to  identify  the  output 

1     |  54-80 

Blank 
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2   I   1-2   |N 


3 
4-9 

10 
11-16 

17 
18 

19 
20 


21 


22-80 


RNG 


NSEX 


NREG 


NXT 


The  code  indicating  which  is  the  stable 
population  parameter  to  be  used  in  addi- 
tion to  the  intrinsic  growth  rate  to 
determine  the  stable  population.   The 
value  for  N  should  end  in  column  2.   To 
determine  the  value  of  N  see  the  chart 
in  section  I?.B.   Description  of  Arguments. 

Blank 

The  value  of  the  stable  population  para- 
meter N.   The  decimal  point  must  be 
entered. 

Blank 

The  intrinsic  growth  rate. 

The  decimal  point  should  be  in  column  11. 

Blank 

The  sex  of  the  stable  population  to  be 
generated.   A  one  punched  in  column  18 
indicates  males.   A  two  punched  in  column 
18  indicates  females. 

Blank 

The  region  from  the  Coale-Demeny  Regional 
Model  Life  Tables  to  be  used  in  generating 
the  stable  population.   A  one  punched  in 
column  20  indicates  west  region.   A  two 
punched  in  column  20  indicates  north  region. 
A  three  punched  in  column  20  indicates  east 
region.   A  four  punched  in  column  20  indicates 
south  region. 

The  code  indicating  if  there  is  another 
data  set  following  this  one.   A  zero  punched 
in  column  21  indicates  this  is  the  last  set 
of  data.   Any  other  number  punched  in 
column  21  indicates  another  set  of  data 
follows  this  one. 


Blank 


IV.  SUBROUTINE 


A.   SUBROUTINE  STATEMENT 


All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 


B. 


SUBROUTINE  INTSP (N,A, RNG, NSEX, NREG,CDHLT,S) 
DESCRIPTION  OF  ARGUMENTS 


Name 
N 


How  Obtained   Definition 


Transferred  In 


I 

|The  code  indicating  the 
I  population  parameter  th 
| in  conjunction  with  the 
irate  to  generate  the  st 
J  distribution  and  Coale- 
| Table.   The  codes  are  a 
| below.   Acceptable  code 
|35  and  from  37  to  49. 
lis  not  between  1-35  and 
I  routine  will  write  out 
J0581  and  return  to  the 
I 


stable 
at  is  to  be  used 

intrinsic  growth 
able  population 
Demeny  Model  Life 
s  given  in  the  chart 
s  are  from  1  to 
If  the  code  given 

37-49,  the  sub- 
error  message  number 
calling  program. 
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RMS 


INSEX 


NREG 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Code  Variable 

01  Proportion  of  population  0-1 

02  Proportion  of  population  1-4 

03  Proportion  of  population  5-9 

04  Proportion  of  population  10-14 


17  Proportion  of  population  75-79 

18  Proportion  of  population  80+ 

19  Proportion  of  population  under  1 

20  Proportion  of  population  under  5 

21  Proportion  of  population  under  10 

22  Proportion  of  population  under  15 


35    Proportion  of  population  under  80 

•  • 

37  Intrinsic  Birth  Rate 

38  Intrinsic  Death  Rate 

39  Average  Age  of  the  population 

40  Proportion  of  Population  15-49 

41  Ratio  of  births  for  the  given  sex 
to  the  proportion  of  population  in 
the  reproductive  ages  (i.e.  15-49) 

42  Ratio  of  population  under  5  to 
population  15-49 

43  Ratio  of  population  5-9  to  popu- 
lation 20-54 

44  Ratio  of  population  5-14  to 
to  population  5  and  over 

45  Ratio  of  the  population  under  15 
and  65  and  over  to  population  15-64 
(Dependency  Ratio) 

46  Gross  Reproduction  Rate  Mean  Age 

of  Childbearing   m=27 

47  Gross  Reproduction  Rate  Mean  Age 

of  Childbearing   m=29 

48  Gross  Reproduction  Rate  Mean  Age 

of  Childbearing   m=31 

49  Gross  Reproduction  Rate  Mean  Age 

of  Childbearing   m=33 


The  value  of  the  stable 
parameter  that  correspo 
code  given  in  the  previ 
The  value  of  the  parame 
to  determine  whether  it 
possible  range  of  the  s 
pertaining  to  the  Coale 
Model  Life  Tables  for  s 
intrinsic  growth  rate, 
within  this  range,  erro 
0586  is  printed  out  and 
will  return  to  the  call 


population 
nds  to  the 
ous  argument, 
ter  is  tested 

is  within  the 
table  populations 
-Demeny  Regional 
ex,  region  and 

If  it  is  not 
r  message  number 

the  subroutine 
ing  program. 


Intrinsic  growth  rate  of  the  stable 
population  distribution  to  be  generated. 
If  the  intrinsic  growth  rate  is  not 
between  -.01  and  .05,  the  subroutine 
will  write  out  error  message  number  0582 
and  return  to  the  calling  program. 

Sex  of  the  stable  population  distribution 
to  be  obtained.   1=male,  2=female.   Any 
other  value  is  unacceptable  and  the 
subroutine  will  write  out  error  message 
number  0583  and  return  to  the  calling 
program. 

Indicates  which  regional  pattern  of 
mortality  of  the  four  Coale-Demeny 
Regions  is  to  be  used  in  determining 
the  stable  population  distribution 
and  life  table.   1=West,  2=North, 
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CDMLT 


|3=East   and   4=South.       Any  other   value 
jis   unacceptable   and   will   cause  the   sub- 
routine  to    write  out   error  message 
| number   0584    and   return   to  the   calling 
I  program. 
I 

Transferred  Out] The   Coale-Demeny  Regional   Model   Life 
I  Table   for   the   specified    region    (NREG) 
I  which  corresponds  to   the   rate  of 
Inatural   growth    (RNG)    and   the   stable 
(population    parameter    (A). 
I 

Transferred   Out|The   stable   population   distribution 
(that   corresponds   to   the   given   sex 
|(NSEX),    Coale-Demeny    Region    (NREG), 
| intrinsic   growth   rate    (RNG) ,    and 
I  stable   population   parameter    (A). 


C.   ERROR  MESSAGES 

0581  ***  INTSP  ERROR  0581  --  INPUT  ERROR  IN  VARIABLE  N 

***  CODE  OF  STABLE  POPULATION  PARAMETER  MUST  BE  BETWEEN  1-35  OR  BETWEEN  37-49. 

0582  ***  INTSP  ERROR  0582  --  INPUT  ERROR  IN  VARIABLE  RNG 

***  INTRINSIC  GROWTH  RATE  MUST  BE  WITHIN  RANGE  -.01  TO  .05. 

0583  ***  INTSP  ERROR  0583  —  INPUT  ERROR  IN  VARIABLE  NSEX 
***  SEX  CODE  OF  POPULATION  MUST  EQUAL  1  OR  2. 

0584  ***  INTSP  ERROR  0584  --  INPUT  ERROR  IN  VARIABLE  NREG 
***  REGION  CODE  MUST  EQUAL  1,2,3,  OR  4. 

0585  ***  INTSP  ERROR  0585 

***  ITERATION  LIMIT  EXCEEDED  ATTEMPTING  TO  INTERPOLATE  FOR  STABLE  POPULATION. 

0586  ***  INTSP  ERROR  0586 

***  VALUE  OF  S  (  )  IS  BEYOND  PERMISSIBLE  RANGE  FOR  STABLE  POPULATIONS  DEFINED  BY 
***  THE  GIVEN  INTRINSIC  GROWTH  RATE  AND  COALE-DEMENY  MODEL  LIFE  TABLES 

(CHECK  INPUT) 
***  VALUE  =  RANGE  = 


V.   PROGRAM   AND   RESULTS 

A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 


■MAIN  PROGRAM  FOR  SUBROUTINE   INTSP 


-THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  BY  TWO 
-READ  STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 
-STATEMENTS  AS  FOLLOWS, 


-THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

-THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 
■TO  BE  USED  TO  IDENTIFY  THE  OUTPUT.   THIS  LABEL  WOULD  USUALLY 
-CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 
-ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 
-THE  TYPE  OF  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 
-IN  COLUMNS  2-53  OF  THE  CARD. 

-THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

-THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  (1)  THE 
-CODE  (N)  INDICATING  WHICH  STABLE  POPULATION  PARAMETER  IS  BEING  USED 
-IN  ADDITION  TO  THE  INTRINSIC  GROWTH  RATE,  (2)  THE  VALUE  OF 
-THE  STABLE  POPU1ATION  PARAMETER  (A),  (3)  THE  INTRINSIC  GROWTH  RATE 
-INCREASE  (RNG),  (4)  THE  CODE  INDICATING  THE  SEX  OF  THE  POPULATION 
-(NSEX),  (5)  THE  CODE  INDICATING  THE  COALE-DEMENY  REGION  (NREG), 
-AND  (6)  THE  CODE  INDICATING  IF  THERE  IS  ANOTHER  DATA  SET  FOLLOWING 
-THIS  ONE. 

-N   IS  LOCATED  IN  COLUMNS  1-2,  ENDING  IN  COLUMN  2,   A  01,02,03, 
04,  ...,  OR  18  PUNCHED  IN  COLUMNS  1  AND  2  INDICATES  THE 
PERCENT  OF  THE  POPULATION  IN  AGE  GROUPS  0-1,  1-4,  5-9, 
10-14,...,  80+  RESPECTIVELY.   A  19,  20,  21,...,  OR  35 
PUNCHED  IN  COLUMNS  1  AND  2  INDICATES  THE  PERCENT  OF  THE 
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c POPULATION  UNDER  AGE  1,  5,  10,  ...  ,  80  RESPECTIVELY. 

C A  37  PUNCHED  IN  COLUMNS  1  AND  2  INDICATES  THE  INTRINSIC 

C CRUDE  BIRTH  RATE.   A  38  PUNCHED  IN  COLUMNS  1  AND  2 

c INDICATES  THE  INTRINSIC  CRUDE  DEATH  RATE.   A  39  PUNCHED 

c IN  COLUMNS  1  AND  2  INDICATES  THE  AVERAGE  OF  THE  POPULATION. 

c &  40  PUNCHED  IN  COLUMNS  1  AND  2  INDICATES  THE  PROPORTION  OF 

c THE  POPULATION  AGED  15-19.   A  41  PUNCHED  IN  COLUMNS  1  AND  2 

c INDICATES  THE  RATIO  OF  BIRTHS  TO  POPULATION  AGED  15-49. 

C A  42  PUNCHED  IN  COLUMNS  1  AND  2  INDICATES  THE  RATIO  OF 

c POPULATION  UNDER  5  YEARS  OF  AGE  TO  THE  POPULATION  AGED 

c 15-49.   A  43  PUNCHED  IN  COLUMNS  1  AND  2  INDICATES  THE  RATIO 

c OF  THE  POPULATION  AGED  5-9  TO  THE  POPULATION  AGED  20-54. 

C A  44  PUNCHED  IN  COLUMNS  1  AND  2  INDICATES  THE  RATIO  OF  THE 

c POPULATION  AGED  5-14  TO  THE  POPULATION  AGED  5+.   A  45 

c PUNCHED  IN  COLUMNS  1  AND  2  INDICATES  THE  RATIO  OF  THE 

c POPULATION  AGED  0-14  PLUS  THE  POPULATION  AGED  65*  TO  THE 

c POPULATION  AGED  15-64.   A  46,  47,  48,  OR  49  PUNCHED  IN 

C COLUMNS  1  AND  2  INDICATES  THE  GROSS  REPRODUCTION  RATES  FOR 

C MEAN  AGES  OF  CHILDBEARING  27,  29,  31,  33  RESPECTIVELY. 

C A   IS  LOCATED  IN  COLUMNS  4-9.   THE  DECIMAL  POINT  MUST  BE 

c ENTERED. 

C -RNG       IS    LOCATED    IN    COLUMNS    11-16    WITH    THE    DECIMAL    POINT    IN 

C COLUMN    11. 

C NSEX   IS  LOCATED  IN  COLUMN  18.   A  1  PUNCHED  IN  COLUMN  18  INDICATES 

c MALES  AND  A  2  PUNCHED  IN  COLUMN  18  INDICATES  FEMALES. 

C NREG   IS  LOCATED  IN  COLUMN  20.   A  1,  2,  3,  OR  4  PUNCHED  IN 

c COLUMN  20  INDICATES  RESPECTIVELY  THE  WEST,  NORTH,  EAST, 

c OR  SOUTH  REGION  FROM  THE  COALE-DEMENY  MODEL  LIFE  TABLE 

C SYSTEM. 

C NXT       IS    LOCATED    IN    COLUMN    22.        A    ZERO    PUNCHED    IN    COLUMN    22 

c INDICATES    THIS    IS    THE   LAST    SET    OF    DATA.       ANY   OTHER    DIGIT 

c PUNCHED    IN    COLUMN    22    INDICATES    ANOTHER    SET    OF    DATA    FOLLOW 

c THIS   ONE. 


DIMENSION    CDMLT(18,8)  ,S  (49) 

NREAD=1 

NPRNT=15 

5  READ(NREAD,2) 

READ(NREAD,1)     N, A, RNG, NSEX , NREG, NXT 
WRITE(NPRNT,6) 
WRITE(NPRNT,2) 

CALL  INTSP  (N, A, RNG, NSEX, NREG, CDMLT, S) 
CALL  PLT  (CDMLT, NSEX, NREG) 

CALL  PSPP  (NREG, RNG, S  (1)  ,S  (19)  ,S  (37)  ,  NSEX, CDMLT  (1  ,  8)  ) 
IF  (NXT)  3,3,5 
3  STOP 

1  FORMAT(I2,1X,F6.0,1X,F6.5,1X,I1,1X,I1 ,1X,I1) 

2  F0RMAT(1X,52H  ) 

6  FORMAT(1H1) 
END 


B.       COMPUTER    LISTING    FOR    SUBROUTINE 

SUBROUTINE    INTSP (N, A, RNG, NSEX, NREG, CDMLT, S) 

•  —  PROGRAM    NO.     0580 

■ — THE    INPUT    ARGUMENTS    TO    THIS   SUBROUTINE    ARE      N,    A,    RNG,    NSEX,       AND 

■  —  NREG. 

•  —  THE  OUTPUT  ARGUMENTS  FROM  THIS  SUBROUTINE  ARE   CDMLT   AND   S. 

■  —  N   IS  THE  CODE  WHICH  INDICATES  WHICH  STABLE  POPULATION  PARAMETER 

IN  ADDITION  TO  THE  INTRINSIC  GROWTH  RATE  IS  BEING  USED. 
■ — A   IS  THE  VALUE  OF  THE  STABLE  POPULATION  PARAMETER  INDICATED  BY  N. 
— HNG   IS  THE  INTRINSIC  GROWTH  RATE 

•  —  NSEX   IS  THE  CODE  INDICATING  THE  SEX  OF  THE  POPULATION. 
—  NREG   IS  THE  CODE  INDICATING  THE  COALE-DEMENY  REGION. 
---CDMLT   IS  THE  COALE-DEMENY  MODEL  LIFE  TABLE  GIVEN  AS  OUTPUT. 
• — S   IS  THE  STABLE  POPULATION  AGE  DISTRIBUTION  AND  THE  STABLE 

POPULATION  PARAMETERS  CORRESPONDING  TO  THE  COALE-DEMENY 
MODEL  LIFE  TABLE  (CDMLT)  AND  THE  INTRINSIC  GROWTH  BATE 
(RNG).   S   IS  GIVEN  AS  OUTPUT. 
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DIMENSION    X  (4)  ,S  (49)  ,CDMLT  (18,8)  ,SLIM  (49) 

NPRNT=15 
C 
c . . _ ___ 

C VERIFICATION    OF    INPDT    ARGUMENTS 

c — . _. 

c 

NERR=0 

IF    (N-36)     15,1.15 

15  CONTINUE 

IF    (N    -    1)     1,3,16 

16  CONTINUE 

IF    (N    -    49)     3,3,1 

1  NERR=1 

WRITE     (NPRNT,2) 

2  FORMAT    {/   45H    ***    INTSP    ERROR    NO.    0581    —    INPUT   ERROR    IN    N 

*  ,/,79H    ***    CODE   OF    STABLE   POPULATION    PARAMETER    MUST    BE    BETHEEN    1 
*-35    OR    BETWEEN   37-49) 

3  CONTINUE 

IF     (RNG+.01)     4,6,17 

17  CONTINUE 

IF    (RNG    -    .05)     6,6,4 

4  NERR=1 

WRITE    (NPRNT,5) 

5  FORMAT (/   47H    ***    INTSP   ERROR   NO.     0582    —    INPUT    ERROR    IN    RNG 

*  ,/,63H    ***    INTRINSIC    GROWTH    RATE   MUST    BE    WITHIN   RANGE    -0.01    TO 

*  0.05) 

6  CONTINUE 

IF    (NSEX    -    1)     7,9,18 

18  CONTINUE 

IF     (NSEX    -    2)     9,9,7 

7  NERR=1 

WRITE     (NPRNT,8) 

8  FORMAT (/   48H    ***    INTSP    ERROR   NO.     0583    --    INPUT    ERROR    IN    NSEX 
*,/,52H   ***    SEX    CCDE    OF   THE    POPULATION    MUST    EQUAL       1       OR      2) 

9  CONTINUE 

IF    (NREG    -    1)     10,12,19 

19  CONTINUE 

IF     (NREG   -    4)     12,12,  10 

10  NERR=1 
WRITE(NPRNT,11) 

11  FORMAT  (/  48H  ***  INTSP  ERROR  NO.  0584  —  INPUT  ERROR  IN  NREG 
*,/,46H  ***  REGION  CODE  MUST  EQUAL   1,   2,   3,   OR   4) 

12  CONTINUE 

IF  (NERR)  13,13,190 
C 
c - _ 

C SET  LEVELS  OF  ACCURACY  FOR  INTERPOLATION  FORMULA 

c _ 

C 

13  DO  14  1=1,38 

14  SLIM(I)=0.  00004 
SLIM(39)=0.004 
DO  20   1=40,42 

20  SLIM  (I)  =0.0004 
SLIM  (43)  =0.004 
DO  25   1=44,49 

25  SLIM(I)  =  0.  0004 
C 

c 

c __„__- 

C SET    BOUNDS    FOR    INTERPOLATION    FORMULA 

c_ 

C 

DO    40    1=1,4 

E0=I*20 

CALL    MLT(E0, NSEX, NREG, CDHLT) 

CALL   SPP  (NREG, RNG, CDHLT  (1,  5),  S(1)  ,  S  ( 1  9)  ,S(37)  ) 

X(I)    =    S(N) 

IF    (ABS(S(N)-A)    -    SLIM(N))     30,1000,30 

30  CONTINUE 

IF     (I   -    2)     40,31,31 

31  CONTINUE 

IF    (X(I-1)     -    S(N))    35,35,32 

32  CONTINUE 

IF    (A   -    S  (N))     40,50,33 

33  CONTINUE 
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IF    (A    -    X  (1-1))    50,50,40 
35   CONTINUE 

IF     (A    -    X(I-1))    40,50,38 
38    CONTINUE 

IF    (A    -    S(N1)     50,50,40 
40    CONTINUE 

GO   TO    180 
50    Y3   =    EO 

Y2    =    EO    -    20.0 

X3   =    X(I) 

X2   =    X(I-1) 

DO    170   1=1,15 


C INTERPOLATE    FOR    NEW    LIFE    EXPECTANCY 

c 


60    EO  =     (Y3-Y2)*  (A-X2)/(X3-X2)+Y2 
GENERATE   NEW   LIFE    TABLE    AND  STABLE   POPULATION 


130    CALL    BLT  (EO,NSEX,NREG,CDBLT) 

CALL    SPP(NREG,RNG,CDMLT(1,5),S  (1)  ,S(19)  ,S  (37)  ) 
IF(ABS(S(N) -A) -SLIM (N))  1000,140, 140 


■ADJUST    BOUNDS    FOR    NEXT    INTERPOLATION    IF   STABLE   POPULATION    VALUE 
•IS    NOT    SATISFACTORY 


140    CONTINUE 

IF(ABS(E0-Y2)-ABS(E0-Y3)  )     150, 150, 160 
150    Y3=E0 

X3=S(N) 

GO    TO    170 
160    Y2=E0 

X2=S (N) 
170   CONTINUE 


ERROR    MESSAGES,    ASSIGNING    OF   ZEROS    TO    OUTPUT    AND    RETURN 

WRITE  (NPRNT,175) 
175    FORMAT  (/21H    ***    INTSP    ERROR    0585 

*/77H    ***    ITERATION    LIMIT    EXCEEDED    ATTEMPTING    TO    INTERPOLATE   FOR    ST 
♦ABLE    POPULATION) 
GO   TO    190 
180    WRITE  (NPRNT,185)N,A,X(1) ,X(4) 
185    FORMAT    (/21H   ***    INTSP    ERROR    0586,/, 

*16H    ***    VALUE   OF    S(,I2,    64H)     IS    BEYOND    PERMISSIBLE   RANGE    FOR    STABL 
*E    POPULATIONS    DEFINED    BY    ,/,88H    ***    THE   GIVEN    RATE   OF    NATURAL    INCR 
*EASE    AND    COALE-DEMINY    MODEL    LIFE    TABLES    (CHECK    INPUT), 
*/11H    ***    VALUE=    ,F8.4,8H,    RANGE=, F8, 4, 4H    TO    ,F8.4) 
190    DO    200    1=1,49 
200    S  (I)=0.0 

DO    210    1=1,18 
DO    210    J=1,8 
210   CDMLT(I,J)=0.0 

WRITE (NPRNT, 220)     N, A, RNG, NSEX, NREG 
220    FORMAT     (//27H  INTSP    INPUT    ARGUMENTS,, 


*//9H 

N  =  ,15, 

*/9H 

A  =  ,F10.5, 

*/11H 

RNG  =  ,F9.5, 

*/12H 

NSEX  =  ,15, 

*/12H 

NREG  =  ,15) 

1000  RETURN 

END 
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D.       SAMPLE   OOTPUT 
1st    SET 
CHE    SECOND    PARAMETER    IS    PERCENT    UNDER    15 


ABRIDGED    LIFE    TABLE 

MALES 

COALE-DEMENY       WEST    REGION 


AGE 


Q(X)  D(X) 


M(X) 


I(X) 


L(X) 


S(X) 


T(X) 


E(X) 


0 
1 

5 
10 
15 
20 
25 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
80 


0.09460 
0.04018 
0.01314 
0.00976 
0.01507 
0.02135 
0.02297 
0.02618 
0.03169 
0.04070 
0.05361 
0.07445 
0.10371 
0.14948 
0.21254 
0.30446 
0.43039 
1.00000 


9460. 

3638. 

1142. 
837. 

1280. 

1786. 

1880. 

2093. 

2468. 

3069. 

3879. 

5097. 

6572. 

8490. 
10267. 
11582. 
11388. 
15071. 


. 10100 
.01032 
.00265 
.00196 
.00304 
.00432 
.00465 
.00530 
.00644 
.00831 
.01102 
.01547 
.02188 
.03231 
.04756 
.07183 
.10968 
.21427 


100000, 
90540, 
86902. 
85759. 
84922. 
83642. 
81856. 
79976. 
77883. 
75415. 
72346. 
68467, 
63369. 
56798. 
48308. 
38041. 
26459. 
15071. 


93662. 
352525. 
431652. 
426703. 
421409. 
413745. 
404582. 
394649. 
383245. 
369401. 
352031. 
329591. 
300418. 
262764. 
215871. 
161249. 
103825. 

70337. 


,89237 
.96742 
,98853 
,98759 
,98181 
,97785 
,97545 
,97110 
,96388 

95298 

93626 
,91149 
,87466 

82154 
,74697 
,64388 

40386 

0 


5487650. 
5393989. 
5041464. 
4609812. 
4183110. 
3761701. 
3347956. 
2943375. 
2548727. 
2165483. 
1796083. 
1444053. 
1114463. 

814046. 

551282. 

335411. 

174162. 
70337. 


54.88 
59.58 
58.01 
53.75 
49.26 
44.97 
40.90 
36.80 
32.73 
28.71 
24.83 
21.09 
17.59 
14.33 
11.41 
8.82 
6.58 
4.67 


AGE 


STABLE      POPOLATION 

MALE 

PROPORTION   CDMDLATIVE 
IN  AGE     PROPORTION 


PARAMETERS 


-1 

0.0424 

0.0424 

1-4 

0.1464 

0.1887 

5-9 

0.1537 

0.3425 

10-14 

0.1281 

0.4706 

15-19 

0.  1067 

0.5773 

20-24 

0.0884 

0.6657 

25-29 

0.0729 

0.7385 

30-34 

0.0599 

0.7984 

35-39 

0.0491 

0.8475 

40-44 

0.0399 

0.8874 

45-49 

0.0321 

0.9195 

50-54 

0.0253 

0.9448 

55-59 

0.0194 

0.9642 

60-64 

0.0143 

0.9785 

65-69 

0.0099 

0.9885 

70-74 

0.0063 

0.9947 

75-79 

0.0034 

0.9981 

80+ 

0.0019 

1.0000 

LIFE  EXPECTANCY  AT  BIRTH 

INTRINSIC  GROWTH  RATE 

INTRINSIC  BIRTH  RATE 

INTRINSIC  DEATH  RATE 

AVERAGE  AGE 

PROPORTION    AGE    15-49 

BIRTHS/   POP.     15-49 

POP.     UNDER    5/   POP.     15-49 

POP.     5-9/   POP.    20-54 

POP.    5-14/   POP.     5+ 

POP.     0-14    +    POP.    65+/   POP.     15-64 

LIFE      TABLE: 

COALE-DEMENY    WEST    REGION    MODEL 

GRR    FOR    MEAN    AGE    OF    CHILDBEARING 

AT  AGE  27 
AT  AGE  29 
AT  AGE  31 
AT    AGE    33 


54.88 

0.0341 

0.0460 

0.0119 

20.97 

0.449 

0.  102 

0.420 

0.418 

0.347 

0.969 


3.010 
3.242 
3.504 
3.805 
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2nd    SET 
TH£    SECOND    PARAMETER    IS    THE    BIRTH    BATE 


ABRIDGED    LIFE   TABLE 

HALES 

COALE-DEMENY      EAST    REGION 


AGE 


Q(X) 


D(X) 


M(X) 


I(X) 


L(X) 


S(X) 


T(X) 


E(X) 


0 

0.09277 

9277. 

.09891 

100000. 

93785. 

.90106 

5843972. 

58.44 

1 

0.02560 

2322. 

.00651 

90723. 

356744. 

.97669 

5750188. 

63.38 

5 

0.00895 

791. 

.00180 

88401. 

440028. 

.99247 

5393445. 

61.01 

10 

0.00  609 

534. 

.00122 

87610. 

436716. 

.99162 

4953418. 

56.54 

15 

0.01068 

930. 

.00215 

87077. 

433058. 

.98695 

4516702. 

51.87 

20 

0.01545 

1331. 

.00311 

86117. 

427406. 

.98445 

4083645. 

47.40 

25 

0.01565 

1327. 

.00315 

84816. 

420760. 

.98354 

3656240. 

43.  11 

30 

0.01728 

1443. 

.00349 

83489. 

413835. 

.98070 

3235480. 

38.75 

35 

0.02135 

1752. 

.00432 

82046. 

405849. 

.97497 

2821645. 

34.39 

no 

0.02879 

2312. 

.00584 

80294. 

395691. 

.96497 

2415796. 

30.09 

45 

0.04145 

3233. 

.00847 

77982. 

381830. 

.94838 

2020105. 

25.90 

50 

0.06222 

4651. 

.01284 

74750. 

362122. 

.92342 

1638275. 

21.92 

55 

0.09188 

6441. 

.01926 

70099. 

334393. 

.88801 

1276153. 

18.21 

60 

0.13413 

8538. 

.02875 

63658. 

296944. 

.83612 

941761. 

14.79 

65 

0.19824 

10927. 

.04401 

55120. 

248281. 

.75834 

644817. 

11.70 

70 

0.  29  58  2 

13073. 

.06943 

44193. 

188282. 

.64931 

396536. 

8.97 

75 

0.42859 

13338. 

.10910 

31120. 

122254. 

.41296 

208254. 

6.69 

80 

1.00000 

17782. 

.20677 

17782. 

86000. 

.0 

86000. 

4.84 

STABLE 

POPULATION 
MALE 

AGE 

PROPORTION   CUMULATIVE 

IN  AGE 

PROPORTION 

-1 

0.0409 

0.0409 

1-4 

0.1427 

0.  1835 

5-9 

0.  1510 

0.3345 

10-14 

0.1263 

0.4609 

15-19 

0.1056 

0.5665 

20-24 

0.0879 

0.6544 

25-29 

0.0730 

0.7274 

30-34 

0.0605 

0.7880 

35-39 

0.0501 

0.8380 

40-44 

0.0412 

0.8792 

45-49 

0.0335 

0.9127 

50-54 

0.0268 

0.9394 

55-59 

0.0209 

0.9603 

60-64 

0.0156 

0.9759 

65-69 

0.0110 

0.9869 

70-74 

0.0070 

0.9940 

75-79 

0.0039 

0.9978 

80+ 

0.0022 

1.0000 

PARAMETERS 


LIFE    EXPECTANCY    AT    BIRTH  58.44 

INTRINSIC    GROWTH   RATE  0.0341 

INTRINSIC    BIRTH   RATE  0.0443 

INTRINSIC   DEATH    RATE  0.0102 

AVERAGE    AGE  21.50 

PROPORTION    AGE    15-49  0.452 

BIRTHS/   POP.    15-49  0.098 

POP.    UNDER    5/   POP.     15-49  0.406 

POP.     5-9/  POP.    20-5H  0.405 

POP.    5-14/   POP.    5+  0.340 

POP.     0-14    ♦    POP,    65+/    POP.     15-64  0.942 
LIFE      TABLE: 
COALE-DEMENY   EAST    REGION    MODEL 
GRR   FOR    MEAN    AGE   OF    CHILDBEARING 

AT    AGE    27  2.900 

AT    AGE    29  3.  115 

AT    AGE   31  3.356 

AT    AGE   33  3.631 
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3rd    SET 
2D   PARAMETER    IS     (POP   0-4)/(POP    15-49) 


ABRIDGED    LIFE    TABLE 

FEMALES 

COALE-DEMENY    SOUTH    REGION 


AGE 


Q(X) 


D{X) 


M(X) 


I(X) 


L(X) 


S(X) 


T(X) 


E(X) 


0 

0.07752 

7752. 

.08177 

100000. 

94806. 

.91255 

6490318. 

64. 

90 

1 

0.03079 

2840. 

.00786 

92248. 

361471. 

.97685 

6395512. 

69. 

33 

5 

0.00593 

531. 

.00119 

89408. 

445712. 

.99500 

6034042. 

67. 

49 

10 

0.00406 

361. 

.00081 

88877. 

443484. 

.99503 

5588330. 

62, 

88 

15 

0.00588 

520. 

.00118 

88517. 

441282. 

.99304 

5144846. 

58. 

12 

20 

0.00805 

708. 

.00162 

87996. 

438210. 

.99129 

4703565. 

53. 

45 

25 

0.00938 

819. 

.00189 

87288. 

434392. 

. 98994 

4265355. 

48 

.87 

30 

0.01073 

928. 

.00216 

86469. 

430023. 

.98833 

3830963. 

44. 

30 

35 

0.01262 

1079. 

.00254 

85541. 

425005. 

.98561 

3400940. 

39, 

76 

40 

0.01618 

1367. 

.00326 

84461. 

418890. 

.98156 

2975936. 

35. 

23 

45 

0.02074 

1724. 

.00419 

83095. 

411163. 

.97449 

2557047. 

30. 

77 

50 

0.03038 

2472. 

.00617 

81371. 

400674. 

.96317 

2145884. 

26. 

37 

55 

0.04347 

3430. 

.00889 

78899. 

385918. 

.94307 

1745211. 

22. 

12 

60 

0.07100 

5359. 

.0147  2 

75469. 

363947. 

. 90628 

1359293. 

18. 

01 

65 

0.11818 

8286. 

.02512 

70110. 

329836. 

.84064 

995347. 

14. 

20 

70 

0.20606 

12740. 

.04595 

61824. 

277273. 

.73314 

665511. 

10. 

76 

75 

0.34344 

16858. 

.08293 

49085. 

203280. 

.47640 

388237. 

7. 

91 

80 

1.00000 

32227. 

.  17424 

32227. 

184958. 

.0 

184958. 

5. 

74 

STABLE 

POPULATION 

FEMALE 

AGE 

PROPORTION 

CUMULATIVE 

IN  AGE 

PROPORTION 

-1 

0.0396 

0.0396 

1-4 

0.1385 

0.1780 

5-9 

0.1465 

0. 3245 

10-14 

0.  1229 

0.4474 

15-19 

0.1031 

0.5505 

20-24 

0.0863 

0.6368 

25-29 

0.0722 

0.7090 

30-34 

0.0602 

0.7693 

35-39 

0.0502 

0.8195 

40-44 

0.0417 

0.8612 

45-49 

0.0345 

0.8957 

50-54 

0.0284 

0.9241 

55-59 

0.0231 

0.9472 

60-64 

0.0183 

0.9655 

65-69 

0.0140 

0.9795 

70-74 

0.0099 

0.9894 

75-79 

0.0061 

0.9956 

80+ 

0.0044 

1.0000 

PARAMETERS 


LIFE    EXPECTANCY    AT    BIRTH 

INTRINSIC    GROWTH    RATE 

INTRINSIC    BIRTH    RATE 

INTRINSIC    DEATH   RATE 

AVERAGE    AGE 

PROPORTION  AGE  15-49 

BIRTHS/  POP.  15-49 

POP.  UNDER  5/  POP.  15-49 

POP.  5-9/  POP.  20-54 

POP.  5-14/  POP.  5+ 

POP.  0-14  +  POP.  65+/  POP.  15-64 

LIFE   TABLE: 

COALE-DEMENY  SOUTH  REGION  MODEL 

GRR  FOR  MEAN  AGE  OF  CHILDBEARING 

AT  AGE  27 
AT  AGE  29 
AT  AGE  31 
AT  AGE  33 


64.  90 

0.0341 

0.0424 

0.0083 

22.53 

0.448 

0.095 

0.397 

0.392 

0.328 

0.930 


2.816 
3.017 
3.241 
3.496 
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4th    SET 

TEST    OF    ERROR    0582 

***    INTSP    ERROR    NO.     0582    —    INPUT    ERROR    IN    RNG 

***    INTRINSIC    GROWTH    RATE    HOST    BE    WITHIN    RANGE    -0.01    TO 


0.05 


INTSP    INPOT    ARGOHENTS, 

N    =  22 

A    =  0.47060 

RNG    =         0.06410 
NSEX    =  1 

NREG    =  1 


ABRIDGED    LIFE    TABLE 

HALES 

COALE-DEHENY       WEST    REGION 


AGE 


Q(X) 


D(X) 


H(X) 


I(X) 


L(X) 


S(X) 


T(X) 


E(X) 


0 

0.0 

0. 

.0 

0. 

0.  .0 

1 

0.0 

0. 

.0 

0. 

0.  .0 

5 

0.0 

0. 

.0 

0. 

0.  .0 

10 

0.0 

0. 

.0 

0. 

0.  .0 

15 

0.0 

0. 

.0 

0. 

0.  .0 

20 

0.0 

0. 

.0 

0. 

0.  .0 

25 

0.0 

0. 

.0 

0. 

0.  .0 

30 

0.0 

0. 

.0 

0. 

0.  .0 

35 

0.0 

0. 

.0 

0. 

0.  .0 

40 

0.0 

0. 

.0 

0. 

0.  .0 

45 

0.0 

0. 

.0 

0. 

0.  .0 

50 

0.0 

0. 

.0 

0. 

0.  .0 

55 

0.0 

0. 

.0 

0. 

0.  .0 

60 

0.0 

0. 

.0 

0. 

0.  .0 

65 

0.  0 

0. 

.0 

0. 

0,  .0 

70 

0.0 

0. 

.0 

0. 

0.  .0 

75 

0.0 

0. 

.0 

0. 

0.  .0 

80 

0.0 

0. 

.0 

0. 

0.  .0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

AGE 


STABLE   POPULATION 

HALE 

PROPORTION   CUHULATIVE 
IN  AGE     PROPORTION 


PARAHETERS 


-1 

0.0 

0.0 

1-4 

0.0 

0.0 

5-9 

0.0 

0.0 

10-14 

0.0 

0.  0 

15-19 

0.0 

0.0 

20-24 

0.0 

0.0 

25-29 

0.0 

0.0 

30-34 

0.0 

0.0 

35-39 

0.0 

0.0 

40-44 

0.0 

0.0 

45-49 

0.0 

0.0 

50-54 

0.0 

0.0 

55-59 

0.0 

0.0 

60-64 

0.0 

0.0 

6  5-69 

0.0 

0.  0 

70-74 

0.0 

0.0 

75-79 

0.0 

0.0 

80  + 

0.0 

0.0 

LIFE  EXPECTANCY  AT  BIRTH 

INTRINSIC  GROWTH  RATE 

INTRINSIC  BIRTH  RATE 

INTRINSIC  DEATH  RATE 

AVERAGE  AGE 

PROPORTION    AGE    15-49 

BIRTHS/   POP.    15-49 

POP,     UNDER    5/    POP.     15-49 

POP.     5-9/   POP.     20-54 

POP.     5-14/   POP.    5+ 

POP.     0-14    ♦    POP.    65+/    POP.    15-64 

LIFE      TABLE: 


COALE-DEHENY    WEST 
GRR    FOR    HEAN    AGE    OF 


REGION  HODEL 
CHILDBEARING 
AT  AGE  27 
AT  AGE  29 
AT  AGE  31 
AT    AGE    33 


0.0 
0.0641 
0.0 
0.0 
0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


0.0 
0.0 
0.0 
0.0 
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5th    SET 

TEST    OF    ERRORS    0581-0584 

***   INTSP    ERROR    NO.    0581    —    INPOT    ERROR    IN    N 

***    CODE    OF    STABLE    POPULATION    PARAMETER    MUST    BE    BETWEEN    1    -35    OR    BETWEEN    37-49 

***    INTSP    ERROR    NO.     0582    —    INPUT    ERROR    IN    RNG 

***    INTRINSIC    GROWTH    RATE    MUST    BE    WITHIN    RANGE    -0.01    TO         0.05 

***    INTSP    ERROR    NO.     0583    —    INPUT    ERROR    IN    NSEX 
***    SEX    CODE    OF    THE    POPULATION    MUST    EQUAL       1       OR       2 

***    INTSP    ERROR    NO.     0584    —    INPUT    ERROR    IN    NREG 
***    REGION    CODE    MUST    EQUAL       1,       2,       3,       OR       4 


INTSP    INPUT    ARGUMENTS, 

N    =  53 

A   =  0.70000 

RNG    =         0.06410 
NSEX    =  5 

NREG    =  5 


ABRIDGED    LIFE    TABLE 

NO    SEX    GIVEN    TO    PLT 
EMPIRICALLY    DERIVED 


AGE 


Q(X) 


D(X) 


M<X) 


I(X) 


L(X) 


S(X) 


T(X) 


E(X) 


0 

0.0 

0. 

.0 

0. 

0.  .0 

1 

0.0 

0. 

.0 

0. 

0.  .0 

5 

0.0 

0. 

.0 

0. 

0.  .0 

10 

0.0 

0. 

.0 

0. 

0.  .0 

15 

0.0 

0. 

.0 

0. 

0.  .0 

20 

0.0 

0. 

.0 

0. 

0.  .0 

25 

0.0 

0. 

.0 

0. 

0.  .0 

30 

0.0 

0. 

.0 

0. 

0.  .0 

35 

0.0 

0. 

.0 

0. 

0.  .0 

40 

0.0 

0. 

.0 

0. 

0.  .0 

45 

0.0 

0. 

.0 

0. 

0.  .0 

50 

0.0 

0. 

.0 

0. 

0.  .0 

55 

0.  0 

0. 

.0 

0. 

0.  .0 

60 

0.0 

0. 

.0 

0. 

0.  .0 

65 

0.0 

0. 

.0 

0. 

0.  .0 

70 

0.0 

0. 

.0 

0. 

0.  .0 

75 

0.0 

0. 

.0 

0. 

0.  .0 

80 

0.0 

0. 

.0 

0. 

0.  .0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 
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STABLE      POPULATION 

SEX   INCORRECTLY    SPECIFIED    IN    PRINT    ROUTINE 

AGE  PROPORTION      CUMULATIVE  PARAMETERS 

IN    AGE  PROPORTION 


-1 

0.0 

0.0 

1-4 

0.0 

0.0 

5-9 

0.0 

0.0 

10-14 

0.0 

0.0 

15-19 

0.0 

0.0 

20-24 

0.0 

0.0 

25-29 

0.0 

0.0 

30-34 

0.0 

0.0 

35-39 

0.0 

0.0 

40-44 

0.0 

0.0 

45-49 

0.0 

0.0 

50-54 

0.0 

0.0 

55-59 

0.0 

0.0 

60-64 

0.0 

0.0 

65-69 

0.0 

0.0 

70-74 

0.0 

0.0 

75-79 

0.0 

0.0 

80  + 

0.0 

0.0 

LIFE    EXPECTANCY    AT    BIRTH  0.0 

INTRINSIC    GROWTH    RATE  0.0641 

INTRINSIC    BIRTH    RATE  0.0 

INTRINSIC    DEATH  RATE  0.0 

AVERAGE    AGE  0.0 

PROPORTION    AGE    15-49  0.0 

BIRTHS/   POP.     15-49  0.0 

POP.    UNDER    5/   POP.     15-49  0.0 

POP.    5-9/   POP.    20-54  0.0 

POP.    5-14/   POP.     5+  0.0 

POP.    0-14    +    POP.    65+/  POP.     15-64  0.0 
LIFE      TABLE: 
EMPIRICALLY    DERIVED 


IRDID 


I,  DESCRIPTION      OF       PROGRAM 

A.  PURPOSE 

To  compare  the  aqe  distributions  of  two  populations  by  calculating  the 
Index  of  Relative  Difference  and  the  Index  of  Dissimilarity. 

B.  DATA  NEEDED 

1.  The  two  population  aqe  distributions  in  5-year  age  groups  to  be 
compared. 

2.  A  code  xndicatinq  whether  the  results  of  the  subroutine  are  to  be 
printed  out. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  percent  population  in  each  5-year  age  group  is  calculated  for  the 
two  population  distributions  given: 


-A-, 


T>p.   _   _^_   10Q 


p1 


where 

1 
5?x  is  the  given  population  age  x,x+4  in  the  first  distribution 

5PPx  is  the  percent  of  the  population  age  x,x*4  in  the  first  distri- 
bution. 

P   is  the  total  of  the  first  population. 

2 
The  same  is  done  for  the  second  population  obtaining  PP 

5  x 

Then,  the  ratio  of  the  percent  distributions  and  the  difference  between 
the  percent  distributions  are  calculated  for  each  age  group. 


=  5PPx 


^x  =  ^pT  10° 
5  x 


_D  =  CPP1  -  PP2 
5  x   5  x   5  x 


where 

5RDX  is  the  ratio  difference  for  age  x,x+4. 

5DX  is  the  difference  in  the  two  percent  distributions  for  age  i,i*i», 
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The   index   of   relative   difference   is   then  calculated  as    follows: 


IRD 


£     Led   -  ioo| 

2  n 


where 

IF.D  is  the  -index  of  relative  difference 
n  is  the  number  of  5-year  aqe  qroups. 

The  index  of  dissimilarity  is  calculated  as  follows: 


*  x=0,5  °   x 


where 

ID  is  the  index  of  dissimilarity. 
Reference 


0. S„  Bureau  of  the  Census,  The  Methods  and  Materials  of  Demography  by 
Henry  S.  Shryock,  Jacob  S.  Sieqel,  and  Associates,  U.S.  Government  Printing 
Office,  Washington,  D.C.,  1971. 

B.   COMMENTS 

This  subroutine  prints  out  the  results  of  its  calculations.   The  re- 
sults are  not  transferred  back  to  the  Main  Program  through  the  argument 
strinq.   Therefore  the  results  of  this  subroutine  cannot  be  used  as  input 
to  another  subroutine  called  subsequently. 


III.  MAIN   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
proqram  can  use  a  subroutine  alone  or  in  conjunction  with  othar  subroutines. 
For  a  detailed  explanation  of  writinq  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  proqram  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  IRDID(PA,PB) 

For  the  purpose  of  emphasizing  the  input  arquments,  they  are  underlined  in  the 
above  CALL  statement. 
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2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  both  variable  names  PA  and  PB  in  the  argument  string  are 
arrays.   The  following  DIMENSION  statement  must  be  included  in  any  main  program 
using  this  subroutine. 

DIMENSION  PA(17) rPB{17) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PBOGEAH. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 
ABREV 

2.  Library  functions 
ABS  (absolute  value) 

3.  Card  diagram  of  main  program  and  subroutines 
/  ~ 


/_ 


CARDS  INDICATING  END  OF  DECK    / 
/ 


/  INPUT  DATA  /| 

/"  COMPUTER~C0NTR0L_CARDS~"         "~7|     | 

/  SUBROUTINE- ABREV~  ~/\     \     \    / 

/ /    III/ 

/  SUBROUTINE    IRDID  /III/ 


/ 


/ 


/     III/ 

/III/ 


MAIN    PROGRAM 

/   ~  ™COMPUTER~ONTR0L-CARDS         /|     |     |     / 

/ /    III/ 

I     I     / 


C.   FORMAT  BEQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  reguirements  for  the  main  program  included  with  this 
subroutine  package  are  as  qiven  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV.  B.  See  example,  section  V. C. 


Variable 
Card  Columns    Name    Definition 


1 

2-53 
54-80 


Blank 

Label  used  to  identify  the  output 

Blank 
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2   I   1-8   IPA 


9-16 


73-80 


1-8 


41-48 


49-56 


57-80 


PA 


Population  aqed  0-4  in  first  distri- 
bution. The  value  should  be  punched 
endinq  in  column  8. 

Population  aqed  5-9  in  first  distri- 
bution. The  value  should  be  punched 
endinq  in  column  16. 


Population  aged  45-49  in  first  distri- 
bution.  The  value  should  be  punched 
endinq  in  column  80. 


Population  aqed  50-54  in  first  distri- 
bution.  The  value  should  be  punched 
endinq  in  column  8. 


Population  aqed  75-79  in  first  distri- 
bution.  The  value  should  be  punched 
endinq  in  column  48. 

Population  aqed  80+  in  first  distri- 
bution. The  value  should  be  punched 
endinq  in  column  56. 

Blank 


Cards  2  and  3  contain  the  first  aqe  distribution  in  5-year  age  qroups. 
If  less  than  17  aqe  qroups  are  given,  the  remaininq  columns  should  be 
left  blank.   If  less  than  11  aqe  qroups  are  qiven,  card  3  will  be 
entirely  blank. 


1-8 


9-16 


73-80 


1-8 


41-48 


49-56 


57-80 


PB 


PB 


Population  aqed  0-4  in  second  distribution. 
The  value  should  be  punched  endinq  in 
column  8. 

Population  aqed  5-9  in  second  distribution. 
The  value  should  be  punched  endinq  in 
column  16. 


Population  aqed  45-49  in  second  distri- 
bution.  The  value  should  be  punched  endinq 
in  column  80. 


Population  aqed  50-54  in  second  distri- 
bution.  The  value  should  be  punched  ending 
in  column  8. 


Population  aqed  75-79  in  second  distri- 
bution.  The  value  should  be  punched  ending 
in  column  48. 

Population  aged  80+  in  second  distri- 
bution.  The  value  should  be  punched  ending 
in  column  56. 

Blank 


Cards  4  and  5  contain  the  second  age  distribution  in  5-year  age  groups. 
If  less  than  17  aqe  qroups  are  qiven,  the  remaining  columns  should  be 
left  blank.   If  less  than  11  aqe  groups  are  given,  card  5  will  be  entirely 
blank. 
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2-80 


NXT 


(The  code  indicating  whether  another  set  of  data 

I  follows  this  one.   A  zero  punched  in  column  1, 

| indicates  this  is  the  last  set  of  data.   If 

| any  other  number  is  punched  in  column  1 

| another  set  of  data  follows  this  one. 

I 

I  Blank 


IV.  SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  beqin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  arqument  string  enclosed  in 
parentheses.   This  subroutine  beqins  as  follows: 

SUBROUTINE  IRDID(PA,PB) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 
PA 


PB 


How  Obtained 
Transferred  In 


Transferred  In 


Definition 
I 

|The  first  population  aqe  distribution  in 
1 5-year  aqe  qroups.   At  least 
Ithree  age  qroups  must  be  qiven  and  all 
lvalues  of  PA  must  be  qreater  than  zero. 
|If  this  is  not  the  case,  the  subroutine 
(will  write  out  error  messaqe  number  0641 
land  return  to  the  callinq  program, 

I 

| The  second  population  aqe  distribution 
I  in  5-year  aqe  qroups.   At  least 
Ithree  aqe  qroups  must  be  qiven  and  all 
lvalues  of  PB  must  be  greater  than  zero. 
I I f  this  is  not  the  case,  the  subroutine 
(will  writs  out  error  messaqe  number 
10641  and  return  to  the  callinq  program. 


C.   ERROR  MESSAGES 

0641  ***  IRDID  ERROR  NO.  0641  INPUT  ERROR  IN  PA  OR  PB 

***  EACH  POPULATION  DISTRIBUTION  MUST  CONTAIN  AT  LEAST  3  AGE  GROUPS 
***  AND  THE  POPULATION  IN  ALL  AGE  GROUPS  MUST  BE  GREATER  THAN  ZERO. 


PROGRAM   AND   RESULTS 


A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 

C  — -• ■ — 

c _ — „  —  __. „____„____ „ __ ,» 

C-- MAIN  PROGRAM  FOR  IRDID 

c _ 

c - _ _„ ,___.„„____ 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  FOUR 

C READ  STATEMENTS.  THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C  —  ■ STATEMENTS  AS  FOLLOWS. 

C-- 

C  — THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.  THE  LABEL  MOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.  THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

I THE  SECOND  READ  STATEMENT  USES  TWO  DATA  CARDS.  THE  PURPOSE  OF  THE 

C-- SECOND  READ  STATEMENT  IS  TO  READ  IN  THE  FIRST  POPULATION (PA)  IN 

C >  FIVE  YEAR  AGE  GROUPS. 

C ._  pA     VALUES  ARE  CONTAINED  ON  TWO  CARDS.  AT  LEAST  THREE  PA 

c VALUES  MUST  BE  GIVEN.  FOR  EACH  PA  VALUE  EIGHT  COLUMNS  ARE 

C ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS  OF  THE  FIRST 

C CARD.  A  MAXIMUN  OF  TEN  PA  VALUES  CAN  APPEAR  ON  THE  FIRST 

C CARD  SO  THAT  THE  DECIMAL  POINTS  ARE  IN  COLUMNS  8,  16,  24, 

C ...,  72,  AND  80.  THE  SECOND  CARD  CONTAINS  SEVEN  PA  VALUES 

C WHICH  ARE  ENTERED  IN  THE  SAME  MANNER  AS  ON  THE  FIRST  CARD 
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C EXCEPT  THAT  THE  LAST  VALUE  HILL  END  IK  COLUMN  56. 

c IF  LESS  THAN  SEVENTEEN  VALOES  AEE  TO  BE  GIVEN,  BOTH  CARDS 

c MUST  STILL  BE  USED  WITH  DATA  ONLY  IN  THE  NUMBER  OP  COLUMNS 

C NECESSARY  FOR  THE  NUMBER  OF  PA  VALUES  GIVEN. 

C 

c the   THIRD    READ    STATEMENT    USES    TWO    DATA    CARDS.    THE   PURPOSE    OF 

C THE    THIRD    READ    STATEMENT    IS   TO    READ   IN    THE    SECOND   POPULATION 

C (PB)     IN    FIVE    YEAR    AGE   GROUPS.    PB    VALUES    HAVE   THE    SAME 

c REQUIREMENTS    AS    PA    VALUES. 

C 

c__. THE  FOURTH  READ  STATEMENT  USES  ONE  DATA  CARD.  THE  PURPOSE  OF  THE 

c FOURTH  READ  STATEMENT  IS  TO  READ  THE  INDICATOR  (NXT)  USED  TO 

C SIGNAL  WHETHER  THERE  IS  ANOTHER  DATA  SET  FOLLOWING  THIS  ONE. 

C NXT    IS  LOCATED  IN  COLUMN  1  OF  THIS  CARD.  A  ZERO  IN  COLUMN  1 

c INDICATES  THAT  THIS  IS  THE  LAST  DATA  SET.  ANY  OTHER 

C NUMBER  IN  COLUMN  1  INDICATES  THAT  THERE  IS  ANOTHER  DATA 

c SET  FOLLOWING  THIS  ONE. 


DIMENSION  PA(17)  ,PB(17) 
NREAD  =  1 
NPRNT  =  15 

10  READ(NR£AD,11) 

11  F0RMAT(1X,52H  ) 
READ(NF.EAD,22)   (PA  (I)  ,1  =  1,  17) 

22  FORMAT  (10F8.  0,/,7F8.0) 

READ(HREAD,22)  (PB (I) ,1=1 , 17) 

READ(NREAD,33)  NXT 
33  FORMAT  (11) 

■  RITE  (NPRNT, 44) 
44  FORMAT  (1H1) 

WRITE  (NPFNT, 11) 

CALL  IP.DID(PA,PB) 

IF  (NXT)  10,99,10 
99  STOP 

END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  IRDID(PA,PB) 

c _ 

c _ 

C PROGRAM  NO.  0640 

c 

c 

C ALL  OF  THE  ARGUMENTS  TO  THIS  SUBROUTINE  ARE  INPUT  ARGUMENTS. 

c pA  IS  THE  FIRST  POPULATION  DISTRIBUTION. 

c pB  Is  THE  SECOND  POPULATION  DISTRIBUTION. 

c 

c 

DIMENSION  PA  (17)  ,PB(17)  ,POP1  (17)  ,POP2  (17) 

DIMENSION  fi£L(17),DIF(17)  ,PCT1  (17)  ,PCT2(17) 

NPOP1  =  0 

NPOP2  =  0 

NPRNT  =  15 
C 

c : 

C CHECK  FOR  INPUT  ERRORS 

c. 

C 

NEfiR  =  0 

DO  10  1=1,17 

IF     (PA(I)     -    1.0)     15,5,5 
5    NPOP1    =    NPOP1    +    1 
10    POP1  (I)     =    PA  (I) 

GO  TO  30 
15    DO    20    J=I,17 

IF     (ABS(PA(J))     -    0.00001)     20,20,25 
20   CONTINUE 

GO  TO  30 
25  NERR  =  1 
30   DO    40    1=1,17 

IF     (PB(I)     -    1.0)    45,35,35 
35    NPOP2   =    NPOP2    +    1 
40    POP2  (I)     =    PB(I) 
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GO  TO  60 
45    DO    50    J=I,17 

IF  (ABS(PB(J)J  -  0.00001)  50,50,55 
50  CONTINUE 

GO  TO  60 
55  NERR  ■  1 
60  CONTINUE 

IF  (NERR)  65,70,65 

65  »RITE(NPRNT,66) 

66  FORMAT (//53H  ***  IRDID  ERROR  NO.  0641  --  INPOT  ERROR  IN  PA  OR  PB, 
*/,68H  ***  EACH  POPDLATION  DISTRIBUTION  BUST  CONTAIN  AT  LEAST  3  AGE 
*  GROUPS, /,68H  ***  AND  THE  POPULATION  IN  ALL  AGE  GROUPS  MUST  BE  GRE 
*ATER  THAN  ZERO.) 

HRITE(NPRNT,77) 
77  FORMA-(//22H  IRDID  INPUT  ARGUMENTS,/, 5X,4HPA  =) 

iRITE(NPRNT,88)  (PA  (I)  ,1  =  1  ,  1  7) 
88  FORMAT  (10  (4X,F8,  0)  ,/,7 (4X, F8. 0) ) 

HRITE(NPRNT,99) 
99  FORMAT (/,5X,4HPB  =  ) 

HRITE(NPRNT,88)  (PB  (I) ,1  =  1 , 1 7) 

GO  TO  1000 


70  CONTINUE 

IF  (NPOP1  -  3)  65,75,75 
75  CONTINUE 

IF  (NP0P2  -  3)  65,80,80 


C HAKE  POPULATIONS  EQUAL  IN  NUMBER  OF  GROUPS 

c . 


C 


C 


80  CONTINUE 

IF  (NP0P1  -  NPOP2)  85,90,85 
85  CALL  ABREV(1,P0P1,P0P2, NGRUP) 

GO  TO  95 
90  NGRUP  =  NP0P1 


COMPUTE  POPULATION  TOTALS 


95  P1  =  0.0 
P2  =  0.0 

DO  100  1=1, NGRUP 
P1  =  P1  +  POP1 (I) 
P2  =  P2  +  POP2  (I) 
100  CONTINUE 


COMPUTE  PERCENTAGE  DISTRIBUTIONS,  RELATIVE  AND  ABSOLUTE 
DIFFERENCES,  AND  INDICES 


ERD  =  0.  0 
ED  =  0.0 

DO  110  1=1, NGRUP 

PCT1  (I)     =    (POP1  (I)     /    P1)     *    100.0 
PCT2(I)     ■     (POP2(I)    /    P2)     *    100.0 
REL(I)     =    100.0    *   PCT2(I)     /   PCT1  (I) 
DIF(I)    =    PCT2(I)    -    PCT1(I) 
BRD   =    ERD    ♦    ABS(REL(I)     -    100.0) 
ED   =    ED    +    &BS(DIF(I)) 
110   CONTINUE 

AN  =  2  *  NGRUP 
ERD  =  ERD  /  AN 
ED   =    ED    /    2.0 


C 


C PRINT  RESULTS 

C . 

C 

200  HRITE(NPRNT,222) 

222  FORMAT (//,59X,23HPERCENTAGE  DISTRIBUTION, /,59X, 23 (1H-)  ,  1  91, 

*11HDIFFERENCES,/,9X,3HAGE, 13X,5H FIRST, 14X,6HSECOND, 11 X,5HFIRST, 
*7X,6HSECOND,8Xr8HRATIO  OF, 10X,2HOF,/,8X, 5HGEOUP,9X,10HPOPULATION, 
*10X, 10HPOPULATION,6X, 10HPOPULATION, 3X, 10HPOPULATION, 4X, 
*11HPERCENTAGES,5X,11HPERCENTAGES,//) 
N1  =  0 
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N2    =    4 

NM1    =    NGRUP    -     1 

DO    210    1=1, NM1 

HEITE(NPRNT,333)    N1,N2,POP1  (I)  ,POP2(I)  ,PCT1  (I)  ,PCT2(I)  ,REL(I)  , 
*DIF<I) 
33  3    FORMAT  (8  X,  12,  1 H-  ,12,  2  (7X  ,  F1 2.  0,  1X)  ,  2  (8X,  F5.  2)  ,  2  (8X,  F7.  2)  ) 

N1    =    N1    +    5 

N2    =    N2    +    5 
210    CONTINDE 

I    =    NGRUP 

WRITE  (NPRNT, 444)  N1.POP1  (I)  ,  POP2  (I)  ,PCT1  (I)  ,PCT2(I)  ,REL(I)  ,DIF(I) 
444  FORMAT (8X, 12, 3H  +  , 2  (7X, F1 2„ 0, 1X) , 2 (8X„ F5« 2) , 2 (8X> F7. 2) ) 

WRITE (NPRNT, 555)  ERD,ED 
555  FORMAT (//,56X, 30HINDEX  OF  SELATIVE  DIFFERENCE  =ffF8.2„ 
*/,77X,24HINDEX  OF  DISSIMILARITY  =,F8.2) 
1000  RETURN 

END 
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I.  DESCRIPTION       OF       PROGRAM 

A.  PURPOSE 

To  compare  two  sets  of  survival  rates  in  5-year  age  groups  from  two 
different  life  tables,  by  calculating  the  differences  between  the  two  sets, 
by  age. 

B.  DATA  NEEDED 

Two  sets   of    5-year   survival   rates. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

To  compare  the  pattern  of  mortality  in  two  different  life  tables  using 
survival  rates,  two  different  indices  can  be  calculated.   One  index  is  based 
on  differences  in  the  survival  rates  for  the  same  age  group  and  measures  the 
closeness  of  the  levels  of  mortality. 

The  second  index  is  based  on  the  differences  in  the  ratios  of  consecutive 
survival  rates.   This  index  measures  the  closeness  of  the  patterns  of 
mortality. 

The  first  index  is  calculated  as  follows: 


x   5  x   5  x 


_AD   ,;: 


where 

CAD  is  the  difference  between  the  first  and  second 

5   x 

set  of  survival  rates  for  the  same  age  group. 

-S  is  the  survival  rate  from  age  x  to 

5  x  3 

x+5  from  the  first  set  of  survival  rates. 

2 
CS   is  the  survival  rate  from  age  x  to 
5  x 

x+5  from  the  second  set  of  survival  rates. 

Then,  the  mean  absolute  difference  of  the 
set  of  survival  rates  is 


w 

ADM  =  —  Y\       LRD  | 
m  x^5  5  X 


where 


m  is  the  number  of  5-year  age  groups. 

w  is  the  lover  bound  of  the  last  5- year  age  group. 
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The  second  index  is  calculated  by  first  determining  the  ratios  of  survival 
rates  for  consecutive  age  groups, 

5x   .s1 

5  x 


S2 

5  x     ,,2 
5x 

The  differences  of  these  ratios  for  the  same  age  groups  is  then  determined. 

1  2 
CRD  =  CR  -  .R* 
5  x   5  x   5  x 

Finally,    the   average  of  the  absolute  differences  of   the   ratios   is   calculated 
to  obtain   the  second  index. 


w-5 

REM  =  -±r    2     U<* 


x=0,5 


5     x' 


B.       COMMENTS 

The   indices   calculated   by   this    subroutine   do   not   include  the   survival  rate 
for    the  open-ended   age   group.      However,    the    survival  rate   for   the   open-ended 
age  group   is   reguired   as   an   input   to  the  subroutine. 

This   subroutine  could   be  used   for   selecting   a   regional  model   life  table 
with   a   pattern  of   survival   rates   similar  to   the  survival   rates   calculated   in 
an  empirical   life   table. 

III.    MAIN       PROGRAM 

A.       REQUIREMENTS 

The  main    program  is   reguired   to    use    this   subroutine   and   obtain  the   data 
(input)    necessary   for   the   subroutine   to   perform  its  calculations.      A  main 
program   can   use   a  subroutine  alone   or   in  conjunction   with   other   subroutines. 
For  a   detailed  explanation   of  writing  main  programs   using   more  than  one   sub- 
routine  see   the  Appendix. 

1.      CALL   statement 

Once  the  main   program  has  obtained   the  data    reguired   for   the   subroutine   to 
do   its  calculations,    the  main  program  transmits   this  data   to  the   subroutine 
and   the   subroutine  returns   the  results   of  the  calculations   performed  to   the 
main   program.      This   communication  process   is   made   through   the   CALL   statement. 

The   form  of   the   CALL  statement   for   this   subroutine  is  as   follows: 

CALL      LIFIT(SORA, SURB, NWRIT, ADH,BDM) 


For   the   purpose   of   emphasizing  the   input   arguments,    they   are    underlined 
in  the   above  CALL  statement. 

2.      DIMENSION    statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to 
a  group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then 
the  variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
greater  than  the   variable   name   is  dimensioned  in   any  subroutine  called   by  the 
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main  program. 

For  this  subroutine  the  variable  names  SURA  and  SUBB  in  the  argument 
string  are  arrays.   The  following  dimension  statement  must  be  included  in  any 
main  program  using  this  subroutine. 

DIMENSION  SURA(17),SURB(17) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other 
subroutines  presented  in  this  publication  or  functions  included  in  the  FORTRAN 
library. 

1.  Subroutines  from  this  package 
ABREV 

2.  Library  functions 
ABS (absolute  value) 

3.  Card  diagram  of  main  program  and  subroutines. 


/ 


/ 

/        CARDS    INDICATING    END   OF 

/I 

DECK         /    | 

/       i 

/ 

/                                   INPUT    DATA 

/I        I 

/    J        I 

/       I        I 

/ 

/                        COMPUTER    CONTROL    CARDS 

/I        I        I 
/I        I    / 
_/       I        1/ 

/ 


/I     I    / 

SUBROUTINE  ABREV       /  |   |  / 


/  -    -   -       /|   |   / 

/  SUBROUTINE  LIFIT       /  |   |  / 

/  /I  I   / 

/  MAIN  PROGRAH  /  |  |  / 

/ /  I  1/ 

/  /I  I  / 

/       COMPUTER  CONTROL  CARDS       /  |  |  / 

/ /   I  1/ 

I  / 


C. 


FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 


The  card  format  reguirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the  columns 
specified.   For  a  more  detailed  description  of  the  input  data,  see  the 
description  of  arguments  in  section  IV. B.  See  exanmle,  section  V.C. 

Variable 
Card  Columns   Name   Definition 


1 

2-53 

54-80 

1 


NXT 


Blank 

Label  used  to  identify  the  output 

Blank 


The  code  indicating  if  there  is 
another  data  set  following  this  one. 
A  zero  punched  in  column  1  indicates 
this  is  the  last  set  of  data.   Any  other 
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3-80 


1-8 


9»  16 


73-80 


1-8 


9-16 


49-56 


57-80 


NWRIT 


SURA 


SOFA 


digit   punched  in   column    1    indicates   that 
another   set    of   data   follows   this   one. 

The   write   indicator.      If   a   zero   is 
punched    in  column  2, the   results  of 
the  subroutine   will   not   be    written 
out.      If   any   other   number   is   punched 
in  column   2, the   subroutine    LIFIT 
will   write   out   the   results   of   its 
calculations. 

Blank 


The  survival  rate  of  birth  surviving  to 
ages  0-4  for  the  first  set  of  rates. 
The  decimal  point  should  be  in  column  1. 

The  survival  rate  of  ages  0-4  surviving 
to  ages  5-9  for  the  first  set  of 
rates.   The  decimal  point  should  be 
in  column  9. 


The  survival  rate  of  ages  40-44 
surviving  to  ages  45-49  for  the  first 
set  of  rates.   The  decimal  point  should 
be  in  column  73. 


The  survival  rate  of  ages  45-49 
surviving  to  ages  50-54  for  the  first 
set  of  rates.   The  decimal  point  should 
be  in  column  1. 

The  survival  rate  of  ages  50-54 
surviving  to  ages  55-59  for  the 
first  set  of  rates.   The  decimal 
point  should  be  in  column  9. 


The  survival  rate  of  ages  75*  surviving  to 

ages  80+  for  the  first  set  of  rates. 

The  decimal  point  should  be  in  column  49. 

Blank 


The  variable  SURA  always  reguires  two  cards.   The  first 

card  (card  no.  3)  must  always  contain  data,  whereas  the 

second  card  (card  no. 4)  can  be  all  zeroes  depending  on 

the  number  of  survival  rates  given.   The  last  survival 

rate  must  always  be  the  survival  rate  for  open-ended  age  group. 


I     ! 

5   |   1-8 


9-16 


73-80 


1-8 


SORB 


SURB 


The  survival  rate  of  birth  surviving  to 
ages  0-4  for  the  second  set  of  rates. 
The  decimal  point  should  be  in  column  1. 

The  survival  rate  of  ages  0-4  surviving 

to  5-9  for  the  second  set  of  rates. 

The  decimal  point  should  be  in  column  9. 


I 
I 

I 

I 

I 

I 

I 

I 

I 

(The   survival   rate  of    ages   45-49 

(surviving   to   ages   50-5£j    for   the 

(second   set   of    rates.      The  decimal 

| point  should   be   in  column   1. 

I 


The  survival  rate  of  ages  40-44 
surviving  to  ages  45-49  for  the 
second  set  of  rates.   The  decimal 
point  should  be  in  column  7  3. 
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9-16 


49-56 


57-80 


The  survival  rate  of  ages   50-54 
surviving  to   ages   55-59   for   the 
second  set   of   rates.      The  decimal 
point  should   be   in   column   9. 


The   survival   rate   of   ages  7  5+    surviving  to 
ages  80+    for  the   second   set  of  rates. 

I  The   decimal    point   should   end   in  column  49. 

I 
Blank 


The  variable  SURB  always  reguires  two  cards.   The  first 
card  (card  no.  5)  must  always  contain  data,  whereas 
the  second  card  (card  no.  6)  can  he  all  zeroes  depending 
on  the  number  of  survival  rates  given.   The  last 
survival  rate  must  always  be  the  survival  rate  for 
the  open-ended  age  group. 


IV.  S0BROOTINE 


A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  LIFI1 (SURA, SURB, NWRIT, ADM, RDM) 

B.  DESCRIPTION  OF  ARGUMENTS 

Name   How  Obtained   Definition 


SURA 


SURB 


NHRII 


ADK 


RDM 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 


Transferred  Out 


C.   ERROR  STATEMENTS 


First  set  of  5-year  age 
survival  rates  from  an 
life  table.   The  first 
is  from  birth  surviving 
There  can  be  a  maximum 
survival  rates  with  the 
being  the  survival  rate 
open-ended  age  group. 
The  minimum  number  of  s 
that  can  be  given  are  t 
than  two  survival  rates 
subroutine  will  write  o 
number  0671  and  return 
program. 


-specific 
abridged 
survival  rate 

to  age  0-4. 
of  seventeen 

last  one 

for  the 

arvival  rates 
wo.   If  less 

are  given,  the 
ut  error  message 
to  the  calling 


Second  set  of  5- year  age  specific 
survival  rates.   They  have  the  same 
requirements  as  SURA. 

The  write  indicator  which  determines  whether 
the  subroutine  will  write  out  the  results 
of  its  calculations.   If  NHRIT=0,  then  the 
subroutine  will  not  write  out  the  results 
of  its  calculations.   For  any  other  value, 
the  subroutine  will  write  out  the  results 
of  its  calculations. 

Calculated  average  absolute  difference  in 
survival  rates  for  the  same  age  groups* 

Calculated  average  absolute  difference  in 
the  ratios  of  consecutive  survival 
rates  for  the  same  age  groups. 


0671  ***  LIFIT  ERROR  NO.  0671  —  INPUT  ERROR  IN  SURA  OR  SURB 
***  ONE  OF  THE  SETS  OF  THE  SURVIVAL  RATES  CONTAINS  A 

NEGATIVE  OR  ZERO  VALUE  FOR  AN  INTERMEDIATE  AGE  GROUP 
***  OR  ONE  SET  CONTAINS  LESS  THAN  TWO  VALUES  FOR  THE  SURVIVAL 

RATES. 
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V.       PROGRAM       &ND       RESULTS 

A.       COMPUTER    LISTING   FOR    BAIN    PROGRAM 

c 

c _ 

C MAIN  PROGRAM  FOR  LIFIT 

c , _ 

c 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  FOUR  READ 

c STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

c THE  first  READ  STATEMENT  USES  ONE  DATA  CARD, 

c THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

c BE  0SED  T0  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

c THE  SAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

c GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

c „  ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

c THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

c THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  (1)THE 

c INDICATOR (NXT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER  DATA  SET 

c FOLLOWING  THIS  ONE  AND  (2)  THE  WRITE  INDICATOR  (NWRIT)  WHICH 

C DETERMINES  WHETHER  THE  RESULTS  OF  THE  SUBROUTINE  LIFIT  SHOULD   BE 

C WRITTEN  OUT. 

c hxT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  1 

c INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER  NUMBER 

c _        PUNCHED  IN  COLUMN  1  INDICATES  THERE  IS  ANOTHER  SET  OF 

c DATA  FOLLOWING  THIS  ONE. 

C NWRIT   IS  IN  COLUMN  2  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  2 

c INDICATES  THAT  THE  RESULTS  OF  THE  SUBROUTINE  LIFIT  ARE  NOT 

c T0  BE  pfiiNTED  OUT.   ANY  OTHER  DIGIT  PUNCHED  IN  COLUMN  2  THE 

c ESULTS  OF  THE  SUBROUTINE  LIFIT  WILL  BE  PRINTED  OUT. 

C 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  FIRST 

C  —  —  GROUP  OF  SURVIVORSHIP  RATIOS  (SURA)  FROM  AN  ABRIDGED  LIFE  TABLE. 

C SURA   VALUES  ARE  CONTAINED  ON  TWO  CARDS.   FOR  EACH  SURA  VALUE 

c EIGHT  COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT 

c COLUMNS  OF  THE  FIRST  CARD.   EACH  VALUE  MUST  CONTAIN  A 

C DECIMAL  POINT  AND  BE  WITHIN  THE  EIGHT  DIGITS  ALLOWED.  THUS, 

c ONLY  TEN  VALUES  CAN  APPEAR  ON  THE  FIRST  CARD.   THE  SECOND 

c .        CARD  BAY  HAVE  SEVEN  VALUES  WITH  THE  SEVENTEENTH  VALUB  BEING 

c iu  COLUMNS  49-56.   IF  LESS  THAN  SEVENTEEN  VALUES  ARE  TO  BE 

c GIVEN,  BOTH  CARDS  MUST  STILL  BE  USED  WITH  DATA  IN  THE 

C NUMBER  OF  COLUMNS  NECESSARY  FOR  THE  NUMBER  OF  SURA  VALUES. 

C 

C THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  SECOND 

C GROUP  OF  SURVIVORSHIP  RATIOS (SURB) . 

C SURB   VALUES  ARE  ON  TWO  CARDS  AND  HAVE  THE  SAME  REQUIREMENTS 

c &s  SURA  VALUES. 

c _ 

c 

DIMENSION  SURA(17) ,SURB(17) 

NPRNT  =15 

NREAD  =  1 

10  READ(NREAD,11) 

11  F0RHAT(1X,52H  ) 
READ  (NREAD, 22)  NXT, NWRIT 

22  FORMAT  (211) 

READ    (NREAD, 33)     (SURA  (I) ,1=1 ,1 7) 
33    FORMAT    (10F8.5) 

READ    (NREAD, 33)     (SURB (I) ,1=1, 17) 

WRITE  (NPRNT, 44) 
44  FORMAT  (1H1) 

■  RITE  (NPRNT, 11) 

CALL  LIFIT  (SURA, SURB, NWRIT, ADM, RDM) 

IF  (NXT)  10,20,10 
20  CONTINUE 

STOP 

END 
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B.   COMPUTER  LISTING  FOB  SUBROUTINE 

SUBROUTINE  LIF1T ( SURA, SUBB, NWRIT, ADH , RDM) 

• —  PROGRAM  NO.  0670 

■ —  SURA,  SORB,  AND  NWflIT  ARE  ALL  INPUT  ARGUMENTS. 

■ —  ADM  AND  RDM  ARE  OUTPUT  ARGUMENTS. 

• —  SURA   ARE  SURVIVORSHIP  RATIOS  FROM  A  LIFE  TABLE. 

■ —  SURB   ARE  SURVIVORSHIP  RATIOS  FROM  ANOTHER  LIFE  TABLE. 

—  NHRIT   IS  A  WRITE  INDICATOR. 

—  ADM   IS  THE  AVERAGE  OF  THE  ABSOLUTE  DIFFERENCE  IN  THE 

SURVIVORSHIP  RATIOS. 
•--  RDM   IS  THE  AVERAGE  ABSOLUTE  DIFFERENCE  OF  THE  RATIOS  OF  THE 
SURVIVORSHIP  RATIOS. 

DIMENSION  SURA  (17)  , SURB (17) ,SA (17)  , SB  (17) #RA ( 16)  ,RB  (16) #AD  (17) ,RD  ( 
♦16) ,JNUM(17) ,KNUM(17) 
N  =  0 

NPRNT  =  15 
JNUM(1)  ■  0 
JNUM(2)  =  0 
KNHM(1)  =  1 
KNUM(2)  =  H 
DO  5  1=3,17 
JNUM(I)  =5*  (1-2) 
5  KNUM(I)  =  JNUM  (I)  +  4 
H  =  0 
NT  =  0 
MT  =  0 


ARRAYS  SA  AND  SB  ARE  USED  FOR  CALCULATING  PURPOSES  IN  ORDER  THAT 
THE  INPUT  ARRAYS  iILL  NOT  BE  CHANGED. 


CHECK  INPUT  ERRORS 

DO  20  I  =  1,17 

SA (I)  =  SURA  (I) 

SB(I)  =  SURB(I) 

IF(  SA(I)  -.000001  )  50,50,10 

10  CONTINUE 

IF  (SA(I)  -1.)  11,50,50 

11  M  =  M+1 

12  CONTINUE 

IF  (SB(I)  -  .000001)  52,52,13 

13  CONTINUE 

IF  (SB(I)  -1.)  15,52,52 
15  N  =  N  +  1 
20  CONTINUE 

IF(  M  -  1  )  30,30,25 

25  CONTINUE 
IF(N-1)  30,30,26 

26  CONTINUE 

IF  (MT)  27,28,27 

27  CONTINUE 

IF  (M-(MT-1))  30,28,30 

28  CONTINUE 

IF  (NT)  29,55,29 

29  CONTINUE 

IF  (N-(NT-1))  30,55,30 

30  »RITE(NPRNT,111) 

111  FORMAT(/, 1X,55H*»*  LIFIT  ERROR  NO.  0671  —  INPUT  ERROR  IN  SURA  OR 
*SURB,/,1X,111H***  ONE  OF  THE  SETS  OF  THE  SURVIVORSHIP  RATIOS  CONTA 
*INS  A  NEGATIVE  OR  ZERO  VALUE  FOR  AN  INTERMEDIATE  AGE  GROUP;,/, 
*1X,69H***  OR  ONE  SET  CONTAINS  LESS  THAN  TWO  VALUES  FOR  THE  SURVIVA 
*L  RATIOS., 5X, 18HSURVI  INPUT  VALUES) 
WRITE  (NPRNT, 222)  SURA 

222  FORMAT  (/,5X,7HSURA  =  , 1 0  (F8.5, 2X)  ,/, 1 2X,7 (F8 . 5,2X) ) 
MRITE(NPRNT,223)  SURB 

223  FORMAT(/,5X,7HSURA  =  , 10  (F8. 5,2X) ,/, 12X,7 (F8.  5,2X) ) 
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RDH  =  0.0 
ADH  =0.0 
GO  TO  1000 

50  CONTINUE 

IF  (MT)  51,51.12 

51  MT  =  I 
GO  TO  12 

52  CONTINUE 

IF  (NT)  53,53,20 

53  NT  =  I 
GO  TO  20 

C 

c . . 

c ABREV  IS  USED  TO  HAKE  BOTH  SURVIVORSHIP  RATIO  ARRAYS  THE  SAME 

c LENGTH  IN  ORDER  THAT  THE  COMPARISON  HILL  BE  VALID. 

c _ , _ 

C 

55  CALL  ABREV(2,SA,SB,M) 

M  =  M  -  1 

L  =  M  -  1 

ADH  =0.0 

RDH  =  0.0 

DO  60  I  =1,1 

N  =  I  +  1 

RA(I)  =  SA(N)  /  SA(I) 

RB(I)  =  SB(N)  /  SB(I) 

AD(I)  =  SA(I)  -  SB(I) 

RD(I)  =  RA  (I)  -  RB(I) 

ADM  =  ADM  ♦  ABS  (  AD  (I)  ) 
60  RDH  =  RDH  ♦  ABS  (RD  (I)  ) 

AD(M)  =  SA(H)  -  SB(H) 

RH  =  H 

ADM  =  (  ADH  +  ABS  (  AD  (H)  )  )  /  RH 

RL  =  L 

RDH  =  RDH  /  RL 
C 
c _ _ 

C PRINT  RESULTS  IF  NWRIT  IS  NON-ZERO 

c - _ . _ 

C 

IF  (  NHRIT  )  70,1000,70 
70  HRITE(NPRN*r,333) 
333  FORHAT(/,33X,29HCOHPARISON  OF  SURVIVAL  RATIOS,//, 3X,5H  FR0M,4X,2HT 
*0,6X,8HSURVIVAL,5X,8HRATI0  OF, 6X, 8HSURVIVAL,5X, 8HRATIO  OF,7X,13HDI 
*FFERENCE  OF, 3X,21 HDIFFERENCE  OF  RATIOS  ,/, 3X,  4HAGES,4X,4HAGES,6X, 
*5HRATI0,4X,15HSURVIVAL  RATIOS, 3X, 5HRATIO, U X, 1 5HSURVIVAL  RATIOS, 2X, 
*15HSURVIVAL  RATIOS, 4 X, 18HOF  SURVIVAL  RATIOS,///) 
WRITE  (NPRNT,4<H4)  SA  ( 1)  ,  RA  ( 1)  ,  SB  (1)  ,RB  (1)  ,  AD  (1 )  ,RD  (1) 
4<*4  FORMAT  (/,2X,15HBIRTH  TO   0  -  4,  2X,  2  (F8.  5,  5X,F8.5,  6X)  ,3X,2  (F8.5,  1  3X 

*)) 
DO  80  1=2, L 
80  HRITE(NPRNT,555)  JNUH  (I)  ,KNUM(I)  ,JNUH  (1+1)  ,KNUH(I+  1)  ,SA  (I)  ,RA(I)  ,  SB 
*(I)  ,RB(I),AD(I)  ,RD(I) 
555  FORHAT  (1X,I2,2H  -,l2,tH  TO  ,12, 2H  -, 12, 2X, 2 (F8. 5, 5X,F8.5,6X) , 3X,2 ( 
♦  F8.5,  13X)  ) 
J  =  JNUH  (L+1) 
K  =  J  +  5 

HRITE(NPRNT,666)  J,K,SA(H)  ,SB(M)  ,AD(H)  ,  ADM,  RDH 
666  FORMAT(2X,I3,2H  +,3H  TO,2X,I2,2H  ♦ ,3X,2  (F8, 5, 1 9X) , 3X, F8. 5,//, 18X, 
♦27HMEAN  ABSOLUTE  DIFFERENCE  =  ,F8. 5,3X, 
*27HHEAN  RELATIVE  DIFFERENCE  =  ,F8.5) 
1000  RETURN 
END 
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MDRNS 


I.  DESCRIPTION      OF       PROGRAMS 

A.  PURPOSE 

To  rank  a  given  set  of  values  and  determine  the  median. 

B.  DATA  NEEDED 

1.  The  set  of  values  to  be  ranked. 

2.  The  number  of  values  to  be  ranked. 

II.  METHODOLOGY 

A.  MATHEMATICAL  DERIVATION 

Assuminq  that  a  set  of  n  values  (where  2£nll01)  is  represented  by 
X,  the  subroutine  makes  the  followinq  calculations. 

First,  the  X.  values  are  ranked  from  smallest  to  largest. 
Second,  the  median  of  the  ranked  values  is   obtained  as  follows: 

a)  if  the  number  of  X   values  is  odd,  the  median  value  is 
selected  as  the  X  value,  where  j  represents  the  central  position 
of  the  ranked  values.   The  central  position  is  calculated  as 

J  2  2 

Therefore 

MEDIAN  =  x . 
0 

b)  if  the  number  of  X   values  is  even,  the  median  is 
calculated  as  the  averaqe  of  the  two  central  values  of  the  ranked  set, 

MEDIAN  =  -4-  (x  +  x  .  .) 
2         n    n+1 

2    2 

B.  COMMENTS 

This  subroutine  and  its  main  program  were  written  to  rank  from  2  to  101 
values.   By  changing  the  dimension  statement  and  the  second  if  statement  in 
both  the  subroutine  and  the  main  proqram,  the  subroutine  can  be  used  to  rank 
any  number  of  values  between  2  and  9999. 

III. M  AIN   PROGRAM 

A.   REQUIREMENTS 

The  main  proqram  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
proqram  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writinq  main  proqrams  usinq  more  than  one  sab- 
routine  see  the  Appendix. 
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1.   CALL  statement 

Once  the  main  proqram  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  proqram  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  proqram.   This  communication  process  is  made  throuqh  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 


CALL  MDRNS (A,N  ,  B,  XMEDN  ) 


For  the  purpose  of  emphasizinq  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  sinqle-valued  or  refer  to  a 
qroup  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  proqram. 

For  this  subroutine  the  variables  A  and  B  in  the  arqument  strinq  are 
arrays.   The  followinq  dimension  statement  must  be  included  in  any  main 
proqram  usinq  this  subroutine. 

DIMENSION  A(101),  B(101) 

B.   OTHEE  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  HITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
or  functions  provided  by  this  publication  or  by  a  fortran  library. 

1.  Subroutines  from  this  package 
None 

2.  Library  functions 
None 

3.  Card  Diaqram  of  main  proqram  and  subroutines. 


/  / 

/   CARDS  INDICATING  END  OF  DECK     / 

^  -^ 

/  INPUT  DATA  /  | 

/ /   I 

/  /I   I   / 

/     COMPUTER  CONTROL  CARDS         /  |   |  / 

/ /   I   I  / 

/  /I   I   / 

/  SUBROUTINE  MDRNS       /  |   |  / 

/ /   I   I  / 

/  /I   I   / 

/  MAIN  PROGRAM  /  |    |  / 

/ : /  I   1/ 

/  /I   I   / 

/       COMPUTER  CONTROL  CARDS       /    \        |  / 

/ /   I   I  / 

I   / 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  proqram  included  with  this 

publication  are  as  qiven  below.  The  data  should  be  punched  in  the 
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columns  specified.  For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arquments  in  section  IV. B.  See  example,  section 
v.c. 


Variable 
Card  Columns    Name    Definition 


1 

2-53 
5H-80 

1-4 


7-80 
1-8 

9-16 
73-80 


NXT 


Blank 

Label  used  to  identify  the  output. 

Blank 


Number  of  values  to  be  ranked 
N  must  be  between  2  and  101. 
For  any  other  value,  run  error 
messaqe  is  written  out  and  the 
main  proqram  will  stop. 

Blank 

The  code  indicatinq  if  there  is 
another  data  set  followinq  this  one. 
A  zero  punched  in  column  6  indicates 
this  is  the  last  set  of  data.   Any 
other  number  punched  in  column  6 
indicates  another  set  of  data  follows 
this  one. 

Blank 

The  first  value  in  the  qroup  to  be  ranked. 
The  decimal  point  must  be  entered  somewhere 
in  the  eight  columns. 

The  second  value  in  the  qroup  to  be  ranked. 
The  decimal  point  must  be  entered  somewhere 
in  the  eiqht  columns. 


The  tenth  value  in  the  qroup  to  be  ranked. 
The  decimal  point  must  be  entered  somewhere 
in  the  eiqht  columns. 


The  number  of  cards  needed  for  A  depends  on  the  number  values 
to  be  ranked.   Each  card  can  contain  a  maximum  of  ten  values. 


IV.  SUBROOTINE 


A.  SUBROUTINE  STATEMENT 

All  external  subroutines  beqin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  arqument  strinq  enclosed  in 
parentheses.   This  subroutine  beqins  as  follows: 

SUBROOTINE  MDRNS (A,N, B,XMEDN) 

B.  DESCRIPTION  OF  ARGUMENTS 

Name    How  Obtained  Definition 
I      I  I 

I A     (Transferred  In  |The  values  to  be  ranked. 

I      I  I 

IN     | Transferred  In  |The  number  of  values  to  be  ranked. 

I      I  I 

JB     | Transferred  Out | The  values  ranked  in  ascend inq  order. 

I      I  I 

I XMEDN | Transferred  Out | The  median  of  the  ranked  values. 

C.  ERROR  MESSAGES 

***  MDRNS  ERROR  NO.  0731  —  INPUT  ERROR  IN  N 
***  N  MUST  BE  BET1EEN  2  AND  101. 
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V.       PROGRAM       AND      RESULTS 

A.       COMPUTER    LISTING    FOR    MAIN    PROGRAM 

c 

c 

C MAIN  PROGRAM  FOR  SUBROUTINE  MDRNS 

c . 

c 

c THIs  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  ARE  READ  IN  THBEE 

C STATEMENTS.  THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

c_ THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

c TH£  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.  THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.  THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

c THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  (1)  THE 

C NUMBER  OF  VALUES  TO  BE  RANKED(N)  ,  AND  (2)  THE  INDICATOR (NXT) 

c USED  T0  SIGNAL  WHETHER  THERE  IS  ANOTHER  DATA  SET  FOLLOWING 

C THIS  ONE. 

c N       IS  LOCATED  IN  COLUMNS  1-4  OF  THIS  CARD.   THE 

c VALUE  ENDS  IN  COLUMN  4. 

c NXT     Is  LOCATED  IN  COLUMN  6  OF  THIS  CARD.  A  ZERO  PUNCHED  IN 

C COLUMN  6  INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER 

c PUNCHED  IN  COLUMN  6  INDICATES  THERE  IS  ANOTHER  SET  OF 

c DATA  FOLLOWING  THIS  ONE. 

C 

C THE    THIRD    READ    STATEMENT    USES    ONE    DATA    CARD.     THE    PURPOSE    OP    THE 

c THIRD    READ    STATEMENT    IS    TO    READ    IN    THE    ARRAY (A)     TO    BE    RANKED. 

C A  VALUES    ARE    CONTAINED    ON    ONE    CARD.     AT    LEAST    TWO    A    VALUES 

c (just    BE    GIVEN.    FOR    EACH    A   VALUE    EIGHT    COLUMNS    ARE   ALLOWED 

C STARTING    WITH    THE    FIRST    EIGHT    COLUMNS.    THE   VALUES    MUST    BE 

C ENTERED    SO    THAT    THE    DECIMAL    POINTS    ARE    IN    COLUMNS 

C 8,    16,    24,     ...    AND    72. 

C 

c 

DIMENSION    A  (101)  ,B  (101) 
NREAD    =    1 
NPRNT   =    15 

10  READ(NREAD,11) 

11  FORMAT(1X,52H  ) 
READ  (NREAD,  20)  N,NXT 

20    F0RMAT(I4,1X,I1) 

WRITE  (NPRNT, 22) 
22  FORMAT(1H1) 

WRITE(NPRNT,11) 

IF  (N  -  1)  40,40,30 
30  CONTINUE 

IF  (N  -  101)  50,50,40 
40  WRITE  (NPRNT, 44) N 

44  FORMAT (/,19H  MAIN  PROGRAM  ERROR, /,34H  N  MUST  BE  BETWEEN  2  AND  101 
*  N  =  ,14) 

GO  TO  99 
50  READ(NREAD,55)   (A(I),I=1,N) 
55  FORMAT (9F8.0) 

CALL  MDRNS(A,N,B,XHEDN) 

WRITE  (NPRNT, 66)  N,XMEDN,  (A(I),B(I)  ,I=1,N) 
66  FORMAT(19H  NUMBER  OF  GROUPS  =,13  , 1 0X,8HMEDIAN  =,F12.5,/, 
*10X,18HA  (ORIGINAL  ARRAY) , 5X, 1 6HB  (SORTED  ARRAY)./, 
*9(14X,F12.5,9X,F12.5,/)) 

IF  (NXT)  10,99,10 
99  STOP 

END 


b.  computer  Listing  for  subroutine 
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SUBROUTINE    MDRNS     ( A, N,B, XMEDN) 

c 

c 

C PROGRAM  NO.  0730 

c 

C 

C THE  INPUT  ARGUMENTS  FOR  THIS  SUBROUTINE  ARE  A  AND  N. 

C B,  AND  XMEDN  ARE  OUTPUT  ARGUMENTS. 

C A      IS  THE  INPUT  ARRAY  TO  BE  RANKED. 

C B      IS  THE  OUTPUT  ARRAY  WHICH  IS  A  SORTED  VERSION  OF  A. 

c N      IS  THE  NUMBER  OF  ELEMENTS  IN  A  TO  BE  RANKED. 

C XMEDN  IS  THE  MEDIAN  OF  B. 

c _ 

c 

DIMENSION  A  (101)  ,B(101) 

NPRNT  =  15 

IF  (N-2)20,10,10 

10  CONTINUE 

IF  (N-101)  30,30,20 
20  WRITE  (NPRNT, 11)  N 

11  FORMAT(//45H  ***  MDRNS  ERROR  NO.  0731  —  INPUT  ERROR  IN  N, 
*/33H  ***  N  MUST  BE  BETWEEN  2  AND  101.,// 

*5H  N  =  ,14) 
N  =  10 
GO  TO  90 
30  CONTINUE 
DO  1  1=1 ,H 

1  B(I)  =  A  (I) 
1  =  2 

2  CONTINUE 

IF  (B(I)  -  B(I-1))  5,3,3 

3  1  =  1+1 

IF  (I  -  N)  2,2,70 

5  K  =  I 

M  =  I  -  1 

DO  7  L=1,M 

J  =  I  -  L 

IF  (B(K)  -  B(J))  6,3,3 

6  TEMP  =  B  (K) 
B(K)  =  B(J) 
B  (J)  =  TEMP 
K  =  K  -  1 

7  CONTINUE 
GO  TO  3 

70  NC  =  N  /  2 

ND  =  NC  *  2 

IF  (N  -  ND)  75,80,75 
C 
c 

C N  IS  ODD 

c 

C 

75  XMEDN  =  B(NC  +  1) 
GO  TO  90 
C 
c 

C  —  - —  N  IS  EVEN 

c 

C 

80  XMEDN  =  (B(NC)  +  B(NC  +  1))  /  2.0 
90  CONTINUE 

RETURN 

END 
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D.  SAMPLE  OUTPUT 
1st  SET 

SOUVENIR  DATA  -  MD&NS  WORST  CASE 

NUMBER  OF  GROUPS  =   9  MEDIAN  =      5.00000 

A  (ORIGINAL  ARRAY)  B  (SORTED  ARRAY) 

9.00000  1.00000 

8.00000  2.00000 

7.00000  3.00000 

6.00000  4.00000 

5.00000  5.00000 

4.00000  6.00000 

3.00000  7.00000 

2.00000  8.00000 

1.00000  9.00000 


2nd  SET 

SOUVENIR  DATA  -  NO  SORT  NECESSARY 

NUMBER  OF  GROUPS  =   9  MEDIAN  =      5.00000 

A  (ORIGINAL  ARRAY)  B  (SORTED  ARRAY) 

1.00000  1.00000 

2.00000  2.00000 

3.00000  3.00000 

4.00000  4.00000 

5.00000  5.00000 

6.00000  6.00000 

7.00000  7.00000 

8.00000  8.00000 

9.00000  9.00000 


3rd  SET 

SOUVENIR  DATA  -  NORMAL  CASE 

NUMBER  OF  GROUPS  =   9  MEDIAN  =     53.00000 

A  (ORIGINAL  ARRAY)      B  (SORTED  ARRAY) 

131.00000  3.00000 

241.00000  21.00000 

43.00000  21.00000 

211.00000  43.00000 

21.00000  53.00000 

53.00000  131.00000 

21.00000  211.00000 

1222.00000  241.00000 

3.00000  1222.00000 


4th  SET 

SOUVENIR  DATA  -  EVEN  NUMBER  OF  VALUES 

MAIN  PROGRAM  ERROR 

N  MUST  BE  BETWEEN  2  AND  101   N  =  1008 
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I.  DESCRIPTION   OF   PROGRAMS 

&.   PURPOSE 

To  calculate  a  reqional  model  life  table  correspondinq  to  a  given  life 
expectancy  at  birth,  sex  and  reqion  usinq  Coale-Demeny  reqression  coefficients, 
After  qeneratinq  the  model  life  table  for  a  particular  sex,  this  subroutine 
can  be  used  to  obtain  the  model  life  table  for  the  opposite  sex  by  assuming 
Coale-Demeny  sex  differentials  in  life  expectancy  at  aqe  10. 

B.   DATA  NEEDED 

1.  The  life  expectancy  at  birth,  and  if  a  Coale-Demeny  model 
life  table  for  the  opposite  sex  is  also  desired,  the  code  indicating 
this. 

2.  The  sex  of  the  life  table  population. 

3.  The  reqion  from  the  Coale-Demeny  model  life  table  system  which 
is  to  be  used. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

Since  the  reqression  coefficients  of  Coale-Demeny  relate  6|0  to  q  ,   the 

subroutine  must  estimate  the  e]Q  which  corresponds  to  the  e  that  is  qiven. 

This  estimate  is  made  by  a  linear  interpolation  and  an  iterative  process 
as  follows*   For  the  interpolation,  two  initial  pivotal  levels  of  life 
expectancy  at  aqe  ten  are  computed  as: 


i]Q=   13.5  +  0.75  (eQ  -  5) 


is  the  life  expectancy  at  birth  qiven  as  input. 


(1) 


i*0  =  13.5  +  0.75  (eQ  +  5)  (2) 


1        2 
where  e  jQ  and  eJ0  are  the  two  pivotal  life  expectancies  at  age  ten,  and  eQ 
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Using  these  pivotal  values,  their  corresponding  life  expectancies  at 

1       ? 
birth  (e  and  e  .  ) ,  and  the  life  expectancy  at  birth  given  as  input  (e  ) ,   a 


first  estimate  of  the  corresponding  life  expectancy  at  age  ten  is: 


(e  -  e1) 
3  _  1   ,  /  2     1  v    ve0    0;  ,- s 

eio  -  eio  +  (eio  "  eio)  •  "71 TT  (3) 

(e0  "  eo) 


3 
vhere  e,Q  is  an  estimate  of  the  life  expectancy  at  age  ten  corresponding  to  e  . 

3 
Hith  the  estimate  of  e,g  and  the  Coale-Demeny  regression  coefficients,  a 

series  of  g   values  are  generated  and  a  life  table  is  constructed  by  using  the 

3 
subroutine  ELT.   The  life  expectancy  at  birth  (eQ)  from  this  life  table  is 

o 

compared  to  e,    the   given  life   expectancy   at   birth.      If    |e     -  eJ  >    .0001  , 

3  2  1  3 

an  iteration   is  made   in  formula    (3)    vith   e     replacing  e     or   e      ,    and   with   a,,, 

1    '  or  ^       o  o     '  10 

2  1 

replacing    e,Q     or   e,Q    depending  on   which   of   the  two   life   expectancies  at   birth 

is  furthest   from    e  .      After   obtaining   a   new   value   of   life   expectancy  at   age   10 

4 
(e.Q  )  ,    a  new   life   table   is   generated,    yielding  a   life   expectancy   at   birth   of 

4  i 

e   .      If    leZ  -  eJ  >    .0001  ,    the  iterative   process   is  repeated. 

o        (JO 

The  iterative  process  is  repeated  until  |e^  -  eJ  <  .0001    .   Once  this  is 

i 
achieved,  the  life  table  pertaining  to  e   is  accepted  as  an  estimate  of  a 

life  table  pertaining  to  e  . 

If  it  is  desired  to  estimate  a  model  life  table  for  the  opposite  sex, 
this  subroutine  can  be  used  again  to  do  so.   Coale-Demeny  assumptions  of 
mortality  differentials  in  e,Q  by  sex  can  be  used  to  generate  the  life  ex- 
pectancy at  age  10  for  the  opposite  sex.   The  assumed  relationship  between 

e.n     for  males  and  e.n  for  females  is 
10  10 


m    -  m  _ 


/  f    -f  V  U) 


10    10    o  .        vo10   "10 


where 

e™   and  e   are  the  expectations  of  life  at  age  10  for  males  and  females 

respectively; 

e™  and  i.   are  provided  by  Coale  and  Demeny  and  are  the  means  of  the  ex- 
pectations of  life  at  age  10  for  males  and  females  respectively;  and 

a     and  a    are  provided  by  Coale  and  Demeny  and  are  the  standard  deviations  of 

m        f 

expectation  of  life  at  birth  for  males  and  females  respectively. 
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Once  the  life  expectancy  at  aqe  10  for  the  other  sex  is  calculated,  the  life 
table  can  be  qenerated  by  using  the  Coale-Demeny  correlation  coefficients. 

Reference 


A.  J.  Coale  and  P.  Demeny,  Regional  Model  Life  Tables  and  Stable  Populations, 
Princeton  University  Press,  Princeton,  New  Jersey,  1966. 

B.   COMMENTS 

This  subroutine  generates  a  Coale-Demeny  model  life  table  corresponding  to 
a  given  life  expectancy,  sex  and  region.   This  life  table  will  be  applicable 
to  the  country  being  analyzed  only  if  the  age  pattern  of  mortality  in  the 
country  being  analyzed  is  the  same  as  the  age  pattern  of  mortality  described 
by  the  model  life  table. 

If  it  is  desired  to  estimate  model  life  tables  for  both  males  and  females 
when  the  life  expectancy  at  birth  for  only  one  sex  is  known,  this  subroutine 
can  be  used  in  a  particular  way  to  do  so.   Using  the  main  program  included  here, 
this  is  accomplished  by  reading  in  two  sets  of  data.   The  first  set  of  data 
refers  to  the  sex  whose  life  expectancy  at  birth  is  known.   This  set  of  data  is 
punched  according  to  the  instructions  described  in  section  III.C  which  follows. 
The  second  set  of  data  refers  to  the  opposite  sex,  the  sex  whose  life  expectancy 
at  birth  is  not  known.   This  data  set  is  punched  according  to  the  instructions 
given  in  the  note  at  the  end  of  section  III.C. 

If  the  user  is  writing  his  own  main  program,  he  can  calculate  model  life 
tables  for  both  of  the  sexes  either  by  reading  in  a  second  set  of  data  as  in 
the  main  program  included  in  this  publication  or  by  including  two  CALL  MLT 
statements  in  the  main  program;  the  first  to  generate  the  model  life  table  for 
the  sex  with  known  life  expectancy,  the  second  to  generate  the  corresponding 
model  life  table  for  the  opposite  sex.   The  arguments  for  both  CALL  statements 
are  described  in  section  IV. B  which  follows.   The  major  difference  between  the 
two  CALL  statements  is  that  the  value  of  EO  in  the  second  CALL  statement  must 
egual  99.00. 

III.M  AIN   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  MLT  (EO,NSEX,NREG, CDMLT) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  variable  name  CDMLT  in  the  argument  string  is  an  array. 
The  following  DIMENSION  statement  must  be  included  in  any  main  program  using 
this  subroutine. 

DIMENSION  CDMLT(18,8) 
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B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1,   Subroutines  from  this  package 

a.  ELT 

b.  GTCON 

c.  PLT  * 


*   This  subroutine  is  not  called  by  the  subroutine  MLT. 
It  is  used  by  the  main  proqram. 

2.  Library  functions 
ABS (absolute  value) 

3.  Card  diagram  of  the  main  proqram  and  subroutines. 


/ 


/. 


/ 


/. 


/ 


/_ 


/ 


/ 


/ 


/ 
/ 


CARDS  INDICATING  END  OF  DECK    / 

IN PUT~DATA  / | 
/  I 

COMPUTER  CONTROL  CARDS       /|  | 

subroutine~pl:t       ~/\    \    i  / 

/    III/ 

SUBROUTINE   ELT  /III/ 

/    III/ 

/III/ 
,__/  III/ 
/III/ 

_._/  Ill/ 

MAIN    PROGRAM  /III/ 

/    111/ 

COMPUTER  CONTROL  CARDS    /III/ 

/  III/ 

I  I  / 


SUBROUTINE  GTCON 


SUBROUTINE  MLT 


BEGINNING  OF  DECK 


I  I/ 
I  / 
I/ 
/ 


/ 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  proqram  included  with  this 
subroutine  packaqe  are  as  qiven  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arquments  in  section  IV.  B.   See  example^  section  V.C, 


Card  Columns 
1 
2-53 
54-80 

1-5 


Variable 
Name 


Definition 


EO 


NSEX 


I 

IBlank 

I 

I  Label  used  to  identify  the  output 

I 

IBlank 

I 

I 

|The  life  expectancy  at  birth.   The 

Idecimal  point  should  be  in  column  3. 

I 

IBlank 

I 

I  The  code  indicatinq  the  sex  of  the 
| life  table  population.   A  1  punched 
|in  column  7  indicates  males.   A  2 
I  punched  in  column  7  indicates  females. 
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10 


11 


12-80 


NREG 


NXT 


Blank 

The  code  indicating  which  Coale- 
Demeny  reqion  is  being  used.   A  1  punched 
in  column  9  indicates  vest  region,  a  2 
indicates  north  region,  a  3  indicates  east 
region  and  a  4  indicates  south  region. 

Blank 

The  code  indicating  if  there  is  another 
data  set  following  this  one.   A  zero  punched 
in  column  11  would  indicate  that  this  is  the 
last  set  of  data.   Any  other  digit  punched  in 
column  11  would  indicate  that  another  set  of 
data  follows  this  one. 

Blank 


NOTE:   This  main  program  can  be  used  to  estimate  model  life  tables  for 

both  males  and  females  when  the  life  expectancy  at  birth  for  only 
one  sex  is  known.   This  is  accomplished  by  reading  in  two  sets  of 
data.   The  first  set  of  data  refers  to  the  sex  whose  life  expec- 
tancy at  birth  is  known.   This  set  of  data  is  punched  as  described 
above.   The  second  set  of  data  will  consist  of  two  cards.   The 
first  card  will  contain  a  label  punched  in  columns  2-53.   The 
second  card  will  contain  the  value  99.00  in  columns  1-5,  the  sex 
code  (NSEX)  for  the  desired  sex  in  column  7,  the  region  code  (NREG) 
in  column  9  and  the  data  set  indicator  (NXT)  in  column  11.   The  value 
of  NSEX  must  always  be  opposite  of  that  in  the  previous  data  set. 
The  value  of  NREG  must  always  be  the  same  as  that  of  the  previous 
data  set. 

If.  SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses*   This  subroutine  begins  as  follows: 

SUBROUTINE  HLI  (EO, NSEX , NREG, CDMLT) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name    How  Obtained  Definition 

I 

K>    (Transferred  In  (Expectation  of 

ICode  (99.00)  in 
|  table  for  the  o 
i EO  must  have  a 
|or  be  equal  to 
lvalue,  error  me 
|be  written  out 
I  return  to  the  c 
(generating  the 
lone  sex,  Coale- 
Imortality  diffe 
(used  to  generat 
J  for  the  opposit 
|a  model  life  ta 
lis  desired. 
I 


life  at  birth  or  a 

dicating  a  model  life 

pposite  sex  is  to  be  generated. 

value  between  20.00  and  60.00 

99.00.   If  EO  has  any  other 

ssage  number  0762  will 

and  the  subroutine  will 

ailing  program.   After 

model  life  table  for 

Demeny  assumptions  of 

rentials  by  sex  can  be 

e  a  model  life  table 

e  sex.   EO=99.00  indicates 

ble  for  the  opposite  sex 
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NSEX    (Transferred  In 


NBEG 


CDHLT 


Transferred  In 


Transferred  Oat 


The  sex  of  the  life  table  population. 
NSEX=1  indicates  a  male  life  table; 
NSEX=2  indicates  a  female  life  table. 
If  NSEX  equals  any  other  number,  error 
message  number  0763  will  be  written  out 
and  the  subroutine  will  return  to  the 
calling  proqram.   After  generating  the 
model  life  table  for  one  sex,  Coale- 
Demeny  assumptions  of  mortality  differ- 
entials by  sex  can  be  used  to  generate 
a  model  life  table  for  the  opposite  sex. 
To  qenerate  the  opposite  sex  model  life 
table,  the  value  of  NSEX  must  be  opposite 
the  value  of  NSEX  in  the  previous  call 
to  MLT.   If  this  is  not  the  case,  error 
message  number  0761  will  be  written  out 
and  the  subroutine  will  return  to  the 
calling  program. 

The  code  indicating  which  region  from 
the  Coale-Demeny  model  life  table  system 
is  being  used.   NBEG=1,2,3,  and  4  indi- 
cates respectively  the  west,  north,  east, 
and  south  regions.   If  NBEG  equals  any 
other  value,  error  message  number  0764 
will  be  written  out  and  the  subroutine 
will  return  to  the  calling  program. 
After  generating  the  model  life  table 
for  one  sex,  Coale-Demeny  assumptions 
of  mortality  differentials  by  sex  can 
be  used  to  generate  a  model  life  table 
for  the  opposite  sex.   To  generate  the 
opposite  sex  model  life  table,  the  value 
of  NBEG  must  be  the  same  as  the  value  of 
NBEG  in  the  previous  call  to  MLT.   If 
this  is  not  the  case,  error  message 
number  0761  will  be  written  out  and  the 
subroutine  will  return  to  the  calling 
program. 

The  Coale-Demeny  model  life  table  given 
as  output.   For  a  detailed  description  of  this 
array,  see  the  description  of  the  argument  XLT 
in  the  documentation  of  subroutine  ELT. 


C.   EBBOB  MESSAGES 

0761  ***  MLT  EBBOR  NO.  0761  INPUT  EBBOB  IN  VABIABLE  NSEX  OB  NBEG 

***  IF  EO=99,SEX  CODE  MOST  BE  THE  OPPOSITE  OF  THE  PREVIOUS  SEX  CODE 
***  AND  THE  BEGION  CODE  MUST  BE  THE  SAME  AS  THE  PBEVIOUS  BEGION  CODE 
***  PREVIOUS  SEX  CODE  =  XX 

***  PBEVIOUS  BEGION  CODE  =  XX 

0762  ***  MLT  EBROR  NO.  0762  INPUT  EBBOB  IN  VABIABLE  EO 

***  LIFE  EXPECTANCY  AT  BIRTH  MUST  BE  HITHIN  RANGE  20  TO  80. 

0763  ***  MLT  EBROR  NO.  0763  INPUT  ERROR  IN  VARIABLE  NSEX 

***  CODE  INDICATING  SEX  OF  THE  LIFE  TABLE  POPULATION  MUST  EQUAL  1  OR  2 

0764  ***  MLT  EBBOB  NO.  0764  INPUT  EBBOB  IN  VABIABLE  NBEG 

***  CODE  INDICATING  IHICH  COALE-DEHENT  REGION  IS  BEING  USED  MUST  EQUAL 
1,2,3,  or  4. 


0765  ***  MLT  EBBOR  NO.  0765 

***  ITERATION  LIMIT  EXCEEDED  ATTEMPTING  TO  INTERPOLATE  FOR  MODEL  LIFE 
TABLE. 
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A.       COHPUTER    LISTING    FOR   BAIN    PROGRAM 

c 

c 

C MAIN  PROGRAM  FOR   SUBROUTINE   MLT 

C 

c _ 

C ---THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  BY  TWO 

C-- READ  STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C-— -STATEMENTS  AS  FOLLOWS, 
C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

c „T0  B£  0SED  T0  IDENTIFY  THE  OUTPUT.   THIS  LABEL  MOULD  USUALLY 

C CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

C --ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

C THE  TYPE  OF  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 

C -IN  COLUMNS  2-53  OF  THE  CARD. 

C 

C---  — THE  SECOND  HEAD  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  (1)  THE 

C LIFE  EXPECTANCY  AT  BIRTH  (EO)  OR  A  CODE  (99.00)  INDICATING  A  MODEL 

C -LIFE  TABLE  FOR  THE  OPPOSITE  SEX  IS  TO  BE  GENERATED,  (2)  THE  CODE 

C INDICATING  THE  SEX  OF  THE  LIFE  TABLE  POPULATION  (NSEX) ,  (3)  THE 

C CODE  INDICATING  WHICH  COALE-DEMENY  REGION  IS  BEING  USED  (NREG), 

C AND  (H)    THE  CODE  INDICATING  IF  THERE  IS  ANOTHER  DATA  SET  FOLLOWING 

C THIS  ONE. 

c E0   is  LOCATED  IN  COLUMNS  1-5  WITH  THE  DECIMAL  POINT  IN 

c_. COLUMN  3. 

C~-~- NSEX   IS  LOCATED  IN  COLUMN  7.   A  1  PUNCHED  IN  COLUMN  7  INDICATES 

c_. MALES.   A  2  PUNCHED  IN  COLUMN  7  INDICATES  FEMALES. 

C NREG   IS  LOCATED  IN  COLUMN  9.   A  1  PUNCHED  IN  COLUMN  9  INDICATES 

C WEST  REGION,  A  2  INDICATES  NORTH  REGION,  A  3  INDICATES 

c _        EasT  EEGION,  AND  A  U  INDICATES  SOUTH  REGION. 

C NXT   IS  LOCATED  IN  COLUMN  11.   A  ZERO  PUNCHED  IN  COLUMN  11 

c____.        INDICATES  THIS  IS  THE  LAST  SET  OF  DATA.   IF  ANY  OTHER 

c_- NUMBER  IS  PUNCHED  IN  COLUMN  11,  ANOTHER  SET  OF  DATA 

c FOLLOWS  THIS  ONE. 

c__ . .- 

c „ . 

DIMENSION  CDMLT  (18,8) 

NREAD=1 

NPRNT=15 

1  READ(NREAD#3) 
READ(NREAD,4)  EO, NSEX, NREG, NXT 
WRITE(NPRNT,5) 
WRITE(NPRNT,3) 

CALL  MLT (£0, NSEX, NREG, CDMLT) 
CALL  PLT  (CDMLT, NSEX, NREG) 
IF  (NXT)  2,2,1 

2  STOP 

3  F0RMAT(1X,52H  ) 
H    FORHAT(F5.  2,  1X,I1,1X,I1,  1X,I1) 

5  FORMAT  (1H1) 
END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 
SUBROUTINE  MLT  (EO, NSEX, NREG, CDMLT) 


c 

C PROGRAM  NO.  0760 

c _ _ 

c 

C THE  INPUT  ARGUMENTS  TO  THIS  SUBROUTINE  ARE   EO,  NSEX,  AND   NREG. 

C THE  OUTPUT  ARGUMENT  FROM  THIS  SUBROUTINE  IS   CDMLT. 

C EO   IS  THE  LIFE  EXPECTANCY  AT  BIRTH  OR  A  CODE  INDICATING  A  LIFE 

c TABLE  FOR  THE  OPPOSITE  SEX  IS  TO  BE  GENERATED. 

C NSEX   IS  A  CODE  INDICATING  THE  SEX  OF  THE  LIFE  TABLE  POPULATION. 

C NREG   IS  A  CODE  INDICATING  WHICH  REGION  FROM  THE  COALE-DEMENY 

C MODEL  LIFE  TABLE  SYSTEM  IS  BEING  USED. 

C CDMLT   IS  THE  COALE-DEMENY  LIFE  TABLE  GIVEN  AS  OUTPUT. 

c 

c _ . 
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DIMENSION    CDMLT(18,8) 

DIMENSION    QX(18)  ,CONST(78)  ,CDCON  (4,17) 

EQUIVALENCE     (CONST  (1)  ,CDCON  (1.1)) 

NPBNT=    15 
C 
c 

C VERIFICATION    OF    INPUT 

c _ 

C 

100    NEBB=    0 

IF    (EO    -    19.9)     110,160,105 
105    CONTINUE 

IF    (EO    -    80.1)     160,160,110 

110  CONTINUE 

IF  (EO  -  98.9)  150,120,115 
115  CONTINUE 

IF  (EO  -  99.1)  120,120,150 
120  CONTINUE 

IF  (NSEX  +LSEX/2  -2)  140,130,140 
130  CONTINUE 

IF  (NEEG-LBEG)  140,  200,140 
140  WRITE  (NPRNT,111)  LSEX,LREG 

111  F0RMAT(//55H  ***  MLT  ERBOR  NO.  0761  —  INPUT  ERBOB  IN  NSEX  OB  NBEG 

*  ,/,72H  ***  IF   EO  =  99,  SEX  CODE  MUST  BE  THE  OPPOSITE 

*  OF  THE  PBEVIOUS  SEX  CODE,/,69H  ***  AND  THE  REGION  CODE  MUST  BE  TH 
*E  SAME  AS  THE  PREVIOUS  REGION  CODE,/, 25H  ***  PBEVIOUS  SEX  CODE  =  , 
*I6,/,28H  ***  PBEVIOUS  REGION  CODE  =  ,16) 

NERR=  1 

GO  TO  400 
150  WRITE  (NPBNT,222) 
222  FORMAT (//  44H  ***  MLT  ERROR  NO.  0762  —  INPUT  ERROR  IN  EO,/, 

*61H  ***  LIFE  EXPECTANCY  AT  BIRTH  MUST  BE  WITHIN  RANGE   20   TO  80) 

NERR=  1 
160  CONTINUE 

IF  (NSEX  -  1)  170,180,165 
165  CONTINUE 

IF  (NSEX  -  2)  180,180,170 
170  WRITE  (NPRNT,333) 
333  FORMAT (//  46H  ***  MLT  ERBOB  NO.  0763  —  INPUT  ERROR  IN  NSEX, 

*  /,74H  ***  CODE  INDICATING  SEX  OF  THE  LIFE  TABLE  POPULATION  MUS 
*T  EQUAL   1   OR   2) 

NERR=  1 
180  CONTINUE 

IF  (NREG  -  1)  190,200,185 
185  CONTINUE 

IF  (NREG  -  4)  200,200,190 
190  WRITE  (NPRNT,444) 
444  FORMAT (//  46H  ***  MLT  ERROR  NO.  0764  —  INPUT  ERROR  IN  NREG, 

*  /,86H  ***  CODE  INDICATING  WHICH  COALE-DEMENY  REGION  IS  BEING  U 
*SED  MUST  EQUAL   1,  2,  3,  OB  4) 

NEBR=  1 
200  CONTINUE 

IF  (NERR)  210,210,400 
C 
c 

C SET   NOP  =  1   IF  OPPOSITE  SEX  CODE  OPTION  IS  CHOSEN 

c 

C 

210  NOP=  EO/98. 9 
C 
c 

C INTERPOLATION  FOB  MOBTALITY  LEVEL 

c . 

C 

CALL    GTCON     ( 1 , NSEX, NREG, CONST) 

ET1=    0.0 

ET2=    100.0 

DO    390    1=1,10 

IF  (NOP)  230,230,220 
220  ET=  ETOP 

GO  TO  27  0 
230  CONTINUE 

IF  (1-2)  240,240,250 
240  X=  1*10  -15 

ET=  13.5  +0.75*  (EO  +  X) 

GO  TO  270 
250  CONTINUE 
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IF    (E02-E01)     260.420,260 
260    ET=    ET1    +(ET2-ET1)     *(E0-E01)    /    (E02-E01) 
C 
c , 

C CALCULATION    OF      Q(X)       VALOES 

c 

C 

270    DO   310   J=1,17 

X=    CDCON(1,J)     +CDCON(2,J)     *ET 

XP1=    CDCON(3,J)     +CDCON(4,J)     *ET 

XP=    10.0**XP1    /10000.0 

IF    (XP-X)    300.310,280 
280   CONTINUE 

IF    (ET-54.0)    310,310,290 
290   X=XP 

GO   TO    310 
300    X=    (X+XP)     /2.0 
310    QX(J)=    X 

QX  (  1 8)  =  1 .  0 

C 

c 

C GENERATE    NEW    LIFE   TABLE    AND   TEST    LIFE    EXPECTANCY 

c 

C 

340  CALL  ELT  (NREG, NSEX, 1 ,SEP0, SEP1, QX, CDMLT) 

IF  (NOP)  350,350,420 
350  CONTINUE 

IF  (ABS(E0-CDHLT(1,8))  -0.0001)  420,420,360 

C 

c 

C CHANGE   INTERVAL    FOR    NEX    INTERPOLATION 

C ■ 

c 

360  CONTINUE 

IF  (ABS(ET-ETI)  -ABS (ET-ET2) )  370,370,380 
370  ET2=  ET 

E02=  CDMLT  (1,8) 

GO  TO  390 
380  ET1=  ET 

E01=  CDMLT(1,8) 
390  CONTINUE 

WRITE  (NPRNT,555) 
555  FORMAT (//23H  ***  MLT  ERROR  NO.  0765, /,76H  ***  ITERATION  LIMIT  EXCE 

♦EDED  ATTEMPTING  TO  INTERPOLATE  FOR  MODEL  LIFE  TABLE) 
420  ETOP=  CONST  (75)  +  (ET-CONST (76) )  *  CONST (77)  /  CONST  (78) 

LSEX=  NSEX 

LREG=  NREG 

GO  TO  1000 
C 
c 

C PRINTING  OF  INPUT  AND  ZEROING  OF  OUTPUT  BECAUSE  OF  ERROR 

c 

c 

400  WRITE  (NPRNT.666)  EO, NSEX, NREG 

666  FORMAT  (//26H      MLT  INPUT  ARGUMENTS, 

*  /  9B      E0=  ,F8.  2 

*  /11H      NSEX=  ,16 

*  /11H      NREG=  ,16  ) 
DO  410  1=1,18 

DO  410  J=1,8 
410  CDMLT  (I,J)=  0.0 
LSEX=  0 
LREG=  0 
1000  RETURN 
END 
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D.   SAMPLE  OUTPUT 
1st  SET 
1970  SOUVENIR  MALE 


ABRIDGED    LIFE   TABLE 

MALES 

COALE-DEMBNY    SOUTH    REGION 
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AGE 


Q(X) 


D(X) 


M(X) 


I(X) 


L(X) 


S(X) 


T(X) 


E(X) 


0 

0.09625 

9625. 

.  10288 

100000. 

93551. 

.88925 

5870004. 

58. 

70 

1 

0.04180 

3778. 

.01076 

90375. 

351073. 

.96954 

5776453. 

63. 

92 

5 

0.00880 

762. 

.00177 

86597. 

431080. 

.99257 

5425380. 

62. 

65 

10 

0.00605 

519. 

.00121 

85835. 

427877. 

.99247 

4994300. 

58. 

18 

15 

0.00901 

769. 

.00181 

85316. 

424657. 

.98870 

4566423. 

53. 

52 

20 

0.01360 

1150. 

.00274 

84547. 

419859. 

.98633 

4141767. 

48. 

99 

25 

0.01374 

1146. 

.00277 

83397. 

414120. 

.984  77 

3721908. 

44. 

63 

30 

0.01674 

1377. 

.00338 

82251. 

407813. 

.98193 

3307789. 

40. 

22 

35 

0.01943 

1571. 

.003  92 

80874. 

400443. 

.97718 

2899977. 

35. 

86 

40 

0.02627 

2083. 

.00532 

79303. 

391307. 

.96910 

2499534. 

31. 

52 

45 

0.03565 

2753. 

.00726 

77220. 

379215. 

.95636 

2108228. 

27. 

30 

50 

0.05192 

3866. 

.01066 

74467. 

362667. 

.93674 

1729013. 

23. 

22 

55 

0.07523 

5311. 

.01563 

70600. 

339723. 

.90690 

1366346. 

19. 

35 

60 

0. 11241 

7339. 

.  02382 

65289. 

308097. 

.86127 

1026623. 

15. 

72 

65 

0.16839 

9758. 

.03677 

57950. 

265354. 

.78721 

718526. 

12. 

40 

70 

0.26618 

12828. 

. 06141 

48192. 

208889. 

.67130 

453172. 

9. 

40 

75 

0.41390 

14637. 

.104  38 

35364. 

140  226. 

.42597 

244283. 

6. 

91 

80 

1.00000 

20727. 

.19919 

20727. 

104057. 

.0 

104057. 

5. 

02 

2nd    SET 
1970   SOUVENIR    FEMALE    OPPOSITE    OF    PREVIOUS      EO 


ABRIDGED    LIFE    TABLE 

FEMALES 

COALE-DEMENY    SOUTH    REGION 


GE 

Q(X) 

D(X) 

M(X) 

KX) 

L(X) 

S(X) 

T(X) 

E(X) 

0 

0.08592 

8592. 

.09117 

100000. 

94243. 

.90033 

6263761. 

62.64 

1 

0.03849 

3518. 

.00988 

91408. 

355921. 

.97257 

6169518. 

67.49 

5 

0.00743 

653. 

.00149 

87890. 

437816. 

.99377 

5813597. 

66.15 

10 

0.00501 

437. 

.00101 

87237. 

435090. 

.99371 

5375782. 

61.62 

15 

0.00757 

657. 

.00152 

86799. 

432353. 

.99115 

4940693. 

56.92 

20 

0.01014 

873. 

.00204 

86142. 

428526. 

.98906 

4508341. 

52.34 

25 

0.01176 

1002. 

.00237 

85269. 

423837. 

.98770 

4079815. 

47.85 

30 

0.01285 

1083. 

.00259 

84266. 

418623. 

.98612 

3655979. 

43.39 

35 

0.01492 

1241. 

.00301 

83183. 

412812. 

.98327 

3237356. 

38.92 

40 

0.01856 

1521. 

.00375 

81942. 

405906. 

.97910 

2824544. 

34.47 

45 

0.02327 

1872. 

.00471 

80421. 

397424. 

.97164 

2418639. 

30.07 

50 

0.03356 

26  36. 

.00683 

78549. 

386154. 

.95944 

2021216. 

25.73 

55 

0.04780 

3629. 

.00979 

75913. 

370492. 

.93757 

1635063. 

21.54 

60 

0.07779 

5623. 

.01619 

72284. 

347364. 

.89809 

1264571. 

17.49 

65 

0.12805 

8536. 

.02736 

66661. 

311965. 

.82916 

917208. 

13.76 

70 

0.21991 

12782. 

.04941 

58125. 

258670. 

.71864 

605243. 

10.41 

75 

0.36014 

16330. 

.08785 

45343. 

185890. 

.46363 

346573. 

7.64 

80 

1.00000 

29013. 

.18056 

29013. 

160683. 

.0 

160683. 

5.54 
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3rd  SET 
1970  SOUVENIR  MALE  TEST  OF  ERROR  NO.  0761 


***  HIT  ERROR  NO.  0761  —  INPUT  ERROR  IN  NSEX  OR  NREG 

***  IF   EO  =  99,  SEX  CODE  MOST  BE  THE  OPPOSITE  OF  THE  PREVIOUS  SEX  CODE 

***  AND  THE  REGION  CODE  MUST  BE  THE  SAME  AS  THE  PREVIOUS  REGION  CODE 

***  PREVIOUS  SEX  CODE  =       2 

***  PREVIOUS  REGION  CODE  =       4 


MLT  INPUT  ARGUMENTS, 
EO=     99.00 
NSEX=       2 
NREG=       3 


ABRIDGED  LIFE  TABLE 

FEMALES 

COALE-DEMENY   EAST  REGION 


AGE 


Q(X) 


D(X) 


M(X) 


KX) 


MX) 


S(X) 


T(X) 


E{X) 


0 

0.0 

0. 

.0 

0. 

0.  .0 

1 

0.0 

0. 

.0 

0. 

0.  .0 

5 

0.0 

0. 

.0 

0. 

0.  .0 

10 

0.0 

0. 

.0 

0. 

0.  .0 

15 

0.0 

0. 

.0 

0. 

0.  .0 

20 

0.0 

0. 

.0 

0. 

0.  .0 

25 

0.0 

0. 

.0 

0. 

0.  .0 

30 

0.0 

0. 

.0 

0. 

0.  .0 

35 

0.0 

0. 

.0 

0. 

0.  .0 

HO 

0.0 

0. 

.0 

0. 

0.  .0 

45 

0.0 

0. 

.0 

0. 

0.  .0 

50 

0.0 

0. 

.0 

0. 

0.  .0 

55 

0.0 

0. 

.0 

0. 

0.  .0 

60 

0.0 

0. 

.0 

0, 

0.  .0 

65 

0.0 

0. 

.0 

0. 

0.  .0 

70 

0.0 

0. 

.0 

0. 

0.  .0 

75 

0.0 

0. 

.0 

0. 

0.  .0 

80 

0.0 

0. 

.0 

0. 

0.  .0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.  0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0,0 

0. 

0,0 

0. 

0.0 

0. 

0.0 

0. 

0.0 
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4th  SET 
1970  SOUVENIR  HALE  TEST  OF  ERROR  NO.  0764 

***  MLT  ERROR  NO.  0764  —  INPUT  ERROR  IN  NREG 

***  CODE  INDICATING  WHICH  COALE-DEHENY  REGION  IS  BEING  USED  MUST  EQUAL   1,  2,  3,  OR  4 

MLT  INPUT  ARGUMENTS, 
E0=     58.70 
NSEX=       1 
NREG=       5 


ABRIDGED  LIFE  TABLE 
MALES 
EMPIRICALLY  DERIVED 


AGE     Q(X)    D(X)    M(X)    I(X)     L  (X)     S  (X)     T(X)     E(X) 


0 

0.0 

0. 

.0 

0. 

0.  .0 

1 

0.0 

0. 

.0 

0. 

0.  .0 

5 

0.0 

0. 

.0 

0. 

0.  .0 

10 

0.0 

0. 

.0 

0. 

0.  .0 

15 

0.0 

0. 

.0 

0. 

0.  .0 

20 

0.0 

0. 

.0 

0. 

0.  .0 

25 

0.0 

0. 

.0 

0. 

0.  .0 

30 

0.0 

0. 

.0 

0. 

0.  .0 

35 

0.0 

0. 

.0 

0. 

0.  .0 

40 

0.0 

0. 

.0 

0. 

0.  .0 

45 

0.0 

0. 

.0 

0. 

0.  .0 

50 

0.0 

0. 

.0 

0, 

0.  .0 

55 

0.0 

0. 

.0 

0. 

0.  .0 

60 

0.0 

0. 

.0 

0. 

0.  .0 

65 

0.0 

0. 

.0 

0. 

0.  .0 

70 

0.0 

0. 

.0 

0. 

0.  .0 

75 

0.0 

0. 

.0 

0. 

0.  .0 

80 

0.0 

0. 

.0 

0. 

0.  .0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 

0. 

0.0 
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I.  DESCRIPTION         OF       PROGRAM 

A.  PURPOSE 

To  estimate  a  set  of  survival  rates  by  5-year  age  groups  for  a  particular 

level  of  life  expectancy  at  birth,  using  a  given  set  of  survival  rates  from  a 

life  table  with  a  different  life  expectancy  at  birth.   The  first  survival  rate 
in  each  set  must  be  from  birth  to  age  group  0-4. 

B.  DATA  NEEDED 

1.  Life  expectancy  at  birth  corresponding  to  the  given  survival  rates. 

2.  Life  expectancy  at  birth  corresponding  to  the  set  of  survival  rates 
to  be  estimated. 

3.  The  survival  rates  from  birth  to  age  group  0-4,  0-4  to  5-9,  5-9  to 
10-14,...,  70-74  to  75-79,  75+  to  80*. 

4.  The  sex  of  the  population. 

5.  The  Coale-Demeny  model  life  table  region  whose  mortality  pattern 
is  closest  to  that  of  the  survival  rates. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  subroutine  generates,  for  the  given  sex  and  region,  two  model  life 
tables,  one  for  each  of  the  life  expectancies  at  birth  given  as  input. 

With  the  survival  rates  from  each  of  these  model  life  tables,  the 
following  ratio  is  calculated. 

2 
5  x 


5  x 


where 


,1 


5S   is  from  the  model  life  table  with  life  expectancy  at  birth 

corresponding  to  the  given  set  of  survival  rates;  and 

2 
CS   is  from  the  model  life  table  with  life  expectancy  at  birth 

5  x  r  ' 

corresponding  to  the  set  of  survival  rates  to  be  estimated. 
The  survival  rates  given  as  input  are  then  adjusted  as  follows: 

CS*  =  1  -  (1  -  _S  )  •  A 
5  x  5  x   5  x 


where 


_S      is   from   the  set   of   survival   rates   given  as   input;    and 
5S      is   the  estimated   survival   rate   corresponding  to  the   new    life 
expectancy   at   birth. 
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B.   COMMENTS 

Osinq  the  given  survival  rates  the  method  calculates  the  rates  of  not 
surviving  and  assumes  that  percent  changes  of  the  rates  of  not  surviving, 
from  its  mortality  level  (measured  by  life  expectancy  at  birth)  to  a  new 
mortality  level  is  the  same  percent  changes  as  those  between  the  rates  of 
not  survivinq  from  two  Coale-Demeny  model  life  tables  with  the  same  cor- 
responding life  expectancies  at  birth. 

The  life  expectancy  at  birth  calculated  from  the  new  estimated  survival 
rates  will  not  generally  be  identical  to  that  requested  by  the  user.   These 
life  expectancies  at  birth  would  be  identical  only  if  the  survival  rates 
supplied  by  the  user  were  identical  to  those  from  the  Coale-Demeny  system 
at  the  given  sex,  region  and  level  of  mortality. 

III.  MAIN   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  mora  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  proqram  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  proqram.   This  communication  process  is  made  throuqh  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  MORDJ (EO, EONEW, NSEX, NREG , NWRIT, SX) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  the  variable  name  SX  in  the  arqument  strinq  is  an 
array.   The  followinq  DIMENSION  statement  must  be  included  in  any  main  pro- 
qram using  this  subroutine. 

DIMENSION  SX(17) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 

a.  MLT 

b.  GTCON 

2.  Library  functions 
None 
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3.      Card   Diagram  of  main    proqram  and   subroutines 


/ 
/ 

CARDS    INDICATING    END   OF   DECK         /| 

/ 
/ 

INPUT    DATA                           /|     J 

/ 

/ 

COMPUTER    CONTROL   CARDS            /|     |     | 

/III 

/ 
/_ 

SUBROUTINE    GTCON                  /I     J     1     / 

/III/ 

/ 

/ 

/ 

SUBROUTINE    MLT                   /III/ 

"SUBROUTINE    MORDJ            /|     |     |     / 

/III/ 

/ 

MAIN    PROGRAM                  /III/ 
/111/ 

/. 

/  COMPUTER    CONTROL    CARDS         /III/ 

/ /    III/ 

I     I    / 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  proqram  included  with  this 
subroutine  packaqe  are  as  qiven  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arquments  in  section  IV.  B.  See  example,  section  V.  C. 


Variable 
Card  Columns   Name 

1 

2-53 

54-80 


1-8 
9-16 

• 

73-80 
1-8 
9-16 

• 

57-64 
65-80 


Definition 
I 

I  Blank 
I 

I  Label  used  to  identify  the  output 
I 


I  Blank 
I 
I 
SX      |The  survival  rate  from  births 
|to  aqe  qroup  0-4 

I 

|The  survival  rate  from  age  qroup 
|0-4  to  aqe  qroup  5-9 


I  The  survival  rate  from  aqe  qroup 
1 40-44  to  aqe  qroup  45-49 
I 
SX      |The  survival  rate  from  age  qroup  45-49 
|to  50-54 
I 

|The  survival  rate  from  aqe  qroup  55-59 
|to  60-64 


I   . 

|The  survival  rate  from  age  group  75+  to  80* 

I 

I  Blank 


Cards  2  and  3  read  in  the  SX  values.   Ten  SX  values  will  appear  on 
the  first  card  and  eight  SX  values  will  appear  on  the  second  card. 
The  values  should  be  entered  so  that  the  decimal  points  are  in 
columns  1, 9,. . . ,65,73. 
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1-6 


7-12 


13 


14 


15 


16 


EO 


EONEW 


NSEX 


NREG 


NXT 


NWRIT 


Life  expectancy  at  birth  which  corresponds 
to  the  qiven  survival  rates.   The  value 
should  be  entered  with  the  decimal  point 
in  column  3. 

The  life  expectancy  at  birth  corresponding 
to  the  set  of  survival  rates  to  be  estimated. 
The  value  should  be  entered  with  the  decimal 
point  in  column  9. 

The  sex  of  the  population. 

A  1  punched  in  column  13  indicates  males. 

A  2  punched  in  column  13  indicates  females. 

The  Coale-Demeny  model  life  table  region  which 
most  closely  resembles  the  mortality  pattern 
of  the  survival  rates.   A  1  punched  in  column 
14  indicates  west  region,  a  2  indicates  north 
region,  a  3  indicates  east  region,  and  a  4 
indicates  south  region. 

The  code  indicating  whether  another  data  set 
follows  this  one.   A  zero  punched  in  column  15 
indicates  that  this  is  the  last  set  of  data. 
Any  other  digit  punched  in  column  1 5  indicates 
that  another  set  of  data  follows  this  one. 

The  code  indicating  whether  the  results  of  the 
subroutine  are  to  be  written  out.   A  1  punched 
in  column  16  indicates  the  results  of  the  sub- 
routine are  not  to  be  written  out.   Any  other 
number  punched  in  column  16  indicates  the  results 
are  to  be  printed  out. 


IV.  SOB  ROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  MORDJ (£0, EONEW, NSEX, NREG , NWRIT, SX) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


EO 


How  Obtained   Definition 


EONEW 


NSEX 


NREG 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Expectation  of  life  at  birth  corresponding 
to  the  given  survival  rates.   EO  must 
have  a  value  between  20  and  80.   If  EO  has 
any  other  value,  error  message  number  1361 
will  be  written  out  and  the  subroutine  will 
return  to  the  calling  program. 

Expectation  of  life  at  birth  corresponding 
to  the  survival  rates  to  be  estimated. 
EONEW  must  have  a  value  between  20  and  80. 
If  EONEW  has  a  different  value,  error  message 
number  1362  will  be  written  out  and  the  sub- 
routine will  return  to  the  calling  program. 

The  sex  of  the  population.   NS£X=1 

indicates  a  male  life  table;  NSEX=2  indicates  a 

female  life  table.   If  NSEX  equals  any  other 

number,  error  message  number  1363  will  be  written 

out  and  the  subroutine  will  return  to  the  calling 

program. 

The  region  from  the  Coale-Demeny  model  life 
table  system  being  used.   MREG=1,2,3,4 
indicates  respectively  the  west,  north,  east 
and  south  region.   If  NREG  equals  any  other  value, 
error  message  number  1364  will  be  written  out  and 
the  subroutine  will  return  to  the  calling  program. 
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NWRIT 


SX 


Transferred   In 


Transferred  In 
and  Out 


The  code  indicating  whether  the  results  of  the 
subroutine  are  to  be  written  out.   NWRIT=1 
indicates  the  results  of  the  subroutine  are  not 
to  be  written  out.   NWRIT  equal  to  any  other 
number  indicates  the  results  are  to  be  written  out. 

The  set  of  17  survival  rates  from  births  to  aqe 
qroup  0-4,  0-4  to  5-9,  5-9  to  10-14,...,  70-74 
to  75-79,  75+  to  80+.   All  values  of  SX  must  be 
between  zero  and  one.   If  any  value  of  SX  is  not 
within  this  ranqe,  error  messaqe  number  1365 
will  be  written  out  and  the  subroutine  will 
return  to  the  calling  proqram.   After  the  cal- 
culations are  completed,  these  values  are  replaced 
by  the  new  SX's  which  correspond  to  the  new  level 
of  mortality  and  the  new  period  and  hence,  become 
the  output  array. 


C.   ERROR  MESSAGES 

1361  ***  MORDJ  ERROR  NO.  1361 INPUT  ERROR  IN  EO, 

***  LIFE  EXPECTANCY  AT  BIRTH  MOST  BE  BETWEEN  20.0  AND  80.0 

1362  ***  MORDJ  ERROR  NO. 1362  INP0T  ERROR  IN  EONEW, 

***  LIFE  EXPECTANCY  AT  BIRTH  MUST  BE  BETWEEN  20.0  AND  80.0 

1363  ***  MORDJ  ERROR  NO. 1363  INPUT  ERROR  IN  NSEX, 

***  SEX  MUST  BE  EITHER  1  FOR  MALE  OR  2  FOR  FEMALE. 

1364  ***  MORDJ  ERROR  NO.  1364 INPUT  ERROR  IN  NREG, 

***  REGION  MUST  BE  1  FOR  WEST,  2  FOR  NORTH,  3  FOR  EAST,  OR 
4  FOR  SOUTH. 

1365  ***  MORDJ  ERROR  NO.  1365 INPUT  ERROR  IN  SX, 

***  ALL  LIFE  TABLE  SX  VALUES  MUST  BE  GREATER  THAN  OR  EQUAL 
TO  ZERO  AND  LESS  THAN  OR  EQUAL  TO  ONE. 


V.   PROGRAM   AND   RESULTS 


COMPUTER  LISTING  FOR  MAIN  PROGRAM 


c 

c 

C MAIN  PROGRAM  FOR  MORDJ 

c 

c _ 

C — - —  THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  THREE  READ 

C STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C —  THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  TWO  DATA  CARD. 

C~ THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  THE  AGE- 

C SPECIFIC  SURVIVAL  RATES  (SX)  FROM  AN  ABRIDGED  LIFE  TABLE. 

C SX   VALUES  ARE  CONTAINED  ON  TWO  CARDS.   FOR  EACH  SX  VALUE  BIGHT 

C COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS 

C ON  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  SX  VALUES  CAN  APPEAR 

C 0N  THE  FIRST  CARD  AND  EACH  VALUE  SHOULD  BE  ENTERED  SO  THAT 

c THE  DECIMAL  POINT  IS  IN  COLUMNS  1,  9,  ...,  65,  AND  73. 

c THE  SECOND  CARD  CONTAINS  SEVEN  SX  VALUES  AND  THE  VALUES 

C SHOULD  BE  ENTERED  THE  SAME  AS  ON  THE  FIRST  CARD  EXCEPT 

C THAX  THE  LAST  VALUE  WILL  END  IN  COLUMN  64.   IF  LESS  THAN 

C SEVENTEEN  VALUES  ARE  TO  BE  ADJUSTED,  BOTH  CARDS  BUST  BE 

C PROVIDED  WITH  DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECCBS- 

C SARY  FOR  THE  NUMBER  OF  SX  VALUES  WHICH  ARE  TO  BE  ADJUSTED. 
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C 

c THE  purpose  OF  THE  THIED  READ  STATEMENT  IS  TO  BEAD  IN  (1)THE  LIFE 

C EXPECTANCY  AT  BIETH(EO)  WHICH  CORRESPONDS  TO  THE  SX  VALOES  GIVEN, 

C (2) THE  LIFE  EXPECTANCY  AT  BIRTH  (EONEW)  WHICH  CORRESPONDS 

C APPROXIMATELY  TO  THE  LIFE  TABLE  LIFE  EXPECTANCY  AT  BIRTH  WHICH 

c THE  SXiS  ARE  T0  BE  ADJUSTED  TO,  (3) THE  SEX (NSEX)  TO  WHICH  THE 

C SXS  APPLY,  THE  (4) REGION (NREG)  OF  THE  COALE-DEHENY  MODEL  LIFE 

C TABLES  WHICH  HOST  CLOSELY  APPROXIMATES  THE  MORTALITY  PATTERN  OF 

C THE  SXS,  (5) THE  INDICATOR (N XT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER 

C DATA  SET  FOLLOWING  THIS  ONE,  AND  (6) THE  WRITE  INDICATOR  (NWRIT) 

C WHICH  DETERMINES  WHETHER  THE  RESULTS  OF  THE  SUBROUTINE  MORDJ 

C SHOULD  BE  WRITTEN  OUT. 

C EO   IS  IN  COLUMNS  1-6  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED  SO  THAT 

c THE  dbcIMAL  POINT  IS  IN  COLUMN  3  AND  ENDS  IN  COLUMN  6. 

C EONEW   IS  IN  COLUMNS  7-12  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED  SO 

c THAT  THE  DECIMAL  POINT  IS  IN  COLUMN  9  AND  THE  NUMBER  ENDS 

c IH  COLUMN  12. 

C NSEX   IS  IN  COLUMN  13.   A  1  IN  COLUMN  13  INDICATES  MALES  AND  A 

c 2  IN  COLUMN  13  INDICATES  FEMALES. 

C NREG   IS  IN  COLUMN  14.   A  1  IN  COLUMN  14  INDICATES  WEST,  A  2  IN- 

c DICATES  NORTH,  A  3  INDICATES  EAST  AND  A  4  INDICATES  SOUTH. 

C NXT   IS  IN  COLUMN  15.   A  ZERO  IN  COLUMN  15  INDICATES  THIS  IS  THE 

C LAST  DATA  SET.  ANY  OTHER  NUMBER  IN  COLUMN  15  INDICATES  THAT 

c THERE  IS  ANOTHER  SET  OF  DATA  FOLLOWING  THIS  ONE. 

C NWRIT   IS  IN  COLUMN  16  OF  THIS  CARD.   A  ZERO  IN  COLUMN  16 

c INDICATES  THAT  THE  RESULTS  OF  THE  SUBROUTINE  MORDJ  ARE  NOT 

c to  BE  PRINTED  OUT.   FOR  ANY  OTHER  NUMBER  IN  COLUMN  16  THE 

C RESULTS  OF  THE  SUBROUTINE  MORDJ  WILL  BE  PRINTED  OUT. 

c 

c 

DIMENSION  SX(17) 
NREAD  =  1 
NPRNT  =  15 

10  READ  (NREAD, 11) 

11  FORMAT(1X,52H  ) 
READ(NREAD,22)   (SX  (I)  ,1  =  1  ,  1  7) 

22  FORMAT(10F8.7,/,7F8.7) 

READ(NREAD, 33)     EO, EONEW, NSEX, NREG, NXT, NWRIT 
33    FORMAT(2F6.3,4I1) 

WRITE(NPRNT,44) 
44  FORMAT(1H1) 

WRITE (NPRNT, 11) 

CALL  MORDJ (EO, EONEW, NSEX, NREG, NW RIT, SX) 

IF  (NXT)  20,20,10 
20  CONTINUE 

STOP 

END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE   MORDJ  (EO, EONEW, NSEX, NREG, NWRIT, SX) 

C 

c 

c 

C PROGRAM  NO.  1360 

c _ . 

C THE  INPUT  ARGUMENTS  TO  THIS  SUBROUTINE  ARE  EO, EONEW, NSEX, 

C AND  NREG. 

c sx   IS  BoTH  AN  INPUT  ARGUMENT  AND  AN  OUTPUT  ARGUMENT. 

C EO   IS  THE  EXPECTATION  OF  LIFE  AT  BIRTH  FOR  THE  DATE  AT  WHICH  THE 

C SURVIVAL  RATES  ARE  GIVEN. 

c EONEW   IS  THE  EXPECTATION  OF  LIFE  AT  BIRTH  FOR  THE  DATE  TO  WHICH 

c THE  SURVIVAL  RATES  HAVE  TO  BE  ADJUSTED. 

C NSEX   IS  THE  SEX  OF  THE  POPULATION  IN  QUESTION. 

C NREG   INDICATES  WHICH  REGIONAL  MODEL  LIFE  TABLE  IS  TO  BE  OSED. 

c sx   ARE  THE  SURVIVAL  RATES  CORRESPONDING  TO  EO.   AFTER  THE 

C CALCDLATIONS  ARE  COMPLETED,  THESE  VALOES  ARE  REPLACED  BY  THE 

C NEW  SXS  WHICH  CORRESPOND  TO  THE  NEW  LEVEL  OF  MORTALITY 

C AND  HENCE  BECOME  THE  OUTPUT  ARRAY. 
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c 

c 

DIMENSION    SX  (17) ,SX2  (17)  ,CDMLT (18,8) 

C 

c 

c CHECKING  INPUT  ERRORS 

c 

C 

NPRNT  =  15 
NEE  =  0 
N  =  0 
NT  =  0 

IF  (EO-20.)  5,10,10 
5  NEE  =  1 

WRITE  (NPRNT, 11) 
11  FORMAT  (/,1X,45H***  MORDJ  ERROR  NO.  1361  —  INPUT  ERROR  IN  EO, 

*/,1X,59H***  LIFE  EXPECTANCY  AT  BIRTH  MUST  BE  BETWEEN  20.0  AND  80.0 
*.) 
GO  TO  15 
10  CONTINUE 

IF  (EO-80.0)  15,15,5 
15  CONTINUE 

IF  (EON2W-20)  20,25,25 
20  NER  =  1 

WRITE  (NPP.NT, 22) 
22  FORMAT (/,1X,48H***  MOEDJ  ERROR  NO.  1362  --  INPUT  ERROR  IN  EONEW, 
*/,1X,59H***  LIFE  EXPECTANCY  AT  BIRTH  MUST  BE  BETWEEN  20.0  AND  80.0 

*.) 

GO  TO  30 
25  CONTINUE 

IF    (EONEW-80.0)    30,30,20 
30   CONTINUE 

IF    (NSEX-1)     35,45,40 
35    NER    =    1 

WRITE  (NPP.NT, 33) 
33  F0?MAT(/,1X,47H***  MORDJ  EEROE  NO.  1363  --  INPUT  ERROR  IN  NSEX, 
*/,lX,50H***  SEX  MUST  BE  EITHER  1  FOR  MALE  OR  2  FOR  FEMALE.) 

GO  TO  45 
40  CONTINUE 

IF  (NSEX-2)  45,45,35 
45  CONTINUE 

IF  (NF.EG-1)  50,60,55 
50  NER  =  1 

WRITE  (NPRNT, 44) 
44  FORMAT (/, 1X,49H***  MORDJ  ERROR  NO.  1364  —  INPUT  ERROR  IN  REGION,/ 
*,1X,71H***  REGION  MUST  BE  1  FOR  WEST,  2  FOR  NORTH,  3  FOR  EAST,  OR 
*4  FOR  SOUTH.) 

GO  TO  60 

55  CONTINUE 

IF  (NREG-4)  60,60,50 
6  0  DO  80  1=1,17 

IF  (SX(I) -.000001)  86,70,70 
70  CONTINUE 

IF  (SX(I)-1.)  75,75,86 
75  N  =  N  +  1 

80  CONTINUE 

IF  (N)  83,83,81 

81  CONTINUE 

IF  (NT)  83,84,82 

82  CONTINUE 

IF  (N  -  (NT-1)  )  83,84,83 

83  NEB  =  1 

WRITE  (NPRNT, 56) 

56  FORMAT (/,1X,45H***  MORDJ  ERROR  NO.  1365  --  INPUT  ERROR  IN  SX,/ 
*,1X,97H***  ALL  LIFE  TABLE  SX  VALUES  MUST  BE  GREATER  THAN  OR  EQUAL 
*TO  ZERO  AND  LESS  THAN  OR  EQUAL  TO  ONE.) 

84  CONTINUE 

IF  (NER-1)  90,85,85 

85  WRITE  (NPRNT, 66)  EO, EONEW, NSEX, NEEG 

66  F0RMAT(/,1X,25H     MORDJ  INPUT  ARGUMENTS,/, 10H      EO  =  ,F6.  3, 

*  /,1X,12H     EONEW  =  ,F6.3, 

*  /,1X,11H     NSEX  =  ,11, 

*  /,1X,11H     NREG  =  ,11) 
WRITE  (NPRNT, 77)  (SX  (I)  ,  1=1  ,  1  7) 

77  FORMAT  (/,1X,9H     SX  =  , 9 (F10. 7 , 2X) , 

*  /,10X,8(F10.7,2X)  ) 
GO  TO  1000 
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86  CONTINUE 

IF    (NT)     87,87,80 

87  NT   =    I 
GO   TO    80 


C GENERATE    AND    STORE    MODEL    SXS    CORRESPONDING    TO    EO. 

c 


C 

90  CALL  »LT  (£0, NSEX,NREG, CDMLT) 
K  =  N 
N1  =  N+1 
DO  100  1=1,17 
100  SX2(I)  =  0.  0 
DO  200  1=1, K 
200  SX2(I)=CDMLT  (1,6) 

SX2  (K)=CDMLT(K  +  1,7)/CDMLT(K,7) 
C 


C GENERATE  MODEL  SURVIVAL  RATES  CORRESPONDING  TO   EONEH. 

c 

C 

CALL  MLT (EONEW,NSEX,NREG,CDMLT) 

CDMLT  (K,6)  =CDMLT  (K  +  1,7)  /CDMLT  (K,  7) 

CDBLT  (N1 ,6) =0.0 
C 


C ADJUST    THE    INPUT    VALUES    OF       SURV. 

c 

C 

DO    210    1=1, N 

ALPHA=(1.0-CDMLT  (1,6)  )/(1.0-SX2  (I)  ) 
210    SX(I)=1.  0-((1.0-SX  (I)  )*ALPHA) 
C 

Q. -. 

C— — PRINTING    OF    OOTPUT 

C 

IF(NKEIT)     1000,1000,220 
220    WRITE(NPRNT,230) 
230    F0RMAT(////,3X,4HFR0M,4X,2HT0,8X,8HSURVIVAL,/,23X,5HRATE    ) 

WRITE  (NPRNT,  240)     SX(1) 
240    FORMAT (2X,13HBIKTH  0-    U,7X,F7.5) 

KH1=K-1 

DO    250    1=2, KM1 

NAGE=5*I-10 

NAG<*=NAGE  +  4 

NAG5=NAGE+5 

NAG9=NAGE+9 

WRITE  (NPRHT,  26  0)  N  AGE,  N  AG4,  N  AG5,  N  AG9,  SX  (I) 
250  CONTINUE 
26  0  FORMAT  (2X ,12, 1H-.I2, 3X, 12, 1 H-,  12 , 7X,  F7.  5) 

NAGE=5*K-10 

NAG5=NAGE+5 

WRITE  (N PRUT, 27  0)  NAGE,NAG5,SX (K) 
270  F0RMAT(3X,I2,1H+,5X,I2,1H+,8X,F7.5) 
1000  BETURH 

END 
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I.  DESCRIPTION      OF       PROGRAM 

A.  PURPOSE 

To  calculate  age-specific  fertility  rates,  given  a  pattern  of  fertility 
rates,  a  life  table,  the  net  reproduction  rate,  and  the  proportion  of  female 
births  td  total  births. 

B.  DATA   NEEDED 

1.  The  5-year   age-specific    fertility   pattern  for  females   15-49. 

2.  The  capital      L      values  for   females   15-49   in   5-year   age   groups. 

3.  The  net   reproduction  rate. 

4.  The  sex   ratio   at   birth. 

II.  METHODOLOGY 

A.       MATHEMATICAL   DERIVATION 

By   using   the   pattern   of   age- specific   fertility   rates   a   particular 
net   reproduction  rate   can   be   calculated   as   follows: 

U5  L 

NRR'   =  k      E        100000    *  5P0x 
x=15,5 

where 

k   is   the   proportion  of   female   births   to   total   births 

CL      is   the   capital    J.      from   the    life   table 
5    x  5  x 

5P0      is   the   pattern  of   the  age-specific   fertility    rates 

Hith   the   given  net    reproduction   rate    (NRR)    and    the  one   estimated 

above    (NRR')    the   new  set   of    age-specific   fertility    rates   is   calculated 
as   follows: 

5*x         NRR         5  px 


B.       COMMENTS 

Net  reproduction  rates  can  be  used  to  determine  fertility  rates  needed 
for  population  projections.  This  subroutine  could  be  used  for  determining 
the   future   fertility   rates   under   those   circumstances. 

III.M    AIN       PROGRAM 

A.       REQUIREMENTS 

The  main    program  is   reguired   to   use   this   subroutine   and   obtain   the   data 
(input)    necessary    for   the   subroutine   to   perform   its  calculations.      A  main 
program   can   use   a  subroutine  alone   or   in  conjunction  with   other   subroutines. 
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For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  NRSFR(ASFPT,RNRR,SRB,CAPLX,FR) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  the  variables  ASFPT,CAPLX,  and  FR  in  the  argument 
string  are  all  arrays.   The  following  dimension  statement  must  be  included  in 
in  any  main  program  using  this  subroutine. 

DIMENSION  ASFPT  (7)  ,CAPLX  (18)  ,FR  (7) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 
None 

2.  Library  functions 
None 

3.  Card  Diagram  of  main  program  and  subroutines. 


/  / 

/   CARDS  INDICATING  END  OF  DECK     / 

/  7 1 

/  INPUT  DATA  /  | 

^  _^   ^   ^ 

/     COMPUTER  CONTROL  CARDS         /  |  |  / 

/ /  I  I/ 

/  /I  I  / 

/  SUBROUTINE  NRSFR       /  |  \  / 

/ ; /  I   I/ 

/  /I   I  / 

/  MAIN  PROGRAM  /  |   |  / 

/  7 1   I   / 

/       COMPUTER  CONTROL  CARDS       /  |   |  / 

/ /   I   I/ 
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C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data,  see  the 
description  of  arguments  in  section  IV. B,  See  examples,  section  V.C. 

Variable 
Card  Columns   Name    Definition 


1 

2-53 

54-80 

1 


2-7 

8-13 

14-80 

1-7 

8-14 

43-49 

50-80 
1-8 

9-16 

73-80 

1-8 
9-16 


NXT 


RNRR 


SRB 


ASFPT 


CAPLX 


CAPLX 


Blank 

Label  used  to  identify  input 

Blank 


The  code  indicating  if  there  is 

another  data  set  following  this 

one.   A  zero  punched  in  column  1 

indicates  that  this  is  the  last  set  of  data. 

Any  other  digit  punched  in  column  1 

indicates  that  another  set  of  data  follows 

this  one. 

The  net  reproduction  rate.   The 
decimal  point  should  be  in  column  3. 

The  sex  ratio  at  birth.   The  decimal 
point  should  be  in  column  9. 

Blank 


The  value  in  the  age-specific  fertility 
pattern  for  females  15-19.  The  decimal 
point   is    in   column   1. 

The  value  in  the  age-specific  fertility 
pattern  for  females  20-24.  The  decimal 
point  is   in   column  8. 


The  value  in  the  age-specific  fertility 
pattern  for  females  45-49.  The  decimal 
point   is   in   column   43, 

Blank 


The  capital  ^  value  for  females 
age  0-1.   The  value  ends  in 
column  8. 

The  capital  5LX  value  for  females 
age  1-4.   The  value  ends  in 
column  16. 


The  capital  cl^  value  for  females 
40-44.   The  value  ends  in 
column  80. 


The  capital  ,-L.  value  for  females 
45-49.   The  value  ends  in 
column  8. 

The  capital  eL,  value  for  females 
50-54.   The  value  ends  in  column  16, 
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i  I  57-64    | 

I  I  I 

I  I  I 

I  |  65-80    | 


| The   capital 


Iu 


value  for  females 


1 80+.      The   value   ends   in   column   64. 

I 

| Blank 


The   variable   CAPLX   always  requires   two   cards.      The   first   card    (card 
No.    k)    must  contain  data  for   females   age   15-49.      Thus,    columns  33-80 
must   contain  data.      The  second  card   must    contain  data   for   females   45-49, 
so  columns   1-8  must  contain  data.      CAPLX  values   are  necessary  for  age 
groups    15-49  but  can  be   provided   for   all   age  groups   0-80+.      This   is  done 
so   that   the   input   for   this  main   program   will   be   compatible   with   input 
data   for  other  main  programs  in   this  package. 

IV.    SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  NRSFB  (ASFPT,  RNRS,  SRB,  CAPLX,  FP) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


ASFPT 


How  Obtained   Definition 


RNRR 


SRB 


CAPLX 


FR 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 


Age-specific  fertility  pattern 
for  females  15-49  in  5- year 
age  groups.   Each  value  must  be 
greater  than  or  egual  to  0.0 
and  less  than  .5.   If  any  of 
the  ASFPT  values  are  negative  or 
greater  than  .5,  the  subroutine 
will  write  out  error  message  0822 
and  return  to  the  calling  program. 

The  net  reproduction  rate.   The 
value  for  the  net  reproduction 
rate  must  be  between  .5  and  4. 
For  any  other  value  of  RNRR,  the 
subroutine  will  write  out  error 
message  no.  0823  and  return  to  the 
calling  program. 

The  sex  ratio  at  birth.   The  sex 
ratio  at  birth  must  be  between  . 9 
and  1. 1.   If  SRB  has  any  other 
value,  the  subroutine  will  write 
out  error  message  no.  0824  and  re- 
turn to  the  calling  program. 

The  capital  rL^  values  for  females. 
The  first  value  is  for  age  0-1  and 
the  second  value  is  for  age  1-4. 
The  third  through  the  seventeenth 
values  are  for  5-year  age  groups 
beginning  with  5-9.   The  eighteenth 
value  is  for  the  open-ended  age  group  80+, 
This  subroutine  uses  only  the  fifth 
through  the  eleventh  values.   These 
values  correspond  to  ages  15-49.   If 
the  number  given  for  the  fifth  through 
the  eleventh  value  is  less  than  60,000 
or  greater  than  472,000,  the  subroutine 
will  write  out  error  message  no.  0821 
and  return  to  the  calling  program. 

The  age-specific  fertility  rates  in 
5-year  age  groups  as  calculated 
by  the  subroutine. 
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C.   ERBOfi  MESSAGES 

0821  ***  NRSFR  EBBOB  NO.  0821  —  INPUT  ERROB  IN  CAPLX 
***  ALL  VALUES  FCB  CAPITAL  LX  FOB  AGES  15-49  HOST 

BE  BETWEEN  60,000  AND  472,000. 

0822  ***  NBSFB  ERROR  NO.  0822  —  INPOT  ERROR  IN  ASFPT 
***  THE  AGE-SPECIFIC  FERTILITY  PATTERN  RATES  HOST 

BE  BETWEEN  0.0  AND  0.5. 

0823  ***  NBSFR  ERROR  NO.  0823  —  INPOT  ERROR  IN  RNBB 
***  THE  NET  BEPBODOCTION  BATE  BETWEEN  .5  AND  4. 

0824  ***  NBSFR  ERROR  NO.  0824  —  INPOT  ERROR  IN  SRB 

***  THE  SEX  RATIO  AT  BIRTH  HOST  BE  BETWEEN  .9  AND  1.1. 


V.   PROGRAM  AND  RESOLTS 

A.   COMPOTER  LISTING  FOR  MAIN  PROGRAM 

c 

c 

C MAIN  PROGRAM  FOR  NRSFR 


THIS  PROGRAM  OSES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  BY  FOOR 
READ  STATEMENTS.  THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 
STATEMENTS  AS  FOLLOWS. 

THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CABD. 

THE  PORPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 
TO  BE  OSED  TO  IDENTIFY  THE  OOTPOT.  THIS  LABEL  WOOLD  USUALLY 
CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 
ANALYZED  AND  GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OB  TYPE 
OF  ANALYSIS  THAT  IS  BEING  DONE.  THIS  LABEL  IS  LOCATED  IN 
COLOMNS  2-53. 

THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  (1)  THE 

CODE(NXT)  INDICATING  IF  THERE  IS  ANOTHES  DATA  SET  FOLLOWING  THIS 

ONE,  (2)  THE  CODE  (RNBR)  INDICATING  THE  NET  REPRODOCTION  BATE, 

AND  (3)  THE  CODE(SBB)  INDICATING  THE  SEX  RATIO  AT  BIRTH. 

NXT    IS  LOCATED  IN  COLUMN  1.  A  ONE  PUNCHED  IN  COLUMN  1  INDICATES 

THIS  IS  THE  LAST  SET  OF  DATA.   ANY  OTHER  DIGIT  PUNCHED  IN 

COLUMN  1  INDICATES  ANOTHER  SET  OF  DATA  FOLLOWS  THIS  ONE. 
RNRS   IS  LOCATED  IN  COLUMNS  2-7.  IT  SHOULD  BE  ENTEBED  SO  THAT 

THE  VALUE  HAS  A  DECIMAL  POINT  IN  COLUMN  3. 
SRB    IS  LOCATED  IN  COLUMNS  8-13.  IT  SHOULD  BE  ENTERED  SO  THAT 

THE  VALUE  HAS  A  DECIMAL  POINT  IN  COLUMN  9. 

THE  THIBD  READ  STATEMENT  USES  ONE  DATA  CARD. 

THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE 

FERTILITY  PATTERN  IN  5-YEAR  AGE  GROUPS  (ASFPT)  TO  BE  USED. 

ASFPT  IS  CONTAINED  ON  ONE  DATA  CARD.  EACH  VALUE  MUST  BE  LOCATED 
WITHIN  SEVEN  COLUMNS,  STARTING  WITH  THE  FIRST  SEVEN 
COLOMNS.  A  MAXIMUM  OF  SEVEN  ASFPT  VALUES  CAN  BE  USED  SO 
THAT  THE  DECIMAL  POINT  IS  LOCATED  IN  COLUMNS  1,  8,  15, 
43,  AND  50. 

THE  FOURTH  READ  STATEMENT  USES  TWO  DATA  CARDS. 

THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE 

CAPITAL  LX  VALUES  FROM  THE  LIFE  TABLE(CAPLX)  . 

CAPLX  VALUES  ARE  CONTAINED  ON  TWO  CARDS.  FOR  EACH  CAPLX  VALUE 
SEVEN  COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  SEVEN 
COLUMNS  OF  THE  FIRST  CARD.  A  MAXIMUM  OF  TEN  CAPLX  VALUES 
CAN  APPEAR  ON  THE  FIRST  CARD  SO  THAT  THE  VALUES  END  IN 
COLUMNS  8,  16,  24,  ...,72,  80.  THE  SECOND  CARD  CONTAINS 
EIGHT  CAPLX  VALUES  AND  THE  VALUES  SHOULD  BE  ENTERED  THE 
SAME  AS  ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALUE  ON  THE 
SECOND  CARD  WILL  END  IN  COLUMN  64.   IT  IS  NOT  NECESSARY  TO 
ENTER  EIGHTEEN  VALUES  FOR  CAPLX.   HOWEVER,  VALUES  MUST  BE 
GIVEN  IN  5-YEAR  AGE  GROUPS  FOR  FEMALES  15-49.   THEY  ARE  CON- 
TAINED IN  COLUMNS  33-80  OF  THE  FIRST  CARD  AND  IN  COLUMNS 
1-8  OF  THE  SECOND  CARD. 
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DIMENSION    ASFPT(7)  ,FR(7)  ,CAPLX(18) 
NRBAD    =    1 
NPRNT   =    15 

10  READ(NREAD,11) 

11  FORMAT (52H 

READ  (NREAD,44)  NXT, RNRR,  SRB 
44  FORMAT  (11, 2F6.  3) 

READ(NREAD,22)  ASFPT 
22  FORMAT(7F7.6) 

READ(NREAD,33)     (CAPLX  (I)  ,1=  1,  18) 
33    FORMAT  (10F8. 0,/,8F8.  0) 

HRITE (NPRNT, 66) 
66    F0RMAT(1H1) 

HRITE  (NPRNT, 11) 

CALL    NRSFfi  (ASFPT, RNRR,SRB, CAPLX,  FR) 

HRITE  (NPRNT, 55)     (FR  (I)  ,1=1  ,7) 
55    FORMAT (/, 1X,28HAGE    SPECIFIC   FERTILITY    RATES,/, 7 (5X, F8.  5) ) 

IF    (NXT)     10,20,10 
20    CONTINUE 

STOP 

END 


B.       COMPUTER    LISTING   FOR    SUBROUTINE 

SUBROUTINE    NRSFR  (ASFPT, RNRR,SRB, CAPLX, FR) 

c 

c _ 

C PROGRAM    NO.    0820 

c — _ 

c 

C ASFPT,    RNRR,     SRB,    AND    CAPLX    ARE    ALL    INPUT    ARGUMENTS. 

c FR    IS    an    OUTPUT    ARGUMENT. 

C ASFPT    IS    THE    FIVE    YEAR    AGE-SPECIFIC    FERTILITY    PATTERN    FOR 

c FEMALES    15-49. 

C RNRR   IS    THE   NET    REPRODUCTION    RATE. 

C SRB    IS    THE    SEX    RATIO    AT    BIRTH. 

c CAPLX      IS    THE   CAPITAL    LX    COLUMN   FROM   THE    LIFE   TABLE.     AT   LEAST 

c THE    CAPITAL    LX    VALUES    PERTAINING    TO    THE    FEMALE    REPRODUCTION 

C AGES    (15-49)    MUST    BE    IN    CAPLX(5)    THROUGH    CAPLX(11). 

c FR    IS   THE    FIVE   YEAR    AGE-SEECIFIC    FERTILITY   RATES    DETERMINED   BY 

C- SCALING    THE   GIVEN    FIVE   YEAR    AGE-SPECIFIC    FERTILITY    PATTERN 

c T0   THE    NET    rbpeODUCTION   RATE. 

c 

c _ 

DIMENSION    ASFPT  (7)  ,CAPLX  ( 18)  ,  FR  (7) 
NPRNT   =    15 
NERR    =    0 


c 

C VERIFY  INPUT  ARGUMENTS 

c 

C 

DO  10  1=5,11 

IF  (CAPLX(I)  -  60000.)  300,10,5 
5  CONTINUE 

IF  (CAPLX(I)  -  473000.)  10,10,300 
10  CONTINUE 
13  CONTINUE 

DO  20  1=1,7 

IF  (ASFPT  (I)  -  0.0)  400,20,15 
15  CONTINUE 

IF  (ASFPT(I)  -  0.5)  20,20,400 
20  CONTINUE 
23  CONTINUE 

IF  (RNRR  -  0.5)  500,30,25 
25  CONTINUE 

IF  (RNRR  -  4.0)  30,30,500 
30  CONTINUE 

IF    (SRB    -    0.9)     600,50,35 
35   CONTINUE 

IF    (SRB    -    1.1)     50,50,600 
50    CONTINUE 

IF     (NERR)     900,60,900 
60   CACNR    =    0. 0 
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DO    100    1=1,7 
100    CACNR   =    CACNR*CAPLX(I+4)  *ASFPT  (I)  /  (1  00000.  0*  ( 1 .  0+SBB)  ) 
C 
c 

c SCALE   TO    THE    NET    REPRODUCTION    RATE. 

c 

C 

DO  200  1=1,7 
200  FR(I)  =  BNRR*ASFPT(I)/CACNR 

GO  TO  1000 
C 
c 

c ERROR    STATEMENTS 

c 

C 

300    NERB    =    1 

WRITE (NPBNT, 333) 
333    FOBBAT (//,49H    ***    NRSFR    ERROR    NO.     0821    — 
*80H   ***    ALL    VALUES    FOR   CAPITAL    LX    FOR    AGES 
♦0,000    AND   473,000    ) 
GO   TO    13 
400    NERB    =    1 

WRITE (NPRNT, 444) 
444    FORBAT (//,49H   ***    NRSFR    ERROR    NO.     0822   — 
*67H    ***   THE   AGE-SPECIFIC    FERTILITY    PATTERN 
*    0.  5) 
GO    TO    23 
500    NERR    =    1 

WRITE  (NPRNT,555) 
555   FOBBAT (//,48H    ***    NRSFR    ERROR    NO.     0823    — 
*58H    ***    THE    NET    REPRODUCTION   RATE    BUST    BE 
GO   TO    30 
600    NERB    =    1 

WRITE  (NPBNT,666) 
666    FOBBAT(//,47H    ***    NBSFR    ERROR    NO.     0824    — 
*55H    ***    THE    SEX    RATIO    AT    BIRTH    BUST    BE    BET 
GO   TO    50 
900    WRITE (NPRNT, 999)     RNRR,SRB,  (ASFPT (I) , 1=1 ,7) 
999    FORBAT(/,19H   NRSFR    INPOT    VALOES, //,8H    RNRR 
*F6.3,//,9H    ASFPT   =    , 7 (2X,F7. 5) ,//,9H    CAPLX 
*9(1X,F9.0)  ,/,9X,9(lX,F9.0)) 
DO    950    1=1,7 
950    FR(I)     =    0.0 
1000    RETURN 
END 


INPUT   ERROR    IN    CAPLX,/, 
15-49    BUST    BE    BETWEEN    6 


INPUT    ERROR    IN    ASFPT,/, 
BUST    BE    BETWEEN    0.0    AND 


INPUT    ERROR    IN    RNRR,/, 
BETWEEN    0.5    AND    4.0) 


INPUT    ERROR    IN    SRB,/, 
WEEN    0.9    AND    1.  1) 

,  (CAPLX  (I), 1=1, 18) 
=    ,F6. 3,5X,6HSRB   =    , 
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D.       SAMPLE   OUTPUT 

1st    SET 

NRSFR    SOUVENIR    DATA       11    CAPLX'S 

AGE   SPECIFIC    FERTILITY    RATES 

0.08023  0.23405  0. 24765  0.20341  0.15441  0.06971  0.02261 


2nd    SET 
NRSFR    SOUVENIR    DATA      BAD   CAPLX 

***    NRSFR    ERROR    NO.    0821    —    INPUT    ERROR    IN    CAPLX 

***   ALL    VALUES    FOR   CAPITAL    LX   FOR    AGES    15-49    BUST    BE    BETiEEN    60,000    AND    473,000 

NRSFR  INPUT  VALUES 

RNRR  =   1.782      SRB  =   1.064 

ASFPT  =    0.08026   0.23413   0.24773   0.20348   0.15446   0.06973   0.02262 

CAPLX  =      92310.    335996.    404870.    397177.    388727     379787.    568824.    357334.    345368. 
332597.    317970.    290374.    266258.    235224.    195982.    149002.     97836.         0. 

AGE  SPECIFIC  FERTILITY  RATES 

0.0  0.0  0.0  0.0  0.0  0.0  0.0 


3rd  SET 
NRSFR  SOUVENIR  DATA   BAD  ASFPT 

***  NRSFR  ERROR  NO.  0822  —  INPUT  ERROR  IN  ASFPT 

***  THE  AGE-SPECIFIC  FERTILITY  PATTERN  MUST  BE  BETiEEN  0.0  AND  0.5 

NRSFR  INPUT  VALUES 

RNRR  =   1.782      SRB  =   1.064 

ASFPT  =    0.08026   0.23413   0.24773   0.99999   0.15446   0.06973   0.02262 

CAPLX  =     92310.    335996.    404870.    397177.    388727.    379787.    368824.    357334.    345368. 
332597.    317970.    290374.    266258.    235224.    195982.    149002.     97836.         0. 

AGE  SPECIFIC  FERTILITY  RATES 

0.0  0.0  0.0  0.0  0.0  0.0  0.0 
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4th   SET 
NRSFR    SOUVENIR    DATA      BAD    RNRR 

***    NRSFR    ERROR   NO.    0823   —    INPUT    ERROR    IN    RNRR 

***   THE    NET    REPRODUCTION    RATE    MUST    BE    BETWEEN    0.5   AND    4.0 

NRSFR    INPUT    VALUES 

BNHR    =      0.082  SRB   =       1.064 

ASFPT   =        0.08026      0.23413      0.24773      0.20348      0.15446      0.06973      0.02262 

CAPLX    =  92310.         335996.         404870.         397177.         388727.  379787.         368824.         357334.         345368. 

332597.         317970.         290374.         266258.         235224.  195982.         149002.  97836.  0. 

AGE    SPECIFIC    FERTILITY    RATES 

0.0  0.0  0.0  0.0  0.0  0.0  0.0 


5th  SET 
NRSFR  SOUVENIR  DATA   ALL  ERRORS 

***  NRSFR  ERROR  NO.  0821  --  INPUT  EEROB  IN  CAPLX 

***  ALL  VALUES  FOR  CAPITAL  LX  FOE  AGES  15-49  BUST  BE  BETWEEN  60,000  AND  473,000 

***  NRSFR  ERROR  NO.  0822  —  INPUT  ERROR  IN  ASFPT 

***  THE  AGE-SPECIFIC  FERTILITY  PATTERN  MUST  BE  BETWEEN  0.0  AND  0.5 

***  NRSFR  ERROR  NO.  0823  —  INPUT  ERROR  IN  RNRR 

***  THE  NET  REPRODUCTION  RATE  MUSI  BE  BETWEEN  0.5  AND  4.0 

***  NRSFR  ERROR  NO.  0824  —  INPUT  ERROR  IN  SRB 

***  THE  SEX  RATIO  AT  BIRTH  MUST  BE  BETWEEN  0.9  AND  1.1 

NRSFR  INPUT  VALUES 

RNRR  =   5.082      SRB  =   0.800 

ASFPT  =    0.08026   0.23413   0.24773   0.99999   0.15446   0.06973   0.02262 

CAPLX  = 


92310. 

335996. 

404870. 

397177. 

388727. 

379787. 

824. 

357334. 

345368 

332597. 

317970. 

290374. 

266258. 

235224. 

195982. 

149002. 

97836. 

0 

AGE  SPECIFIC  FERTILITY  RATES 

0.0  0.0  0.0  0.0  0.0  0.0  0.0 
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I.  DESCRIPTION      OF       PROGRAM 

A.  PURPOSE 

To  calculate  stable  or  quasi-stable  estimates  of  the  crude  birth  and 
death  rates  from  the  aqe  distribution  and  the  rate  of  natural  increase  of 
a  population.   The  estimates  are  based  on  Coale-Demeny  stable  populations. 

B.  DATA  NEEDED 

1.  The  population  aged  0-44  in  5-year  aqe  qroups  0-4,  5-9  . ..,  35-39, 
40-44. 

2.  The  number  of  people  in  the  total  population. 

3.  The  sex  of  the  population. 

4.  The  Coale-Demeny  reqion  beinq  used. 

5.  The  rate  of  natural  increase  of  the  population.   If  quasi-stable 
estimates  are  desired,  this  should  be  the  rate  of  natural  increase  during 
the  last  intercensal  period. 

6.  If  quasi-stable  estimates  are  desired,  the  number  of  years  between 
the  last  two  censuses  must  be  qiven. 

7.  If  quasi-stable  estimates  are  desired,  the  number  of  years  mortality 
has  been  declininq  must  be  qiven. 

8.  If  quasi-stable  estimates  are  desired,  the  rate  of  natural  increase  be- 
fore the  mortality  decline  began  must  be  qiven. 

9.  An  indicator  of  whether  the  results  are  to  be  printed  out  must  be 
qiven. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  methodoloqy  involved  in  this  subroutine  assumes  that  the  population 
for  which  estimates  are  calculated  is  a  stable  or  quasi-stable  population 
and  that  the  rate  of  natural  increase  is  the  intrinsic  growth  rate  of  the 
stable  population. 

The  proportion  of  the  given  population  under  age  x  for  x=5, 1 0,. . . ,45 
is  calculated  as  follows,  assuming  that  the  information  is  by  5-year  age 
groups. 


Cpt=^o^ 


5  j-5 


x   0  T,t 


where 


xCPq    is   the   proportion  of    population   under   age   x   at   year   t 
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P    is  the  population  in  the  5-year  age  group  j-5,  j-1  at 

year  t,  and 
P  is  the  total  population  at  year  t. 

Using  each  of  these  cumulative  proportions,  the  rate  of  natural  increase 
and  subroutine  INTSP,  stable  populations  for  each  cumulative  proportion  are 
generated.   Each  of  these  stable  populations  will  have  different  stable  popu- 
lation parameters,  and  different  life  tables  (INTSP  uses  Coale-Demeny  model 
life  tables) .   The  stable  population  having  a  life  table  whose  life  expectancy 
at  birth  is  the  median  value  from  all  these  life  tables  is  accepted  as  per- 
taining to  the  actual  population.   The  intrinsic  birth  and  death  rates  and 
the  gross  reproduction  rate  of  the  chosen  stable  population  are  considered 
to  be  estimates  of  the  parameters  of  the  actual  population. 

If  a  guasi-stable  condition  is  assumed,  the  above  estimates  are  corrected 
by  considering  the  time  period  during  which  the  population  is  assumed  guasi- 
stable  and  the  rate  of  natural  increase  at  the  beginning  of  such  period.   This 
correction  is  made  by  using  subroutine  ADJBG. . 

Reference:   United  Nations,  Methods  of  Estimating  Basic  Demographic  Measures 
from  Incomplete  Data,  Manual  IV,  ST/SOA/Series  A/42,  New  York  1967. 

B.   COMMENTS 

Since  this  subroutine  is  restricted  to  the  mortality  patterns  of  Coale- 
Demeny  regional  model  life  tables,  both  the  fertility  and  mortality  rates  are 
based  on  the  patterns  as  qiven  by  Coale-Demeny  in  Regional  Model  Life  Tables 
and  Stable  Populations.   Although  the  stable  population  distribution  and  its 
parameters  can  be  generated  for  either  sex,  when  a  male  stable  population  dis- 
tribution is  estimated,  the  female  fertility  rates  are  applied  to  the  male 
stable  population  distribution  for  purposes  of  determining  the  gross  reproduc- 
tion rates. 

III.  MAIN   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines* 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.  CALL  statement 

Once  the  main  program  has  obtained  the  data  reguired  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  ONCEN  (P5,TP5,NSEX ,NREG,RNG, INT,NT, RNG1,  NWRIT,  CDMLT, 

*CBRN,CBRAM,CDRAH) 

For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.  DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  both  variable  names  P5  and  CDMLT  in  the  argument  string 
are  arrays.   The  following  DIMENSION  statement  must  be  included  in  any  main 
program  using  this  subroutine. 

DIMENSION  P5(9),CDHLT(18,8) 
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B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 


1.  Subroutines  from  this  package 

a.  INTSP 

b.  ADJBG 

c.  SPP 

d.  MLT 

e.  GTCON 

f.  ELT 

2.  Library  functions 
HOD  (modulus) 

ABS (absolute  value) 


3.   Card  diagram  of  main  program  and  subroutines 


/     CARDS  INDICATING  END  OF  DECK   / 

/              "~INPUT~DATA~~        "~7| 
/ /  I 

/       COMPUTER  CONTROL  CARDS       /|  | 

/ /  I  I 

/  SUBROUTINE    ELT  /|     |     | 

/  ~  ~SUBROUTINi~GTCON~"  "~/\     \     \    / 

/ /    III/ 

/  SUBROUTINE  MLT         /III/ 

/ /  III/ 

/  SUBROUTINE  SPP        /III/ 

/ /  III/ 

/  SUBROUTINE    ADJBG  /III/ 

/ _ /    III/ 

/  SUBROUTINE   INTSP  /III/ 

/    *  SUBROUTINE~ONicN  ~/\     |     |    / 

/ /    III/ 

/  MAIN    PROGRAM  /III/ 

/ /    III/ 

/  COMPUTER  CONTROL  CARDS    /III/ 

/ /  III/ 

I  I  / 


C. 


FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 


The  card  format  requirements  for  the  main  program  included  with  this 
subroutine  package  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV. B.   See  example,  section 
V.C. 


Card  Columns 


2-53 


Variable 
Name 


54-80 


NSEX 


Definition 


I 

I  Blank 

I 

| Label  used  to  identify  the  output 

I 

I  Blank 

I 

I 

| The  sex  of  the  population.   A  1 

(punched  in  column  1  indicates  males, 

| a  2  punched  in  column  2  indicates 

|  females. 
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4 
5-9 


10 
11-12 


13 
11-15 


16 
17-21 


22 
23 


24 
25 


26-80 

1-12 
13-80 


NREG 


ENG 


INT 


NT 


RNG1 


KWRIT 


NXT 


TP5 


Blank 

The  Coale-Demeny  region  being  used. 

A  1  punched  in  column  3  indicates 

west  region;  a  2  indicates  north  region, 

a  3  indicates  east  region  and  a  4  indicates 

south  reqion. 

Blank 

The  rate  of  natural  increase  of  the  popu- 
lation.  If  quasi-stable  estimates  are 
desired,  this  should  be  the  rate  of 
natural  increase  durinq  the  last  intercensal 
period.   ENG  should  be  given  per  unit  and 
the  decimal  point  should  be  entered  in 
column  5. 

Blank 

The  number  of  years  between  the  last  two 
censuses.   A  5  punched  in  column  12 
indicates  a  5-year  intercensal  period. 
A  10  punched  in  columns  11-12  indicates 
a  10  year  intercensal  period.   If  quasi- 
stable  estimates  are  not  desired,  zeros  should 
be  punched  in  columns  11  and  12.   The  variable 
should  be  entered  ending  in  column  12. 

Blank 

The  number  of  years  mortality  has  been 
declining.   NT  must  be  a  multiple  of  5. 
If  guasi-stable  estimates  are  not  desired, 
zeros  should  be  punched  in  columns  14-15.  The 
value  should  be  entered  ending  in  column  15. 

Blank 

The  rate  of  natural  increase  before  the 
mortality  decline  began.   These  columns 
are  used  only  when  guasi-stable  estimates 
are  calculated.   The  value  of  the  rate  of 
natural  increase  should  be  entered  with  the 
decimal  point  in  column  17. 

Blank 

The  code  indicating  whether  or  not  the 
results  of  the  subroutine  are  to  be  printed 
out.   A  zero  punched  in  column  23   indicates 
the  output  will  not  be  printed.   If  any  other 
number  is  punched  in  column  23,  the  output 
will  be  printed. 

Blank 

The  code  indicating  if  there  is  another 
data  set  following  this  one.   A  zero  punched 
in  column  25  indicates  this  is  the  last  set 
of  data.   Any  other  diqit  punched  in  column  25 
indicates  another  set  of  data  follows  this  one. 


Blank 

Number  of  people  in  the  total  population 
Blank 


ONECN       297 


1-10 
11-20 

• 

61-70 
71-80 

1-10 
11-20 
21-80 


P5       (Population  in  aqe  group  0-4 
I 

(Population  in  aqe  qroup  5-9 
I 
I 
I 

(Population  in  aqe  qroup  30-34 
I 
|  Blank 

I 
I 
(Population  in  aqe  qroup  35-39 

I 

(Population  in  aqe  qroup  40-44 

I 
(Blank 


Cards  4  and  5  read  in  the  population  aqed  0-44  in  5-year  aqe  qroups. 
Ten  columns  are  reserved  for  each  value.   The  values  should  be  entered 
endinq  in  columns  10,20,30,40,50,60,70. 

IV.  SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  beqin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  arqument  strinq  enclosed  in 
parentheses.   This  subroutine  beqins  as  follows: 

SUBROUTINE  ONECN (P5, T P5, NSEX, NREG, RNG, INT,  NT, RNG 1 ,  NWRIT, 
*CDML?,CBR,CBEAM,CDRAM) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


P5 


How  Obtained  Definition 


TP5 


NSEX 


NBEG 


RNG 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


The  population  aqed  0-44  in  5-year 
aqe  qroups.   All  values  of  P5  must  be 
qreater  than  zero.   If  any  value  of  P5 
is  not  qreater  than  zero  the  subroutine 
will  write  out  error  messaqe  number  0851 
and  return  to  the  callinq  proqram.   The 
percentaqe  of  the  population  under  aqe  5 
(P5(1)/TP5)  must  be  qreater  than  5*.   If 
it  is  not,  the  subroutine  will  write  out 
error  messaqe  number  0852  and  return  to 
the  callinq  proqram.   The  percentaqe  of 
the  population  under  aqe  45  (l' P5  (I) /TP5) 
must  be  qreater  than  45X.   If  it  is  not,  the 
subroutine  will  write  out  error  message 
number  0853  and  return  to  the  callinq  proqram. 

Number  of  people  in  the  total  population. 

The  sex  of  the  population.    NSEX=1  indicates 
males  and  NSEX=2  indicates  females.   If  NSEX 
equals  any  other  number,  the  subroutine  will 
pLint  out  error  messaqe  number  0855  and  return 
to  the  callinq  proqram. 

The  Coale-Demeny  reqion  being  used.   NREG=1, 
2,3,4  indicates  respectively  the  west,  north, 
east  and  south  regions  of  the  Coale-Demeny 
model  life  table  system.   If  NREG  equals  any 
other  number,  the  subroutine  will  print  out 
error  message  number  0856  and  return  to  the 
calling  program. 

The  rate  of  natural  increase  of  the  population. 
For  guasi-stable  estimation,  this  should  be 
the  rate  of  natural  increase  during  the  last 
intercensal  period.   The  value  of  RNG  must  be 
within  the  range  -0.01  to  0.05.   If  RNG  is  not 
within  this  range,  the  subroutine  will  print 
out  error  message  number  0854  and  return  to 
the  calling  program. 
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INT 


NT 


RNG1 


NBBIT 


CDBLT 


CBRM 


CBRAM 


CDRAM 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 


Transferred  Out 


Transferred  Out 


Transferred  Out 


The  number  of  y 
censuses.  If  q 
beinq  performed 
quasi-stable  es 
for  a  5- year  or 
respectively, 
the  subroutine 
number  0857  and 

The  number  of  y 
clininq.  NT  mu 
it  is  not,  the 
error  messaqe  n 
calling  program 
or  equal  to  40 
subroutine  will 
ber  0858  and  re 


ears  between  the  last  two 
uasi-stable  estimation  is  not 
,  INT  must  equal  zero.   For 
timation  INT  must  equal  5  or  10 

10- year  intercensal  period 
If  INT  equals  any  other  number, 
vill  print  out  error  messaqe 

return  to  the  calling  proqram. 

ears  mortality  has  been  de- 
st  be  a  multiple  of  5.   If 
subroutine  will  print  out 
umber  0859  and  return  to  the 
NT  must  also  be  less  than 
years.   If  it  is  not,  the 

print  out  error  messaqe  num- 
turn  to  the  calling  program. 


The  rate  of  natural  increase  before  the 
mortality  decline  began.  This  value  is 
needed  only  for  quasi-stable  estimates. 
The  value  of  RNG1  must  be  between  -0.01 
and  0.05.  If  it  is  not,  the  subroutine  will 
print eiat  error  message  number  0860  and  re- 
turn to  the  calling  program. 

The  code  indicating  whether  the  results  of 
the  subroutine  are  to  be  printed  out.   If 
NWRIT=0,  the  results  will  not  be  printed 
out.   If  NNRIT  eguals  any  other  number, 
the  results  will  be  printed  out. 

The  Coale-Demeny  Regional  Model  Life  Table 
given  as  output.   For  a  detailed  description 
of  this  array,  see  the  description  of  the 
argument  XLT  in  subroutine  GLT.   The  life 
table  will  correspond  to  the  median  of  the 
nine  stable  populations  calculated  (see 
section  II. A).   For  quasi-stable  estimation, 
the  life  table  will  be  consistent  with  the 
quasi-stable  parameters. 

The  crude  birth  rate  corresponding  to  the 
median  stable  population. 

The  crude  birth  rate  corresponding  to  the 
median  stable  population  after  the  adjust- 
ment for  the  effect  of  the  mortality  decline. 
The  crude  birth  rate  corresponds  to  the  end 
of  the  intercensal  period. 

The  crude  death  rate  corresponding  to  the 
median  stable  population  after  the  adjust- 
ment for  the  effect  of  the  mortality  decline. 
The  crude  death  rate  corresponds  to  the  end 
of  the  intercensal  period. 


C.   ERROR  MESSAGES 


0851 

*** 

*** 

0852 

*** 

*** 

0853 

*** 

*** 

0854 

*** 

*** 

0855 

*** 

*** 

0856 

*** 

*** 

ONECN  ERROR  NO.  0851  INP0T  ERROR  IN  P5 

ALL  FIVE-YEAR  AGE  GROUPS  HOST  BE  GREATER  THAN  ZERO 

ONECN  ERROR  NO.  0852 INPOT  ERROR  IN  P5(1) 

PERCENT  OF  P0P0LATI0N  0NDER  AGE  5  MOST  BE  GREATER  THAN  5% 

ONECN  ERROR  NO.  0853  INPOT  ERROR  IN  P5 

PERCENT  OF  POPULATION  UNDER  AGE  45  MUST  BE  GREATER  THAN  45X 

ONECN  ERROR  NO.  0854  - —  INPOT  ERROR  IN  RNG 

RATE  OF  NATURAL  INCREASE  MUST  BE  IITHIN  RANGE  -0.01  TO  0.05. 

ONECN  ERROR  NO.  0855  INPUT  ERROR  IN  NSEX 

SEX  CODE  MUST  EQUAL  1  OR  2. 

ONECN  ERROR  NO.  0856  INPUT  ERROR  IN  NREG 

CODE  INDICATING  THE  COALE-DEMENY  REGION  BUST  EQUAL  1,2, 3, OR  4. 


ONECN        299 


0857  ***    ONECN    ERROR    NO.    0857    INPUT    ERROR    IN    INT 

***    THE   INTERCENSAL    PERIOD   MOST    BE    0,5,    OR    10    YEARS. 

0858  ***    ONECN    ERROR    NO.    0858    INPUT    ERROR    IN    NT 

***    THE    NUMBER    OF    YEARS    MORTALITY    HAS    BEEN    DECLINING    MUST    BE 
BETWEEN    5   YEARS    AND   40    YEARS. 

0859  ***    ONECN    ERROR    NO.     0859    INPUT    IN    NT 

***    THE    NUMBER    OF    YEARS    MORTALITY    HAS    BEEN    DECLINING    MUST    BE 
A    MULTIPLE   OF   5. 

0860  ***   ONECN    ERROR    NO.    0860    INPUT   ERROR    IN    RNG1 

***    RATE    OF    NATURAL    INCREASE    IS    NOT    WITHIN   RANGE   -0.01    TO    0.05 

V.       PROGRAM      AND      RESULTS 

A.       COMPUTER    LISTING    FOR    MAIN    PROGRAM 


c 

c 

c HAIN  PROGRAM  FOR  SUBROUTINE   ONECN 

c 

c 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  BY  FOUR 

C READ  STAIEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS, 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

C TO  BE  USED  TO  IDENTIFY  THE  OUTPUT.   THIS  LABEL  MOULD  USUALLY 

C CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

C ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

C THE  TYPE  OF  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 

c ih  COLUMNS  2-53  OF  THE  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  (1)  THE 

C CODE  INDICATING  THE  SEX  OF  THE  POPULATION  (NSEX) ,  (2)  THE  CODE 

C INDICATING  THE  COALE-DEMENY  REGION  BEING  USED  (NREG) ,  (3)  THE 

C RATE  OF  NATURAL  INCREASE  (RNG)  OF  THE  POPULATION  DURING  THE  LAST 

C INTERCENSAL  PERIOD,  (4)  THE  NUMBER  OF  YEARS  BETWEEN  THE  LAST  TWO 

C CENSUSES  (INT) ,  (5)  THE  NUMBER  OF  YEARS  MORTALITY  HAS  BEEN 

C DECLINING  (NT),  (6)  THE  RATE  OF  NATURAL  INCREASE  (RNG1)  OF  THE 

C POPULATION  BEFORE  THE  MORTALITY  DECLINE  BEGAN,  (7)  THE  CODE 

C INDICATING  WHETHER  OR  NOT  THE  RESULTS  OF  THE  SUBROUTINE  ARE  TO  BE 

C PRINTED  (NWRIT),  AND  (8)  THE  CODE  INDICATING  IF  THERE  IS  ANOTHER 

C DATA  SET  FOLLOWING  THIS  ONE  (NXT) . 

C NSEX   IS  LOCATED  IN  COLUMN  1.   A  1  PUNCHED  IN  COLUMN  1  INDICATES 

C A  MALE  POPULATION.   A  2  PUNCHED  IN  COLUMN  1  INDICATES 

C A  FEMALE  POPULATION. 

C NREG   IS  LOCATED  IN  COLUMN  3.   A  1  PUNCHED  IN  COLUMN  3  INDICATES 

C WEST  REGION,  A  2  INDICATES  NORTH  REGION,  A  3  INDICATES  EAST 

C REGION  AND  A  4  INDICATES  SOUTH  REGION. 

C RNG   IS  LOCATED  IN  COLUMNS  5-9  WITH  THE  DECIMAL  POINT  IN  COLUMN  5. 

C INT   IS  LOCATED  IN  COLUMNS  11-12,  ENDING  IN  COLUMN  12. 

C NT   IS  LOCATED  IN  COLUMNS  14-15,  ENDING  IN  COLUMN  15. 

C RNG1   IS  LOCATED  IN  COLUMNS  17-21  WITH  THE  DECIMAL  POINT  IN 

C COLUMN  17. 

C NWRIT   IS  LOCATED  IN  COLUMN  23.    A  ZERO  PUNCHED  IN  COLUMN  23  INDICATES 

c THE  OUTPUT  WILL  NOT  BE  PRINTED.   IF  ANY  OTHER  NUMBER  IS  PUNCHED 

C IN  COLUMN  23,  THE  OUTPUT  WILL  BE  PRINTED. 

C NXT   IS  LOCATED  IN  COLUMN  25.   A  ZERO  PUNCHED  IN  COLUMN  25  INDICATES 

c THIS  Is  THE  L&ST  SET  0F  datA.   IF  ANY  OTHER  NUMBER  IS  PUNCHED 

c IN  COLUMN  25,  ANOTHER  SET  OF  DATA  FOLLOWS  THIS  ONE. 

C 

C THE  THIRD  READ  STATEMENT  USES  ONE  CARD. 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  NUMBER 

C OF  PEOPLE  IN  THE  TOTAL  POPULATION  (TP5) . 

C TP5   IS  LOCATED  IN  COLUMNS  1-12,  ENDING  IN  COLUMN  12. 

C 
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C THE    FOURTH    READ    STATEMENT    OSES    TWO    DATA    CARDS. 

C THE    PURPOSE   OF    THE   FOUHTH    READ   STATEMENT    IS    TO    READ   IN   THE    POPD- 

C LATION    IN    FIVE    YEAR   AGE    GROUPS     (P5) . 

C p5       is    CONTAINED    ON    TWO    CARDS.       SEVEN    VALUES    SHOULD    BE   ENTERED    ON 

c THE    FIRST   CARD,    ENDING    IN    COLUMNS    10,    20,    30,    40.    50,    60, 

C AND    70.       TWO    VALUES    SHOULD   BE    ENTERED   ON   THE    SECOND    CARD, 

C ENDING    IN   COLUMNS    10    AND    20. 

c 

c 

DIMENSION  P5{9),  CDMLT(18,8) 
NREAD=  1 
NPRNT=  15 

1  READ     (NREAD,2) 

2  FORMAT(1X,40H  ) 
READ     (NREAD.5)     NSEX, NREG,RNG , INT, NT, RNG1 , NWRIT.NXT 

5  FORMAT     (I1,1X,I1,1X,F5.4,2(1X,I2),1X,F5.4, 1X,I1,1X,I1) 
READ(NREAD,6)     TP5 

6  FORMAT  (F12. 0) 
READ(NREAD,3)      (P5  (I)  ,1=1  ,9) 

3  FORMAT(7F10,  0/2F10.0) 
WRITE     (NPRNT,4) 

4  FORMAT(1H1) 
WRITE    (NFRNT,2) 

CALL    ONECN     (P5 ,TP5,NSEX, NREG ,RNG ,INT, NT, RNG1, NWRIT,CDMLT,CBR ,CBR A, 
*CDRA) 
IF     (NXT)     1000,1000,1 
1000    STOP 
END 


B.       COMPUTER    LISTING    FOR    SUBROUTINE 

c — 

c 

SUBROUTINE  ONECN  (P5,TP5, NSEX, NREG, RNG, INT, NT, RNG 1.NWRIT, 
♦CDMLT, CBRM, CBRAM, CDRAM) 
c ,__ 

C PROGRAM  NO.  0850 

c 

C THE   INPUT    ARGUMENTS    TO    THIS    SUBROUTINE   ARE      P5,    TP5,    NSEX,    NREG, 

C INT,    NT,     RNG1,    AND    NWRIT. 

c THE    OUTPUT    ARGUMENTS    FROM    THIS    SUBROUTINE    ARE      CDMLT,    CBRM,    CBRAM, 

C AND    CDRAM. 

c P5   IS  THE  POPULATION  AGED  0  -  45  IN  FIVE  YEAR  AGE  GROUP. 

c TP5   IS  THE  NUMBER  OF  PEOPLE  IN  THE  TOTAL  POPULATION. 

C NSEX   IS  THE  CODE  INDICATING  THE  SEX  OF  THE  POPULATION. 

C NREG   IS  THE  CODE  INDICATING  THE  COALE-DEMENY  REGION  BEING  USED. 

C RNG   IS  THE  RATE  OF  NATURAL  INCREASE  OF  THE  POPULATION  DUBING  THE 

C LAST  INTERCENSAL  PERIOD. 

C INT   IS  THE  NUMBER  OF  YEARS  BETWEEN  THE  LAST  TWO  CENSUSES. 

C-- NT   IS  THE  NUMBER  OF  YEARS  MORTALITY  HAS  BEEN  DECLINING. 

C RNG1   IS  THE  RATE  OF  NATURAL  INCREASE  OF  THE  POPULATION  BEFORE  THE 

C MORTALITY  DECLINE  BEGAN. 

C NWRIT   IS  THE  PRINT  OPTION.   IF   NWRIT  =  0,  THE  OUTPUT  WILL  NOT  BE 

c PRINTED.   IF   NWRIT   EQUALS  ANY  OTHER  NUMBER,  THE  OUTPUT 

C WILL  BE  PRINTED. 

C CDMLT   IS  THE  COALE-DEMENY  REGIONAL  MODEL  LIFE  TABLE  GIVEN  AS 

C OUTPUT. 

C CBRM   IS  THE  CRUDE  BIRTH  RATE  CORRESPONDING  TO  THE  MEDIAN  STABLE 

c POPULATION.   CBRM   IS  GIVEN  AS  OUTPUT. 

c CBRAM   IS  THE  CRUDE  BIRTH  RATE  CORRESPONDING  TO  THE  MEDIAN  STABLE 

c POPULATION  AFTER  THE  ADJUSTMENT  FOR  THE  EFFECT  OF  DECLINING 

c MORTALITY.   CBEAM   IS  GIVEN  AS  OUTPUT. 

C CDRAM   IS  THE  CRUDE  DEATH  RATE  CORRESPONDING  TO  THE  MEDIAN  STABLE 

c POPULATION  AFTER  THE  ADJUSTMENT  FOR  THE  EFFECT  OF  DECLINING 

C MORTALITY.  CDRAM  IS  GIVEN  AS  OUTPUT. 

c 

c 

DIMENSION  P5(9)  ,  CDMLT  (18,8)  ,B(101)  ,SA(49) 

DIMENSION  PCUM(9),NAGE(2,9)  ,SP(18)  ,SPC(18)  ,SPM(13)  ,S  (49)  , 
*  EOX(101)  ,CDRX(9)  ,CDRA(9)  ,CBRX(9)  ,CBRA(9)  ,GRRX(9,4)  ,GRRA(9) 
EQUIVALENCE  (S  (1 )  ,  SP  (  1)  )  ,  (S  {  19)  ,SPC(1))  ,  (S(37)  ,SPM(1)) 
NPRNT=  15 
MFLAG  =  0 
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NERR=  0 

DO  5  1=1,9 

IP  (P5  (I)  -  1.  0)  b,5,5 

5  CONTINUE 
GO  TO  30 

6  DO  10  J=I,9 

IF  (ABS(F5(J))  -  0.00001)  10,10,20 
10  CONTINUE 
GO  TO  30 
20  WRITE  (NPRNT,111) 
111  FORMAT (//46H  ***  ONECN  ERROR  NO.  0851  --  INPUT  ERROR  IN  P5, 
*/,55H  ***  ALL  FIVE  YEAR  AGE  GROUPS  MOST  BE  GREATER  THAN  ZERO) 
NERR=  1 

30  TOT=0.0 

DO  31  1=1,9 

31  TOT=TOT+P5(I) 
TOTP=TOT/TP5 
Z4P=P5(1)  /TP5 

IF  (Z4P-.05)  40,45,45 
40  WRITE(NPRNT, 222) 

222  FORMAT (//49H  ***  ONECN  ERROR  NO.  0852  —  INPUT  ERROR  IN 

*  /,62H  ***  PERCENT  OF  POPULATION  UNDER  AGE  5  MUST 

*  THAN  5%) 
NERR=1 

45  CONTINUE 
IF  (TOTP-0.45)  46,46,50 

46  WRITE  (NPRNT,223) 

223  FORMAT(//46H  ***  ONECN  ERROR  NO.  0853  —  INPUT  ERROR  IN 

*  /,64H  ***  PERCENT  OF  POPULATION  UNDER  AGE  45  MUST  BE 
*HAN  45X) 

NERR=1 
50  CONTINUE 

IF  (PNG  +  0. 01)  60,55,55 
55  CONTINUE 

IF  (RNG  -  0. 05)  70,70,60 
60  WRITE  (NPENT,333) 
333  FORMAT (//47H  ***  ONECN  ERROR  NO.  0854  —  INPUT  ERROR  IN  RNG, 

*  /,66H  ***  RATE  OF  NATURAL  INCREASE  MUST  BE  WITHIN  RANGE 
*1  TO   0.0  5) 

NEKR=  1 
70  CONTINUE 

IF  (NSEX  -  1)  150,160,75 
75  CONTINUE 

IF  (NSEX  -  2)  160,160,150 
150  WRITE  (NPRNT,777) 

777  FORMAT (//48H  ***  ONECN  ERROR  NO.  0855  —  INPUT  ERROR  IN  NSEX, 
*/,34H  ***  SEX  CODE  MUST  EQUAL   1   OR   2) 

NERR=  1 
160  CONTINUE 

IF  (NREG  -  1)  170,800,165 
165  CONTINUE 

IF  (NREG  -  4)  8  00,800,170 
170  WRITE  (NPF.NT,888) 
888  FORMAT  (//48H  ***  ONECN  ERROR  NO.  0856  —  INPUT  ERROR  IN 

*  /,69H  ***  CODE  INDICATING  THE  COALE-DEMENY  REGION 

*  1,  2,  3,  OR  4) 
NERR=  1 

800  CONTINUE 

IF  (INT)  810,120,810 
810  CONTINUE 

IF  (INT-5)  820,100,820 
820  CONTINUE 

IF  (INT-10)   80,100,  80 
80  WRITE  (NPRN?,444) 
444  FORMAT (//47H  ***  ONECN  ERROR  NO.  0857  —  INPUT  ERROR  IN  INT, 
*/,53H  ***  THE  INTESCENSAL  PERIOD  MUST  BE  0,  5,  OR  10  YEARS) 

NERR  =  1 
100  CONTINUE 

IF  (NT  -  5)  110,105,102 
102  CONTINUE 

IF  (NT  -  40)  105,105,  110 
110  WRITE  (NPRNT,555) 


P5(1), 

BE  GREATER 


P5, 
GREATER  T 


-0.0 


NREG, 

MUST  EQUAL 
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555  FORMAT <//46H  ***  ONECN  ERROR  NO.  0858  —  INPUT  ERROR  IN  NT, 

*  /, 91 H  ***  THE  NUMBER  OF  YEARS  MORTALITY  HAS  BEEN  DECLINING  BUS 
*T  BE  BETWEEN  5  YEARS  AND  40  YEARS.) 

NERR  =  1 
105  CONTINUE 

IF  (MOD(NT,5))  112,120,112 
112  WRITE  (NPRNT,5555) 
5555  FORMAT(//46H  ***  ONECN  ERROR  NO.  0859  —  INPUT  ERROR  IN  NT, 

*  /,77H  ***  THE  NUMBER  OF  YEARS  MORTALITY  HAS  BEEN  DECLINING  MUS 
*T  BE  A  MULTIPLE  OF  5) 

NEBR  =  1 
120  CONTINUE 

IF  (RNG1  +  0.01)  130,140,125 
125  CONTINUE 

IF  (P.NG1  -  0.05)  140,140,130 
130  WRITE  (NPRNT,666) 
666  FORMAT <//48H  ***  ONECN  ERROR  NO.  0860  --  INPUT  ERROR  IN  RNG1, 

*  /,65H  ***  RATE  OF  NATURAL  INCREASE  IS  NOT  WITHIN  RANGE   -0.01   T 
*0  0.05) 

NERR  =  1 
140  CONTINUE 

IF  (NERR)  180,210,180 
C 
c 

C PRINTING  OF  INPUT  BECAUSE  OF  AN  ERROR  MESSAGE 

c 

C 

180  WRITE  (NPRNT,999)P5,TP5,NSEX,NREG,RNG,INT,NT,RNG1,NWRIT 
999  FORMAT  (//27H      ONECN  INPUT  ARGUMENTS, 

*  /  9H  P5=  ,7F15.3/9X,2F15.  3 

*  /10H  TP5=  ,F20.3 

*  /11H  NS£X=  ,16 

*  /11H  NREG=  ,16 

*  /10H  RNG=  ,F8.3 

*  /10H  INT=  ,16 

*  /  9H  NT=  ,16 

*  /11H  RNG1=  ,F8.3 

*  /12H  NWRIT=  ,  16  ) 
C 

c 

C ZERO  OUTPUT  AND  RETURN  IF  ERROR  MESSAGE 

c . 

C 

IF  (NERR)  190,210,190 
190  DO  200  1=1,18 

DO  200  J=1,8 
200  CDMLT(I,J)=  0.0 

CBRM=  0.0 

CBRAM=  0.0 

GO  TO  1000 
C 

C 

C PREPARE  AGE  LABELS 

c 

c 

210  J=  -5 

DO  220  1=1,9 

J=  J+5 

NAGE(1,I)=  J 
220  NAGE  (2,1) =  J+4 

CBRA(9)=  0.0 

GRRA{9)=  0.0 

CDRA(9)=  0.0 
C 
c 

C CALCULATE  CUMULATIVE  PROPORTION  IN  AGE 

c 

c 


PCUM(1)  =P5(1)/TP5 
DO  230  1=2,9 
230  PCUM  (I)=PCUM  (1-1)+  (P5  (D/TP5) 
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C 

c 

c GENERATE  CORRESPONDING  STABLE  POPULATION  AND  STORE  PARAMETERS 

c 

c 

DO  240  1=1,9 

CALL  INTSP  (1+19, PCUM  (I)  ,RNG, NSEX,NREG,CDMLT,S) 
E0X(I)=  CDMLT(1,8) 
CBRX(I)=  SPM(1) 
CDRX(I)  =  SPM(2) 
DO  240  J=1,4 
240  GRRX(I,J)=  SPM(J+9) 

C 

c 

C PERFORM    QUASI-STABLE    ADJUSTMENTS    IF    INDICATED 

c 

C 

IF  (INT-0)  250,260,250 

250  CALL  ADJBG  (RNG,INT, NT,  RNG1 , CBRX, GRRX (1 , 2) , CBRA,GRRA,CDRA) 

C 

c 

C DETEPMINE  AGE  GROUP  ASSOCIATED  KITH  MEDIAN  LIFE  EXPECTANCY 

c 

C 

260  CALL  HDRNS(E0X,9,B,E0) 
DO  261  M=1,9 

IF  (ABS(E0X(M)  -E0)  -  .001)  266,266,261 

261  CONTINUE 

266  CBRM=  CBRX(M) 

IF  (INT)  252,251,252 

251  CBRAM=0. 0 
CDRAM=0.0 
GO  TO  264 

252  CONTINUE 

IF  (M  -  9)  262,263,263 

263  MFLAG  =  1 
CBRAM=0.0 
CDRAM=0.  0 
GO  TO  264 

262  CBRAH=  CBRA(M) 
CDRAM  =  CDRA(H) 

R  =  CBRAM  -  CDRAM 

264  CALL  INTSP (37, CBRH,RNG, NSEX, NREG,CDMLT,S) 
C 

c 

C PRINTING  OF  OUTPUT 

c 

C 

IF  (NWRIT)  950,950,265 

265  CONTINUE 

IF    (INT-0)    270,280,270 
270   WRITE     (NPRNT,1111)     (  (NAGE(J,  I)  ,  J=1  ,2)  ,P5  (I)  ,PCUM  (I)  ,E0X  (I)  ,CBRX  (I) 
*,CDRX  (I)  ,  (GRRX  (I, J)  ,J=1,4)  ,CBRA(I)  ,CDRA(I)  ,GRRA(I)  ,I=1,9),TP5 
1111    FORMAT    (//12X,     99HORIGINAL         CUMULATIVE         E (0)  CBR  CDR 

*   GRR    QUASI-STABLE    ESTIMATES/1 1X,22HPOPULAT 

♦ION      PROPORTION, 27X,50H  (27)  (29)  (31)  (33)  CBR      CDR 

*GRR(29)    /9 (/3X,I2, 1H-,I2, F12.0,F10. 4,F10. 2, 2F8. 4, 1X, 4F7.3,2X,2F8. 4 
*,F8.3),    //   8H         TOTAL,    F12.0) 

GO   TO    290 
280   WRITE    (NPRNT,2222)      (  (NAGE  (J, I)  ,  J=1  ,2)  ,P5  (I)  ,PCUM  (I)  ,  EOX  (I)  , 

*  CBRX  (I)  ,CDRX(I)  ,  (GRRX(I,J)  ,  J=1,4)  ,1=1,9)  ,TP5 

2222  FORMAT  (//12X,72HORIGINAL    CUMULATIVE    E(0)     CBR      CDR 

* GRR /11X,22HP0PULATI0N   PROPORTION, 27X,25H (27) 

*  (29)    (31)     (33)/9(/3X,I2,lH-,I2,F12.0,F10.4,F10.2,2F8.4,lX, 
♦4F7.3)  //  8H    TOTAL,  F12.0  ) 

290  WRITE  (NPRNT,3333) 
3333  FORMAT  (//31H  COALB-DEMENY  STABLE  POPULATION 

*/50H  CORRESPONDING  TO  MEDIAN  LIFE  EXPECTANCY  AT  BIRTH,/) 
CALL  PSPP  (NREG,RNG,SP,SPC,SPM,NSEX,EO) 
IF  (INT-0)  300,400,300 
400  WRITE (NPRNT, 4444) 
4444  FORMAT (1H1,//,38H  COALE-DEMENY  LIFE  TABLE  CORRESPONDING,/, 
*35H  TO  MEDIAN  LIFE  EXPECTANCY  AT  BIRTH,//) 
CALL  PLT  (CDBLT,NSEX,NREG) 
GO  TO  1000 
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300  WRITE  (NPRNT, 3334) 

333a    FORMAT(//,71H    MEDIAN    QUASI-STABLE  POPULATION    PARAMETERS    AT    END   OF 
♦INTERCENSAL    PERIOD,/) 
IF    (MFLAG)     301,302,301 

301  WRITE  (NPRNT,3335) 

3335  FORMAT (37H  NO  QUASI-STABLE  ADJUSTMENT  AVAILABLE, /,36H  FOR  MEDIAN  L 
*IFE  EXPECTANCY  AT  BIRTH) 

GO  TO  1000 

302  CALL  INTSP(37,CB£AM,R,NSEX,NREG,CDMLT,SA) 
1SITE(NPF.NT,  334)  R,CBRAM  ,CDRAM,CDMLT  (1 ,  8) 

334  FORMAT  (28H  QUASI-STABLE  GROWTH  RATE  =  ,F7.4,/, 

*27H  QUASI-STABLE  BIRTH  RATE  =  ,F7.4,/, 

*27H  QUASI-STABLE  DEATH  RATE  =  ,F7.4,/, 

*28H  LIFE  EXPECTANCY  AT  BIRTH  =  ,F6.2) 
305  WRITE(NPRNT,3336) 

3336  FORMAT (//,70H  COALE-DEMENY  MODEL  LIFE  TABLE  CORRESPONDING  TO  QUASI 
♦-STABLE  ESTIMATES,//) 

CALL  PLT  (CDMLT,NSEX,NEE3) 

GO  TO  1000 
950  CONTINUE 

IF  (MFLAG)  960,980,960 
980  CONTINUE 

IF  (INT)  990,1000,990 
990  CALL  INTSP(37,CBRAM,R,NSEX,NREG,CDMLT,SA) 
960  WRITE  (NPRNT,970) 

970  FORMAT (//,5bH  ***  ONECN  WARNING  --  NO  QUASI-STABLE  ADJUSTMENT  AVAI 
♦LABLE,/, 36H  FOR  MEDIAN  LIFE  EXPECTANCY  AT  BIRTH,//) 
1000  RETURN 

END 
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I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To  print  out  the  results  of  the  BEERS  subroutine.   This  subroutine  is  used 
only  in  connection  with  BEERS.   It  is  advisable  to  read  the  documentation  for 
the  BEERS  subroutine  for  a  better  understanding  of  PBEER. 

B.  DATA  NEEDED 

1.  The  qrouped  data  that  was  separated  into  five  parts. 

2.  The  number  of  groups  that  were  subdivided  plus  one. 

3.  The  values  resultinq  from  separating  the  qrouped 
data  into  five  parts. 

4.  The  number  of  subqroups  obtained  from  the  qrouped 
data  plus  one. 

5.  The  year  pertaininq  to  the  loner  bound  of  the  first 
qrouped  data  to  be  subdivided. 

II.  METHODOLOGY 

This  is  a  print  subroutine.   It  prints  out  the  informatioi  supplied  to  it. 

III.  MAIN   PROGRAM 

A.   REQUIREMENTS 

The  main  proqram  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
proqram  can  use  a  subroutine  alone  or  in  conjunction  with  othar  subroutines. 
For  a  detailed  explanation  of  writinq  main  proqrams  usinq  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  proqram  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  proqram  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  proqram.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  PBEER (P, NP5, N P1 , P1  , IVAL) 


For  the  purpose  of  emphasizinq  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  sinqle-valued  or  refer  to  a 
qroup  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  nain  proqram. 

For  this  subroutine  variable  names  F,  P  and  ASFR  in  the  argument  string  are 
all  arrays.   The  following  DIMENSION  Statement  must  be  included  in  any  main  pro- 
gram usinq  this  subroutine. 

DIMENSION  P(99) ,P1 (491) 
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B.  OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  HITH  THE  PHOGRAH, 
See  BEERS 

C.  FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  HAIN  PROGRAM  GIVEN  IB 
SECTION  V.A. 

See  BEEFS 

IV.  SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  beqin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  strinq  enclosed  in 
parentheses.   This  subroutine  beqins  as  follows: 

SUBROUTINE  PBEER (P,NP5,NP1,P1,IVAL) 

B.  DESCRIPTION  OF  ARGUMENTS 
Name   How  Obtained    Definition 


NP5 


NP1 


P1 


IVAL 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Input  data  in  qroups  that  were  to  be  separated 
by  BEERS  into  five  parts. 

Number  of  qroups  that  were  to  be  subdivided 
by  BEERS  plus  one.   For  instance,  if  16 
5-year  aqe  qroups  were  separated  into 
sinqle  aqes,  this  arqument  should  be  17. 

Nunber  of  subqroups  obtained  from  sub- 
dividinq  the  qrouped  data  plus  one.   For 
instance,  in  a  population  distribution  of 
5-year  aqe  qroups  from  aqe  0  to  aqe  69  with 
an  open-ended  qroup  70+,  NP1  will  be  71. 
In  qeneral  NP1=5  x  NP5-4. 

Results  of  separatinq  the  qrouped  data 
into  five  parts  -  there  are  NP1-1 
resultant  subqroups  plus  the  last  NP1 
value  which  is  the  open-ended  qroup  and 
which  also  is  the  same  as  the  last  value 
in  the  P  array. 

The  year  pertaininq  to  the  lower  bound 
of  the  first  qrouped  data  to  be  separated 
into  five  parts.   For  instance,  in  a 
population  distribution  of  5-year  aqe  qroups 
from  aqe  0  to  aqe  69  with  an  open-ended 
qroup  70+,  IVAL  will  equal  0. 


C.   ERROR  MESSAGES 


None 
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V.       PROGRAM       AND       RESULTS 

A.  COBPOTER    LISTING    FOR    BAIN    PSOGRAB 
See    BEERS 

B.  COBPUIER    LISTING    FOR    SUBROUTINE 

c 

c _ 

SUBROUTINE  PBEER  (P,NP5,NP1 , P1 ,IV AL) 
c 

C PROGRAB  NO.  0880 

c 

C THE  INPUT  ARGUBENTS  TO  THIS  SUBROUTINE  ARE   P,  NP5,  NP1,  P1,  AND 

C --IVAL. 

C P   IS  THE  GROUPED  DATA  THAT  HAS  SEPARATED  INTO  FIVE  PARTS. 

C NP5   IS  THE  NUBBKR  OF  GROUPS  IN   P. 

C NP1   IS  THE  NUHBER  OF  GROUPS  IN   P1. 

c pi   is  THE  OUTPUT  OF  SUBGROUPS. 

C IVAL   IS  THE  YOUNGEST  SINGLE  YEAR  OF  AGE  OF  THE  DISTRIBUTION  TO  BE 

C SPLIT  UP. 


DIBENSION  P(99),  P1(491> 
NPRNT=15 


C VERIFY  NP5  AND  NP1  INPUT  VALUES 

c 

C 

IF  (NP5  -  99)  4,4,160 

4  CONTINUE 

IF  (NP1  -  491)  5,5,160 

5  WRITE  (NPRNT, 90) 

C 

c 

C PRINTING  OF   P   VALUES 


DO  30  1=1, NP5 

NAGE=IVAL+5* (1-1) 

LAGE=NAGE*4 

IF  (I-NP5)  10,20,20 
10  WRITE  (NPRNT,  100)  NAGE,LAGE,  P  (I) 

GO  TO  30 
20  WRITE(NPRNT,110)   NAGE,  P(I) 
30  CONTINUE 


-PRINTING  OF   P1   VALUES 


IRITE(NPRNT,  120) 

N=NP1/4*1 

N1=N 

DO  80  1=1, N 

N1=N1+1 

N2=N1+N 

N3=N2+N 

IAGE1  =  IVAL  ♦  I  -  1 

IAGE2  =  IVAL  +  N1  -  1 

IAGE3  =  IVAL  ♦  N2  -  1 

IAGE4  =  IVAL  ♦  N3  -  1 

IF  (N3-NP1)  50,60,70 
50  WRITE  (NPRNT, 130)   IAGE1, Pi  (I) ,IAGE2,P 1 (N1 )  ,IAGE3,P1 (N2) 
*,IAGE4,P1 (N3) 

GO  TO  80 
60  WRITE  (NPRNT,  140)  IAGE1,P1  (I)  ,IA3E2,P1  (N1)  ,IAGE3,P1  (N2) 
*,IAGE4,P1  (N3) 

GO  TO  80 
70  WRITE(NPSNT,  130)   IAGE1 , P1  (I)  , IAGE2 ,P 1  (N 1 ) , IAGE3, P 1  (N2) 
8  0  CONTINUE 

GO  TO  180 
90  FOBSAT  (////, SOX, 20BGROOPED  DATA  (INPUT),//) 
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100    FORMA1(47X,I4,1H-,I4,8X,F10.0) 

110    FORMAT (49X,I4,1H+,10X,F10.0) 

120    FORMAT(///,33X,60HGROUPED    DATA    AFTER    DIVISION    INTO    FIFTHS    BY    BEERS 
*    MULTIPLIERS,//) 

130    FORMAT(11X,4(I4,4X,F8.0,9X)  ) 

14  0    F0RMAT(11X,3{I4,4X,F8. 0,9X) , 14, 1H>, 3Xr F8. 0) 

160  HRITE(NPRNT, 170)  NP1,NP5 

170  FORMAT  (  //,54H  ***  PBEER  ERROR  NO.  0881  —  INPUT  ERROR  IN  NP1  OR  N 
*P5,/,71H  ***  NP1  AND  NP5  MOST  BE  LESS  THAN  OR  EQUAL  TO  491  AND  99 
♦RESPECTIVELY,/, 11H  ***  NP1  =  ,I5,5X,7H  NP5  =  ,15) 

180  CONTINUE 
RETURN 
END 


C.  SAMPLE  DATA 
See  BEERS 

D.  SAMPLE  OUTPUT 
See  BEERS 
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I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To  determine  which  regional  pattern  of  survival  rates  in  the  Coale-Demeny 
regional  model  life  tables  has  the  smallest  difference  from  a  given  pattern 
of  survival  rates,  for  a  particular  sex. 

B.  DATA  NEEDED 

1.  An  indicator  that  determines  whether  the  subroutine 
should  write  out  the  results  of  its  calculations. 

2.  The  given  survival  rates  to  be  compared  with  the 
Coale-Demeny  Hodel  Life  Tables. 

3.  The  sex  to  which  the  survival  rates  pertain. 

4.  The  life  expectancy  at  birth  corresponding  to  the 
given  survival  rates. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  given  set  of  survival  rates  are  used  in  calculating  the  following  ratio 
of  the  survival  rates. 

RG  =^±2_ 
5  X     5Sx 


where 

5Sxis  the   survival  rate   of   age   x,x+5   surviving  to 

age   x+5,x+10. 

For  each  of  the  four  Coale-Demeny  Regions  the  life  table  is  generated  for 
the  sex  and  life  expectancy  at  birth  that  is  given.   Then  the  ratio  of  the 
survival  rates  for  the  region  are  calculated. 

For  the  West  region  the  ratios  of  the  survival  rates  would  be 

Sw 
RW  =  ^L_x±L_ 
5  x     „w 
5x 


where 


w 
S  is   the   survival  rate   of   age   x,x+5 


5  x 


surviving    to  age   x+5,x+10   from   the   Best 
Regional   Hodel  Life   Table. 


CRN    , CRS  .    and    CRE  are   calculated   in  the   same   manner 
5     x     5     x  5x 

for   the   north,   south    and   east  regions,    respectively. 
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The   differences   in   the  ratios   of   the  given   survival   rates  and   those   for 
eajch   of   the  model   life   table   regions    are  calculated   for   each  age   group. 
For   the   west   the   difference   in  the   ratios   would    be 


CRDW     =    RG     -   CRW 
5       x       5     x       5     x 


,-RDN  ,  ,:RDS„  ,  and  ,:RDE„  are  calculated  in  the 

J  X    J  X  J      X 

same  manner  for  the  north,  south  and  east  regions, 
respectively. 

The  averages  of  the  absolute  difference  in  the  ratios  are  then  calculated. 

The  average  of  the  absolute  differences  for  the  west  would  be 

w-5 


n-l   t*1, 


where 


RDMW  =  — *r-   7.   LRDW 
m"1  x^5   5   X 

m  is  the  number  of  survival  rates, 

w  is  the  lower  bound  of  the  last  survival  rate. 

RDMN,  RDMS  and  ROME  are  calculated  in  the  same 

manner  for  the  north,  south,  and  east  regions, 

respectively. 

Then,  the  minimum  value  of  the  average  of  absolute  differences, 
the  minimum  value  of  RDMW,  RDMN,  RDMS  and  RDME, yields  the  region  with 
the  survival  pattern  most  closely  resembling  the  pattern  of  the  given  set 
of  survival  rates. 

B.   COMMENTS 

This  subroutine  can  be  used  when  making  population  projections.   It 
determines  the  Coale-Demeny  Model  Regional  Life  Table  pattern  which  most 
closely  resembles  empirical  survival  rates.   Once  a  region  is  selected,  the 
empirical  or  given  survival  rates  can  be  adjusted  by  using  the  procedure 
explained  in  the  subroutine  MORDJ. 

III.  BAIN   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  reguired  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  PKREG (SURA , NWRIT,EO, NSEX, NREG ) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in 
the  above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to 
a  group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then 
the  variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
greater  than  the  variable  name  is  dimensioned  in  any  subroutine  called  by  the 
main  program. 
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For  this  subroutine  the  argument  with  the  variable  name  SDRA  is  an  array. 
The  following  dimension  statement  must  be  included  in  any  main  program  using 
this  subroutine. 

DIMENSION  S0RA(17) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  KITH  THE  PROG  RAH. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other 
subroutines  presented  in  this  publication  or  functions  included  in  the  FORTRAN 
library. 

1.  Subroutines  from  this  package 

a.  MLT 

b.  LIFIT 

c.  ABREV 

d.  ELT 

e.  GTCON 

2.  Library  functions 

1.  ABS  (absolute  value) 

2.  SQRT  (Square  Root) 


3.   Card  diagram  of  main  program  and  subroutines 


CARDS  INDICATING  END  OF  DECK    / 

/ 

INPUT  DATA  /| 


COMPUTER   CONTROL    CARDS  /|     | 

SUBROUTINE~GTCON~"                "          ~~/\     \     \    / 
/    III/ 


SUBROUTINE    ELT 


SUBROUTINE   ABREV 
"sUBROUTINE~LIFlf 


SUBROUTINE    MLT 


/III/ 

/    III/ 

/III/ 

/     I     I     I/ 

/III/ 

/    III/ 

/III/ 
./III/ 


SUBROUTINE    PKREG 


/ 
/ 


MAIN    PROGRAM 


/III/ 

/    III/ 

/III/ 
./III/ 


COMPUTER   CONTROL    CARDS 


BEGINNING    OF    DECK 


/III/ 
./I  I  I/ 
I  I  / 
I  I/ 
I  / 
I/ 
/ 
I/ 


C.   FORMAT  REQUIREMENTS  FOR  INPUT  DATA  CARD  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 


The  card  format  requirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the  columns 
specified.   For  a  more  detailed  description  of  the  input  data,  see  the 
description  of  arguments  in  section  IV. B.  See  example,  section  V.C. 

Variable 
Card  Columns   Name    Definition 


I  1 

1 

| 

| Blank 

2- 

53  | 

I  Label 

used 

to 

ident 

LfY 

the 

output. 

5**- 

■80  | 

I  Blank 
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1  INXT 


4-6 
7-12 

13-80 
1-8 

9-16 

73-80 

1-8 
9-16 

49-56 
57-80 


NWRIT 


NSEX 


EO 


SURA 


SURA 


The   code  indicating   if   there  is 
another   data   set   following   this  one. 
A  zero   punched   in  column   1    indicates 
this   is   the    last   set   of    data.      Any  other 
digit   punched   in  column    1   indicates   another 
set   of  data   follows   this  one. 

The   write  indicator.      If   a  zero   is    punched 
in  column   2,    the  results  of   the  subroutine 
PKREG  will   not    be   written  out.      If 
any   other  number  is   punched   in   column   2 
the   subroutine   PKREG    will   write   out   the 
results   of   its  calculations. 

The   sex   for    which   the   survival  rates 
are   given.      A  one   punched   in  column   3 
means  the   survival   rates  are   for   the 
male   population.      A   two   punched   in 

column   3  means  the   survival   rates   are 
for   the   female   population. 

Blank 

The  life  expectancy  at  birth  for  the 

given  survival  rates.    The  decimal  point  should 

be  in  column  9. 

Blank 


The  survival  rate  from  births  during  a  5-year 
period  to  ages  0-4.   The  decimal  point  should  be 
in  column  1. 

The  survival  rate  from  age  0-4  to  5-9. 
The  decimal  point  should  be  in  column  9. 


The  survival  rate  from  ages  40-44  to  45-49. 
The  decimal  point  should  be  in  column  73  . 


The  survival  rate  from  ages  45-49  to  50-54. 
The  decimal  point  should  be  in  column  1. 

The  survival  rate  from  ages  50-54  to  55-59. 
The  decimal  point  should  be  in  column  9. 


The  survival  rate  from  ages  75+  to  ages  80+. 
The  decimal  point  should  be  in  column  49. 

Blank 


The  variable  SURA  always   reguires  two  cards.      Both  cards 
must   always  contain   data.      The   first    card  must   contain  ten 
values  and   the   second  card   can   contain   between  3   and   7 
values.      The   last   survival   rate  given  must    always   be  the 
survival  rate,  for   the  open-ended   age   group. 


IV.     SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  PKREG (SURA, NWRIT, EO, NSEX,  NREG) 

B.  DESCRIPTION  OF  ARGUMENTS 

Name   How  Obtained   Definition 
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SURA 


NHRIT 


EO 


NSEX 


NREG 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 


Set  of  5-year  age-specific  survival 
rates  from  an  abridged  life  table.   The 
first  survival  rate  is  from  birth  surviv- 
ing to  ages  0-4.   There  can  be  a  maximum  of 
seventeen  survival  rates  with  the  last 
one  being  the  survival  rate  for  the  open- 
ended  age  group.   The  minimum  number  of 
survival  rates  that  can  be  given  is  13. 
If  less  than  13  survival  rates  are  given, 
error  message  0913  is  written  out  and  the 
subroutine  will  return  to  calling  program. 

Write  option.   If  NWRIT  is  zero,  the  sub- 
routine will  not  write  out  the  results 
of  its  calculations.   For  any  other 
value  of  NWRIT,  the  subroutine  will  write 
out  the  results  of  its  calculations. 

The  life  expectancy  at  birth  that  corres- 
ponds to  the  given  survival  rates.   It 
must  be  greater  than  or  egual  to  20.0  and 
less  than  or  egual  to  80.0;  otherwise  the 
subroutine  will  write  out  error  message 
number  0912  and  return  to  the  calling 
program. 

The  sex  for  which  the  survival  rates  are 
given.  A  1  indicates  males  and  a  2 
indicates  females.   For  any  other  value, 
the  subroutine  will  write  out  error 
message  number  0911  and  return  to  the 
calling  program. 

The  region  determined  by  the  program  to 
have  the  pattern  most  closely  resembling 
the  pattern  of  given  survival  rates. 


C.   EBROB  MESSAGES 


0911  ***  PKBEG  EEROR  NO.  0911  —  INPUT  ERROR  IN  NSEX 

***  ERROR  IN  SEX  CODE.   NSEX  SHOULD  BE  1  FOR  MALES  OR  2 
FEMALES. 


FOR 


0912  ***  PKREG  ERROR  NO.  0912  —  INPUT  ERROR  IN  E0 

***  ERROR  IN  LIFE  EXPECTANCY  AT  BIRTH.   EO  SHOULD  BE  BETWEEN 
20.0  AND  80.0. 

0913  ***  PKREG  ERROR  NO.  0913  —  INPUT  ERROR  IN  SURA 

***  EEROR  IN  SURVIVAL  RATES,  LESS  THAN  13  SURVIVAL  RATES 

GIVEN  OB  ONE  OF  THE  INTEEMEDIATE  RATIOS  IS  LESS  THAN  OB 

EQUAL  TO  ZERO. 


V.   PBOGBAM   AND   BESULTS 

A.   COMPUTEB  LISTING  FOR  MAIN  PROGRAM 


c 

c 

C MAIN  PROGRAM  FOR  PKREG 

c 

c 

I THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  THREE  READ 

C STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIBST  BEAD  STATEMENT  OSES  ONE  DATA  CARD. 

C THE  PUEPOSE  OF  THE  FIEST  BEAD  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

Z ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  (1)THE 
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C INDICATOR (NXT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER  DATA  SET 

c. FOLLOWING  THIS  ONE  AND  (2)THE  WRITE  INDICATOR (NWRIT)  WHICH 

C DETERMINES  WHETHER  THE  RESULTS  OF  THE  SUBROUTINE  PKREG  SHOULD   BE 

C WRITTEN  OUT,  (3)  THE  SEX (NSEX)  TO  WHICH  THE  SURVIVAL  RATES 

C APPLY,  AND  (4) THE  LIFE  EXPECTANCY  AT  BIRTH (EO)  CORRESPONDING  TO 

C THE  SURVIVAL  RATES. 

C NXT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  1 

c INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER  DIGIT 

c PUNCHED  IN  COLUMN  1  INDICATES  THERE  IS  ANOTHER  SET  OF  DATA 

c FOLLOWING  THIS  ONE. 

C NWRIT   IS  IN  COLUMN  2  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  2 

c INDICATES  THAT  THE  RESULTS  OF  THE  SUBROUTINE  PKREG  ARE  NOT 

c T0  BE  PRINTED  OUT.   IF  ANY  OTHER  DIGIT  IS  PUNCHED  IN  COLUMN 

c 2  THE  RESULTS  OF  THE  SUBROUTINE  PKREG  WILL  BE  PRINTED  OUT. 

C NSEX   IS  IN  COLUMN  3  OF  THIS  CARD.   A  ONE  PUNCHED  IN  COLUMN  3 

c INDICATES  MALES.   A  TWO  PUNCHED  IN  COLUMN  3  INDICATES 

c FEMALES. 

C EO       IS    IN    COLUMNS    7-12.       IT    SHOULD    BE    ENTERED    SO    THAT    THE    VALUE 

C HAS    A    DECIMAL    POINT    AND    IS    IN    THE    SIX    COLUMNS    ALLOWED. 

C 

C THE  PURPOSE  OF  THE  THIRD  BEAD  IS  TO  READ  IN  THE  SURVIVAL 

C —  RATES (SURA)  FROM  AN  ABRIGED  LIFE  TABLE.   THE  FIRST  VALUE  MUST  BE 

C THE  SURVIVAL  RATES  FOR  A  5-YEAR  PERIOD  BIRTHS  SURVIVING 

c T0  aGE  o-4.   THE  SECOND  VALUE  SHOULD  BE  THE  SURVIVAL  RATE 

C FROM  AGE  0-4  TO  AGE  5-9. 

C SURA   VALUES  ARE  ON  TWO  CARDS.   FOR  EACH  SURA  VALUE  EIGHT  COLUMNS 

C ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS  OF  THE 

c FIRST  CARD.   EACH  VALUE  MUST  CONTAIN  A  DECIMAL  POINT  AND  BE 

C WITHIN  THE  EIGHT  DIGITS  ALLOWED.   THUS,  ONLY  TEN  VALUES  CAN 

C APPEAR  ON  THE  FIRST  CARD.   THE  SECOND  CARD  HAS  SEVEN  VALUES 

C WITH  THE  SEVENTEENTH  VALUE  BEING  IN  COLUMNS  49-56.   TWO 

C CARDS  MUST  ALWAYS  BE  USED  AND  AT  LEAST  THIRTEEN  VALUES  OF 

c SURA  MUST  BE  GIVEN  IN  ORDER  TO  USE  THE  SUBROUTINE  PKREG. 

c 

c 

DIMENSION  SURA(17) 

NPRNT  =  15 

NREAD  =  1 

10  READ(NREAD,11) 

11  FORMAT(1X,52H  ) 
READ  (NREAD,  22)  NXT,  NWRIT,  NSEX,  EO 

22  FORMAT(3I1,3X,F6.3) 

READ(NREAD,33)  (SURA  (I)  ,1=1 , 17 ) 
33  FORMAT(10F8.5) 

WRITE  (NPRNT, 44) 
44  FORMAT  (1H1) 

WRITE(NPRNT,11) 

WRITE  (NPRNT, 55) 
55    FORMAT  (1X,3HAND,/,1X,39HC0ALE-DEMENY    REGIONAL    MODEL    LIFE    TABLES) 

CALL    PKREG (SUR A, NWRIT, EO, NSEX, NREG) 

IF    (NXT)     10,20,10 
20    CONTINUE 

STOP 

END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  PKREG (SURA, NWRIT, EO, NSEX, NREG) 

c 

c 

C PROGRAM    NO.    0910 

c 

c 

C SURA,  NWRIT,  EO,  AND  NSEX  ARE  INPUT  ARGUMENTS. 

C NREG  IS  AN  OUTPUT  ARGUMENT. 

C SURA   CONTAINS  THE  SURVIVAL  RATES  FROM  A  LIFE  TABLE. 

C NWRIT   IS  THE  WRITE  INDICATOR 

C EO   IS  THE  LIFE  EXPECTANCY  AT  BIRTH  CORRESPONDING  TO  THE 

C SURVIVAL  RATES  IN  SURA. 

C NSEX   IS  THE  SEX  TO  WHICH  THE  SURVIVAL  RATES  PERTAIN. 

C NREG   IS  THE  COALE-DEMENY  REGION  WHOSE  PATTERN  MOST  CLOSELY 

C RESEMBLES  THE  PATTERN  OF  THE  SURVIVAL  RATES  IN  SURA. 

c _ 

c . 
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DIMENSION    SURA(17) ,SUR VB ( 17) .SMLT (18,8) 
NPBNT    =    15 
NER    =    0 
N   =    0 

MT    =    0 


ERROR  CHECKING 


IF  (NSEX-1)  2000,4,3 

3  CONTINUE 

IF  (NSEX-2)  2000,4,2000 

4  CONTINUE 

IF  (EO-20.)  3000,5,5 

5  CONTINUE 

IF  (EO-80.)  6,6,3000 

6  DO  10  1=1,17 

IF  (SORA(I)  -  .000001)  1500,1500,7 

7  CONTINOE 

IF    (SURA  (I)     -    1.0)     8,1500,1500 

8  N  =  N  ♦  1 

10  CONTINUE 

IF  (MT)  13,13,11 

11  CONTINOE 

IF  (N-(MT-1))  4000,12,4000 

12  CONTINUE 

IF  (N-13)  4000,13,13 

13  CONTINUE 

IF  (NER-1)  14,5000,14 


DETERHINE  HHICH  REGIONAL  PATTERN  HOST  CLOSELY  RESEMBLES  THE 
SURVIVAL  RATES  IN  SURA 


14  RDMIN  =  9999.  0 
DO  40  1=1,4 

CALL  MLT(EO,NSEX,I,SMLT) 
DO  15  J=1,17 

15  SUBVB(J)  =  SMLT  (J, 6) 

17  CALL  LIFIT(SURA,SURVB, NHRIT, X, RDM) 

IF    (RDM)     1000,20,20 
20    CONTINUE 

IF    (RDM    -RDBIN)    30,40,40 
30   RDMIN    =    RDM 

NREG    =    I 
40    CONTINUE 


PRINT    RESULTS   IF    NHRIT    IS    NONZERO 


IF    (NHRIT)     50,1000,50 
50    WRITE  (NPRNT, 333)     NREG 
333    FORMAT  (/, 1X, 1 19HTHE   COALE-DEMENY    MODEL    LIFE   TABLE   REGION    HAVING    TH 
*E    CLOSEST    SURVIVAL    RATES    VALUES    BASED    ON    THE    MEAN    RELATIVE    DIFFERE 
*NCE,/,1X,26H   TO    THE   ORIGINAL    IS    REGION    ,I2,83H.       REGIONS    1,    2,    3, 
*AND    4    CORRESPOND    TO    BEST,    NORTH,    EAST,    AND    SOUTH,    RESPECTIVELY.    ) 
GO   TO    1000 
C 
c 

C SET    ZERO   CHECK    FOR    POSSIBLE   SURA    ERROR 

c 

c 

1500  CONTINUE 

IF  (MT)  1501,1501,10 

1501  MT  =  I 
GO  TO  10 

C 

c 

C ERROR  STATEMENTS 

c 

c 

2000  HRITE (NPRNT, 444) 
444  F0RMAT(/,1X,47H***  PKREG  BRROR  NO.  0911  —  INPUT  ERROR  IN  NSEX,/, 
*1X,68H***  ERROR  IN  SEX  CODE.   NSEX  SHOULD  BE  1  FOR  MALES  OB  2  FOR 
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♦  FEMALES.  ) 
NER    =    1 
GO   TO   H 

3000    WHITE  (NPRNT, 555) 
555    FORMAT  (/,1X,45H*»*    PKREG    ERROR    NO.    0912    —    INPUT    ERROR    IN    EO,/,1X, 
*75H***    ERROR    IN    LIFE    EXPECTANCY   AT    BIRTH.       EO    SHOULD    BE    BETWEEN    20 
*.0    AND    80.0.) 
NER    =    1 
GO   TO    6 
4000    WRITE (NPRNT, 666) 
666    FORMAT (/, 1X,47H***    PKREG    ERROR    NO.    0913   —    INPUT    ERROR    IN    SURA,/, 

*  1X,95H***  ERROR  IN  SURVIVAL  RATES,  LESS  THAN  13  SURVIVAL  RATES  GI 
*VEN  OR  ONE  OF  THE  INTE'  EDIATE  RATES,/, 1X, 54H***  IS  LESS  THAN  OR  E 
*QUAL    TO    ZERO    OR    GREAT*       THAN   ONE.) 

5000    WRITE(NPRNI,777)     NSEX     /O 
777    FORMAT(/,5X,18HPKREG    liiPUT    VALUES ,/,5X,7HNSEX    =    , 12,/, 5X, 5HEO   =    ,F 
♦7.3) 
WRITE  (NPRNT, 888)     (SURA  (I)  ,1=1,17) 
888    FORMAT (/, 5X,7HSURA   =    ,1 0 (F8.5,2X) /, 12X, 7 (F8 , 5, 2X)  ) 
NREG    =    0 
1000    RETURN 
END 
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PLT 


I.  DESCRIPTION      OF       PROGRAM 

A.  PURPOSE 

To  print  out  the  functions  of  a  life  table.  This  subroutine  is  used  in 
conjunction  with  ELT  or  MLT.  It  is  advisable  to  read  the  documentation  for 
these  subroutines  for  a  better  understanding  of  PLT. 

B.  DATA  NEEDED 

1.  The  abridqed  life  table  to  be  printed  out. 

2.  The  sex  of  the  life  table  population. 

3.  The  code  indicatinq  the  source  of  the  life  table. 

II.  METHODOLOGY 

This  is  a  print  subroutine.   It  prints  out  the  information  supplied  to  it. 

III.  H  A  I  N   PROGRAM 

A.   REQUIREMENTS 

The  main  proqram  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
proqram  can  use  a  subroutine  alone  or  in  con-junction  with  other  subroutines. 
For  a  detailed  explanation  of  writinq  main  proqrams  usinq  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  proqram  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  proqram  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  proqram.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  PLT  (XLT,NSEX,NREG) 


For  the  purpose  of  emphasizinq  the  input  arquments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
qroup  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  variable  names  F,  P  and  ASFR  in  the  argument  string  are 
all  arrays.   The  follow inq  DIMENSION  Statement  must  be  included  in  any  main  pro- 
qram usinq  this  subroutine. 

DIMENSION  XLT(18,8) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 
NONE 
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C.       FORMAT    REQUIREMENTS   FOR    CARD    INPUT    DATA    FOR    THE    BAIN    PROGRAM    GIVEN    IN 
SECTION    V.A. 


See   ELT   or    BIT 


IV.  SUBROUTINE 


&.   SUBROUTINE  STATEMENT 


All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 


B. 


SUBROUTINE  PLT (XLT, NSEX, NREG) 
DESCRIPTION  OF  ARGUMENTS 


Name 


XLT 


NSEX 


NBEG 


How  Obtained  Definition 


Transferred  In 


Transferred  In 


Transferred  In 


The  life  table  array.   For  a  detailed 
description  of  this  array,  see  the 
description  of  the  argument  XLT  in  the 
documentation  of  subroutine  ELT. 

The  sex  of  the  life  table  population. 
NSEX=1,2,3  indicates  males,  females, 
and  both  sexes  combined^  respectively. 

The  source  of  the  life  table  population. 
NREG=1,2,3,U  indicates  west,  north,  east 
and  south  regions  respectively  of  the 
Coale-Demeny  Bodel  Life  Table  System. 
NBEG=5  indicates  an  empirical  life  table. 
NREG=6  indicates  a  United  Nations  model 
life  table.   If  NREG  eguals  any  other 
number,  an  empirical  life  table  is  assumed. 


C.   ERROR  MESSAGES 
None 

V.   PROGRAB 

A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 
See  ELT  or  MLT 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

c . 

c „ 

SUBROUTINE  PLT  (XLT, NSEX, NREG) 
c . 

C PROGRAM  NO.  940 

c 

C THE  INPUT  ARGUMENTS  TO  THIS  SUBROUTINE  ARE   XLT,   NSEX   AND   NREG, 

C THERE  ARE  NO  OUTPUT  ARGUMENTS  FROM  THIS  SUBROUTINE. 

C XLT   IS  AN  ABRIDGED  LIFE  TABLE. 

C NSEX   IS  A  CODE  INDICATING  THE  SEX  OF  THE  LIFE  TABLE  POPULATION. 

C NREG   IS  A  CODE  INDICATING  THE  SOURCE  OF  THE  LIFE  TABLE;  THAT  IS, 

C ONE  OF  THE  COALE-DEMENY  REGIONAL  MODEL  LIFE  TABLES,  A 

C— UNITED  NATIONS  MODEL  LIFE  TABLE,  OR  AN  EMPIRICAL  LIFE 

C TABLE. 

c 

c 

DIMENSION  XLT(18,8) 
NPRNT=  15 
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C 

c 

C TESTING    OF    THE    RANGE    OF    THE    REGION    CODE     (NREG) .        IF    IT    IS    NOT 

C WITHIN    THE    RANGE    1    TO    6,     IT    WILL    BE    SET    TO    5     (EMPIRICAL    LIFE 

C TABLE) 

c 

C 

IF  (NLEG  -  1)  80,90,70 
70  CONTINDE 

IF  (NREG  -  6)  90,90,80 
80  NREG  =  5 


■PRINTING    OF    THE    LIFE    TABLE 


90    WRITE     (NPRNT,100) 

100  FORMAT (////    27X,     19HABRIDGED    LIFE    TABLE) 
IF     (NSEX    -    1)     102,104,101 

101  CONTINUE 

IF     (NSEX    -    3)     104,104,102 

102  WRITE(NPRNT,  103) 

103  FORMAT (34X,19HN0    SEX    GIVEN    TO    PLT) 
GO   TO    135 

104  CONTINUE 

GOTO  (105, 115,125) , NSEX 

105  iRITE  (NPFNT,110) 
110  F0RMAT(34X,  5HMALES  ) 

GO  TO  135 
115  WRITE  (NPP.NT,120) 
120  FORMAT (33X,  7HFEMALES  ) 

GO  TO  135 
125  iRITE  (NPRNT,130) 
130  FORMAT  (30X,  11HBOTH   SEXES  ) 
135  CONTINUE 

GO  TO  (145,155,165,175,185,195) , NREG 
145  HRITE  (NPRNT,150) 
150  FORMAT (24X,  25HC0ALE-DEMEN Y   WEST  REGION,/) 

GO  TO  205 
155  WRITE  (NPRNT,160) 
160  FORMAT  (24X,  25HC0ALE-DEMENY  NORTH  REGION,/) 

GO  TO  20  5 
165  WRITE  (NPF.NT,170) 
170  FORMAT  (24X,  25HCOALE-DEMEN Y   EAST  REGION,/) 

GO  TO  20  5 
175  WRITE  (NPRNT,180) 
180  FORMAT (24X,  25HC0ALE-DEMENY  SOUTH  REGION,/) 

GO  TO  205 
185  WRITE  (NPRNT,190) 
190  FORMAT  (3  OX,  1 9HEMPIRICALLY  DERIVED,/) 

GO  TO  205 
195  WHITE  (NPRNT,200) 

200  FORMAT (29X,  21HUNITED  NATIONS  MODEL,/) 
205  WRITE  (NPRNT,210) 
210  FORMAT (///,  4X, 

664HAGE     Q(X)    D  (X)    M(X)    I  (X)     L  (X)     S  (X)     T  (X)     E(X 
6)   ,//) 

WRITE  (NPRNT,2  20)  (XLT(1,J) ,J=1,8) ,  (XLT(2,J)  ,J=1,8) 
220  FORMAT(5X,2H  0,  F9. 5, F7.  0, 1X ,F6. 5, 2F8. 0, 1X, F6. 5, F9. 0,F6. 2,/ 
6  5X,2H  1,  F9.5,F7.0,1X,F6.5,2F8.0,1X,F6.5,F9.0,F6.2) 

NAGE  =  5 

DO  235  1=3,18 

WRITE  (NPRNT,230)NAGE,  (XLT  (I, J) ,J=1,8) 
230  F0RMAT(5X,I2,  F9. 5,F7.0, 1 X,F6. 5, 2F8. 0, 1 X,F6. 5,F9. 0,F6. 2) 
235  NAGE  =  NAGE  +  5 


RETURN 
END 


C.  SAMPLE  DATA 
See  ELT  or  «LT 

D.  SAMPLE  OUTPUT 
See  ELT  or  MLT 


PPROJ 


DESCRIPTION      OF       PROGRAM 

A.  PURPOSE 

To  print  out  the  results  of  a  population  projection.   The  subroutine  prints 
the  population  by  5-year  age  groups,  the  rate  of  natural  increase,  rate  of 
growth,  crude  birth  rate,  crude  death  rate,  general  fertility  rate,  total 
fertility  rate,  and  the  male  and  female  life  expectancies  at  birth.   This 
subroutine  is  used  in  connection  vith  PR0J5  and  is  best  understood  if  the 
documentation  for  that  subroutine  is  read  first. 

B.  DATA    NEEDED 

1.  The  male   population    distribution   in  5- year   age   groups. 

2.  The  total   male    population. 

3.  The   female  population  distribution  in    5-year   age  groups. 

4.  The   total   female   population. 

5.  The  5-year  survival    rates   for  males. 

6.  The   5-year  survival   rates  for  females. 

7.  The   5-year  age-specific   fertility  rates  for   females  at   the 
beginning  and  ending  of   the    5-year   projection   interval. 

8.  The   sex   ratio  at   birth. 

9.  The   following   population  parameters: 

a.  rate  of   growth 

b.  rate  of  natural   increase 

c.  crude  birth   rate 

d.  crude  death   rate 

e.  general   fertility   rate 

f.  total   fertility   rate 

g.  male   life  expectancy  at   birth 
h.  female  life   expectancy  at  birth 

10.      The   date  of  the  mid-point  of  the   projection  period. 

II.    METHODOLOGY 

This   is  a   print  subroutine.      It   prints  out   the   information  supplied   to  it. 

III.H    AIN      PROGRAM 

A.       REQUIREMENTS 

The  main   program  is  required   to   use   this  subroutine   and  obtain   the  data 
(input)    necessary  for   the   subroutine   to   perform  its  calculations.      A  main 
program  can  use   a  subroutine  alone   or   in   conjunction   with  other   subroutines. 
For  a   detailed  explanation   of   writing  main  programs   using   more    than  one  sub- 
routine  see  the   Appendix. 
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1  .   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  PPR0J(PM,TPM,PF,TPF,SXi1,SXF,SRB,ASFR1,ASFR2,DATB) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  vhich  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  variable  names  F,  P  and  ASFfi  in  the  argument  string  are 
all  arrays.   The  following  DIMENSION  Statement  must  be  included  in  any  main  pro- 
gram using  this  subroutine. 

DIMENSION  PM(17)  ,PF(17)  ,SXH(17)  ,SXF(17)  ,ASFB1  (7),ASFB2(7)  ,PPAB  (8) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 


See  PR0J5 


" 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PBOGRAM  GIVEN  IN 
SECTION  V. A. 

See  PR0J5 


IV.  SUBROUTINE 


A.       SUBROUTINE   STATEMENT 


All   external   subroutines   begin    with   the  word   SUBROUTINE  followed   by   a 
space,   the  name  of  the   subroutine   and  the  argument  string   enclosed  in 
parentheses.      This  subroutine  begins  as   follows: 

SUBROUTINE    PPROJ (PM,TPH,PF,TPF,SXH, SXF, SRB, ASFB1, ASFB2,PPAR,DATB) 

B.       DESCRIPTION    OF    ARGUMENTS 


Name 


PM 


TPH 


How  Obtained   Definition 


PF 


TPF 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


PM  contains  the  5- year  age 
distribution  of  males  to  be  projected. 
There  can  be  a  maximum  of  17  age  groups 
with  the  last  age  group  being  the  open- 
ended  age  group. 

Total  male  population. 
If  the  value  is  less  than  or  egual  to 
zero  then  error  message  0961  is  written 
out  and  the  subroutine  returns  to  the 
calling  program. 

PF  contains  the  5- year  age 
distribution  of  females  to  be  projected. 
There  can  be  a  maximum  of  17  age  groups 
with  the  last  age  group  being  the  open- 
ended  age  group. 

Total  female  population. 
If  the  value  is  less  than  or  egual  to 
zero  then  error  message  0961  is  written 
out  and  the  subroutine  returns  to  the 
calling  program. 
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SXH 

SXF 

ASFB1 

ASFB2 

SBB 
PPAE 


Transferred  In 

Transferred  In 

Transferred  In 

Transferred  In 

Transferred  In 
Transferred  In 


DATB  | Transferred  In 
C.   ERROR  MESSAGES 


The  5-year  survival  rates  for  males. 

There  can  be  a  maximum  of  17  survival  rates 

for  males. 

The   5-year   survival   rates   for 
females.      There   can  be  a   maximum  of 
17   survival  rates   for   females. 

The   5-year    age-specific  fertility 
rates   for    females    15-49  for   the  be- 
ginning  of   the   projection    period. 

The   5-year   age-specific   fertility 
rates   for   females    15-49  for   the   ending 
of   the   projection   period. 

The  sex  ratio  at  birth. 

PPAR  contains  some  of  the  basic  para- 
meters of  the  population.   They  are  as 
follows: 

PPAR(1)  -  Rate  of  growth 

PPAR  (2)  -  Rate  of  natural  increase 

PPAR (3)  -  Crude  birth  rate 

PPAR  (4)  -  Crude  death  rate 

PPAR (5)  -  General  fertility  rate 

PPAR (6)  -  Total  fertility  rate 

PPAR  (7)  -  Bale  life  expectancy  at  birth 

PPAR  (8)  -  Female  life  expectancy  at  birth 

The  mid-point  of  the  projection  period. 


***  PPROJ  ERROR  NO.  0961  —  INPUT  ERROR  IN  TPH  OB  TPF 
***  THE  TOTAL  POPULATION  FOR  EITHER  HALES  OB  FEHALES  IS  LESS 
THAN  OR  EQUAL  TO  ZERO. 


PROGRAHS      AND      RESULTS 
A.       COHPDTER   LISTING    FOR    MAIN    PROGRAM 
See   PROJ5 


B.   COHPOTER  LISTING  FOR  SUBROUTINE 

SDBBOOTINE  PPBOJ (PH,TPM ,PF,TPF,SXM, SXF, SBB, A SFB1 , ASFB2, PPAB,DATB) 

—  PBOGBAH  NO.  0960 

—  ALL  ARGUMENTS  ABE  INPUT  ABGOHENTS. 

• —  PH   IS  THE  HALE  POPULATION  DISTBIBUTION  IN  FIVE  IEAB  AGE  GBOUPS. 
■ —  TPH  IS  THE  TOTAL  MALE  POPULATION. 

—  PF   IS  THE  FEHALE  POPULATION  DISTBIBUTION  IN  FIVB  IEAB  AGE 

GBOUPS. 
--  TPF  IS  THE  TOTAL  FEHALE  POPULATION. 
--  SXM   IS  THE  FIVE  IEAB  SURVIVAL  RATES  FOR  HALES. 
■ —  SXF   IS  THE  FIVE  YEAR  SURVIVAL  RATES  FOR  FEHALES. 

—  ASFB1   IS  THE  FIVE  YEAB  AGE  SPECIFIC  FEBTILITI  BATES  FOB  FEHALES 

15-49  AT  THE  BEGINNING  OF  THE  PBOJECTION  PERIOD. 
• —  ASFB2   IS  THE  FIVE  YEAR  AGE  SPECIFIC  FERTILITY  BATES  FOB  FEHALBS 
15-49  AT  THE  END  OF  THE  PBOJECTION  PEBIOD. 

—  SBB   IS  THE  SEX  BATIO  AT  BIBTH. 

—  PPAB   CONTAINS  THE  FOLLOWING  POPULATION  PABAHETEBS  -  (1)BATE  OF 
GROWTH,  (2)BATE  OF  NATUBAL  INCBEASE,  (3)  CRUDE  BIBTH  BATE, 
(4) CRUDE  DEATH  BATE,  (5) GENERAL  FERTILITY  BATE,  (6) TOTAL 
FERTILITY  BATE,  (7) HALE  LIFE  EXPECTANCY  AT  BIBTH  AND 
(8) FEHALE  LIFE  EXPECTANCY  AT  BIBTH. 

■ —  DATB   IS  THE  DATE  OF  THE  HID-POINT  OF  THE  PROJECTION  PEBIOD. 

DIHEHSION  PH(17),  PF(17),  SXH  (17),  SXF  (17)  ,  ASFB1  (7)  ,  ASFB2  (7) 
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DIMENSION    T(17),    PP{3,17),    N(2,17),    PPAR  (8) 
NPBNT   =    15 


c CHECK    THE    TOTAL   POPDLATION   FOB    MALES    AND   FEMALES 

c 


C 


c 


IF     (TPH)    900,900,10 
10   CONTINUE 

IF     (TPF)    900,900,20 


c CALCULATE    POPULATION   PROPORTIONS    IN    EACH    AGE   GROUP,    PP, 

C TOTAL    POPULATION,    T,    AND   AGE    LABELS,    N 


20    DAT1    =   DATB    -   2.5 
DAT2   =    DATB    +    2.5 
TT   =   TPM    +TPF 
DO    110    1=1,17 
T(I)    =    PH  (I)*PF(I) 
PP(1,I)    =    T(I)/TT 
PP(2,I)     =    PH(I)/TPM 
PP(3,I)    ■    PF(I)/TPF 
IF     (T(I)-.9)     110,100,100 
100    K    =    I 

NX    =    (1-1) *5 
N  (2,1)    =    NX+4 
110    N  (1,1)    =    NX 
120    KH1    =    K-1 
C 
c 

C PRINT    HEADING 

c 

C 


WRITE    (NPRNT,111)     DAT1,DAT2 
111    FORMAT  (/23X,39H ■ — POPULATION .  16X, 

*  8HSURVIVAL,12X,9HFEBTILITY   /10X,29H ABSOLUTES , 

*  9X,  22H PROPOBTIONS ,1  OX  ,  5HBATES,  1 5X,  5HBATES 

*  /13X,4HBOTH,32X,4HBOTH,    /12X, 5HSEXES, 8X,4HMALE,3X,6HFEHALE, 1 1X, 
*5 HSEXES , 4X, 4HMALE, 2X , 6HFEMALE, 8X , 4HMALE, 2X, 6HFEM ALE, 5X, 2  (F7. 2, 2X) ) 

C 

c 

C PRINT   DATA    ARHAYS 

c 

C 

WRITE    (NPRNT,222)     TT, TPM, TPF,  (  (N  (J, I)  ,  J=1  ,2)  ,T  (I)  #PM  (I)  ,PF  (I)  , 

*  (PP(J,I),J=1,3),SXM(I)  ,SXF(I),I=1,3),     ((N(J,I),J=1,2),T(I), 

*  PM  (I)  ,PF(I)  ,  (PP(J,I)  ,J=1,3),SXH(I),SXF(I),ASFR1(I-3)  , 

*  ASFB2(I-3)  ,1=4,10),     (  (N  (J, I)  ,J=1  ,2)  ,T  (I)  ,PM  (I)  ,PF  (I)  , 

*  (PP(J,I)  ,J=1,3)  ,SXM(I)  ,SXF(I)  ,I=11,KM1) 
222  FORMAT  (/6H  TOTAL, 3F12. 0, 4X,3 (8H   1.0000)  / 

*  3(/1X,I2,1H-,I2,3F12.0,4X,3F8.4,4X,2F8.4), 

*  7 (/1X,I2,1H-,I2,3F12.0,4X,3F8.4,4X,2F8.4,4X,2(F8.4,1X)) , 

*  /(  1X,I2,1H-,I2,3F12.0,4X,3F8.4,4X,2F8.4)  ) 

WRITE  (NPBNT,333)  N(1,K)  ,T(K)  ,PH  (K)  ,PF(K),  (PP  (J,K)  ,  J=1  ,3)  ,SXM(K)  , 

*  SXF(K) 

333  FORMAT  (1X, 12, 1H+, 2X, 3F12.0,4X,3F8.4,4X,2F8. 4) 
C 
c 

C PBINT  BESULTS 

c . 

C 

WBITE     (NPRNT,444)    DATB,  (PPAB  (I)  ,1  =  1,  6)  ,SBB,PPAfi  (7)  ,PPAfi  (8) 
444    FOBHAT    (/1 X, 36HMIDP0INT    OF    THE   PBOJECTION    PEBIOD  =    ,F7.2,/9X, 

♦16HBATE   OF   GB0HTH=    ,F7.4/27H   BATE    OF    NATURAL    INCREASE=    ,F7.4   /7X, 
*18HCBUDE    BIRTH    RATE=    ,F7. 4/7X, 18HCRUDE    DEATH    BATE=    ,F7.4   / 
*25H   GENERAL  FEBTILITY    BATE=    ,F7.4/25H         TOTAL   FERTILITY    BATE=    , 
*F7.2/5X,20HSEX    BATIO    AT    BIBTH=    ,F7.3/25H         HALE    LIFE    EXPECTANCY=   , 

*  F7.2   /25H    FEMALE    LIFE    EXPECTANCY=    , F7 . 2   ) 
GO    TO    1000 


C EBBOB    IN   TOTAL    POPULATION    FOB    EITHEB    HALES    OB    FEMALES 

c 

C 


900    WRITE (NPRNT,999) 
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999    FORMAT (/, 1X,53H***    PPROJ    ERROR    NO.    0961    —   INPUT    ERROR   IN    TPM    OR    T 

*PF,/,1X,83H***    THE   TOTAL    POPULATION    FOR    EITHER    BALES    OR    FEMALES    IS 

*   LESS    THAN    OR    EQUAL    TO    ZERO./,5X, 18HPPROJ   INPUT    VALUES) 
WRITE    (NPRNT,1111)     PM,PF, SXM,SXF, SRB, ASFR1 ,ASFR2,PPAR#DATB 
1111    FORMAT     (9H  PM=    ,9F12.0    /9X,8F12.0/ 

*/5X,5HPF=    ,9F12.0   /9X,8F12.0/ 

*/5X,5HSXH    =    ,9F12.5   /10X,8F12.5 

*/5X#5HSXF=    ,9F12.5   /10X,8F12.5 

*/#5X,5HRSB=    ,F7.3 

*/5X,7HASFR1=    ,7F8.5 

*/5X,7HASFR2=    ,7F8. 5 

*/5Xr6HPPAR=    #8F8.5 

*/5X,6HDATB=    ,F7.2) 
C 
c 

C RETURN  TO  CALLING  PROGRAM 

c 

C 
1000  CONTINUE 
RETURN 
END 


C.  SAMPLE  INPUT 
See  PROJ5 

D.  SAMPLE  OUTPUT 
See  PROJ5 


PREVR 

I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To  print  out  the  results  of  rejuvenating  a  population.   The  subroutine 
prints  the  population  by  5- year  age  groups,  the  rate  of  natural  increase,  rate 
of  growth,  crude  birth  rate,  crude  death  rate,  general  fertility  rate,  and  the 
sale  and  female  life  expectancies  at  birth.   This  subroutine  is  used  in 
connection  with  REVR5  and  is  best  understood  if  the  documentation  for  that 
subroutine  is  read  first. 

B.  DATA  NEEDED 

1.  The  male  population  distribution  in  5-year  age  groups. 

2.  The  total  male  population. 

3.  The  female  population  distribution  in  5-year  age  groups. 
U.  The  total  female  population. 

5.  The  5-year  survival  rates  for  males. 

6.  The  5-year  survival  rates  for  females. 

7.  The  following  population  parameters: 

a.  rate  of  growth 

b.  rate  of  natural  increase 

c.  crude  birth  rate 

d.  crude  death  rate 

e.  general  fertility  rate 

f.  male  life  expectancy  at  birth 

g.  female  life  expectancy  at  birth 

8.  The  mid-point  of  the  rejuvenation  period. 

II.  METHODOLOGY 

This   is   a  print   subroutine.      It   prints  out    the   information   supplied    to  it. 

III.H    AIN       PROGRAM 

A.       REQUIREMENTS 

The  main   program   is   required    to    use   this  subroutine   and  obtain   the  data 
(input)    necessary   for   the   subroutine   to   perform  its  calculations.      A   main 
program  can   use   a  subroutine   alone  or  in  conjunction  with  other   subroutines. 
For  a   detailed  explanation   of  writing  main  programs   using   more   than  one   sub- 
routine see   the   Appendix. 

1  .      CALL  statement 

Once  the  main   program  has  obtained   the  data  required  for  the   subroutine  to 
do  its  calculations,    the  main  program  transmits  this  data   to  the   subroutine 
and  the   subroutine  returns   the  results   of  the  calculations   performed   to   the 
main    program.      This   communication   process  is  made  through   the   CALL  statement. 
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The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 
CALL  PREVR(PM,TPH,PF, TPF, SXH,SXF, PPAR, DATB) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.  DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine,  all  of  the  variable  names  in  the  argument  string  are 
arrays  except  TPH,  TPF,  and  DATB.   The  following  DIMENSION  Statement  must  be 
included  in  any  main  program  using  this  subroutine. 

DIMENSION  PH  (17),PF(17)  ,SXM(17)  ,  SXF(17)  ,PPAB  (7) 

B.  OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGBAH. 
See  REVR5 

C.  FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

See  REVR5 


IV.  SUBROUTINE 


A.   SUBROUTINE  STATEMENT 


All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  PREVR  (PM,TPM, PF, TPF, SXH, SXF,PPAR,  DATB) 

B.   DESCRIPTION  OF  ARGUMENTS 

Name    How  Obtained  Definition 


PM 


TPM 


PF 


TPF 


SXM 


SXF 


PPAR 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


PH  contains  the  5-year  age 
distribution  of  males  to  be  rejuvenated 
There  can  be  a  maximum  of  17  age  groups 
with  the  last  age  group  being  the  open- 
ended  age  group. 

Total  male  population. 

If  the  value  is  less  than  or  egual  to  zero, 
error  message  1111  is  written  out  and  the 
subroutine  will  return  to  the  calling  program. 

PF  contains  the  5- year  age 
distribution  of  females  to  be  rejuvenated. 
There  can  be  a  maximum  of  17  age  groups 
with  the  last  age  group  being  the  open- 
ended  age  group. 

Total  female  population. 

If  the  value  is  less  than  or  egual  to  zero, 
error  message  1111  is  written  out  and  the 
subroutine  will  return  to  the  calling  program. 

The  5-year  survival  rates  for  males. 

There  can  be  a  maximum  of  17  survival  rates 

for  males. 

The   5-year  survival  rates   for  females. 
There  can  be   a   maximum    of    17   survival   rates 
for  females. 

PPAR   contains  some  of   the   basic   parameters  of 
the    population.      They   are  as  follows: 
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PPAB(1)  -  Bate  of  growth 

PPAR  (2)  -  Rate  of  natural  increase 

PPAR  (3)  -  Crude  birth  rate 

PPAB  (U)  -  Crude  death  rate 

PPAB(5)  -  General  Fertility  rate 

PPAB (6)  -  Male  life  expectancy  at  birth 

PPAB (7)  -  Female  life  expectancy  at  birth. 

IDATB  | Transferred  In  |The  mid-point  of  the  rejuvenation  period. 

C.   EBBOB  MESSAGES 

PBEVB  EBBOB  NO.  1111  —  INPUT  ERBOR  IN  TPM  OB  TPF 

***  THE  TOTAL  POPULATION  FOB  EITHER  MALES  OB  FEMALES  IS  LESS  THAN  OB 
EQOAL  TO  ZERO. 

V.       PROGRAMS      AND      BESOLTS 
A.      COMPUTER   LISTING    FOR    MAIN   PROGRAM 
See    REVR5 


B.       COMPOTES    LISTING    FOR    SUBROUTINE 

SUBROUTINE    PREVR  (PM ,TPM,PF,TPF,SXN,SXF, PPAR, DATB) 

—  PROGRAM    NO.    1110 

•--    ALL    ARGUMENTS    ARE    INPUT    ARGUMENTS. 

■ —    PM      IS    THE   MALE    POPULATION   DISTRIBUTION    IN    FIVE    YEAR    AGE    GROUPS. 

■ —   TPM   IS    THE   TOTAL    MALE    POPULATION. 

—  PF      IS   THE  FEMALE    POPULATION    DISTRIBUTION   IN    FIVE    YEAR   AGE 

GBOUPS. 
—    TPF    IS    THE   TOTAL    FEMALE    POPULATION. 
• —    SXH      IS   THE   FIVE    YEAB    SURVIVAL    RATES    FOR    MALES. 
■ —    SXF      IS    THE   FIVE   YEAR    SURVIVAL    BATES    FOR   FEMALES. 

—  PPAR      CONTAINS    THE    FOLLOWING    POPULATION    PARAHETEBS    -     (1)BATE    OF 

GROWTH,     (2)  RATE    OF    NATURAL    INCREASE,     (3)CBUDE    BIBTH    RATE, 
(4)  CRUDE   DEATH    RATE,     (5)  GENERAL    FERTILITY    BATE, 
(6)  MALE    LIFE    EXPECTANCY    AT    BIRTH    AND 
(7) FEMALE   LIFE    EXPECTANCY    AT   BIBTH. 
■ —    DATB       IS    THE   DATE    OF   THE    MID-POINT  OF    THE    BEJUVENATION    PERIOD. 

DIMENSION    PM(17),    PF(17),    SXH(17),    SXF(17) 
DIMENSION    T(17),    PP(3,17),    N{2,17),    PPAR(7) 
NPRNT   =    15 


CHECK    THE    TOTAL    POPULATION    FOR    MALES    AND    FEMALES 


IF     (TPM)    900,900,10 
10    CONTINUE 

IF     (TPF)    900,900,20 

CALCULATE   POPDLATION    PROPOBTIONS    IN    EACH    AGE    GBOUP,    PP, 

TOTAL    POPULATION,    T,    AND    AGE    LABELS,    N 


20    TT   =   TPM    +TPF 
DO    110    1=1,17 
T  (I)    =    PM(I)  +PF(I) 
PP(1,I)    =    T(I)/TT 
PP(2,I)    =    PM(I)/TPM 
PP(3,I)    =    PF(I)/TPF 
IF     (T(I)-.9)     110,100,100 

100    K   =    I 

NX    =    (1-1) *5 
N  (2,1)    =   NX+U 

110    N  (1,1)    =    NX 
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120    KM1    =    K-1 


C 


c__ PRINT    HEADING 

c 

C 

WRITE     (NPRNT, 111) 
111    FORHAT  (/23X,39H POPULATION ,  16X, 

*  8HSURVIVAL,/10X,  29H ABSOLUTES , 

*  9X,22H PROPORTIONS ,  10X,  5HRATES,  15X, 

*  /13X,UHBOTH,32X,4HBOTH,    /12X, 5HSEXES,  8X, 4HH ALE,3X,6HFEMALE, 1 1X, 

*5HSEXES,4X,4HHALE,2X,6HFEHALE,8X,4HHALE,2X,6HFEMALE) 

C 

c . 

C PRINT    DATA    ARRAYS 

c _ 

C 


WRITE (NPRNT, 133)    TT,TPM,TPF 
133    FORMAT    (/6H   TOTAL, 3F1 2.0, 4X,3  (8H       1.0000)     ) 

DO    130    I    =    1,KM1 
130    WRITE     (NPRNT,222)      ( (N (J, I) , J=1, 2) , T(I) , 

*  PM(I),PF(I),  (PP(J.I)  ,J=1,3),SXM(I),SXF(I)) 
222    FORMAT(1X,I2,1H-,I2,3F12.0,4X,3F8.4,4X,2F8.<») 

WRITE     (NPRNT,333)     N  (1 ,  K)  ,  T  (K)  ,  PM  (K)  ,  PF  (K)  ,  (PP  (J,K),J=1,3)  ,SXM  (K)  , 

*  SXF(K) 

333    FORHAT     (1X,I2 , 1H+, 2X, 3F12. 0,4X, 3F8 .4, 4X, 2F8. 4) 

C 

c _ 

C PRINT    RESULTS 

c 

c 

WRITE     (NPRNT,UU4)     DATB ,  (PPAR  (I)  ,1=  1, 7) 
4U4    FORMAT    (/1X,38HMIDP0INT   OF    THE   REJUVENATION    PERIOD   «    ,F7.2,/9X, 
♦16HRATE    OF    GROWTH=    ,F7.a/27H    RATE    OF    NATURAL    INCREASE=    ,F7.U   /7X, 
♦18HCRUDE    BIRTH   RATE=    , F7. 4/7X, 18HCRUDE    DEATH    RATE=    ,F7.4   / 
*25H   GENERAL   FERTILITY    RATE=    ,F7.4/ 
*25H         MALE    LIFE    EXPECTANCY=    , 

*  F7.2    /25H   FEMALE    LIFE    EXPECTANCY^    ,F7.2   ) 
GO    TO    1000 


C ERROR    IN    TOTAL    POPULATION    FOR    EITHER    MALES    OR    FEMALES 

c 


C 

900    WRITE  (NPRNT, 999) 

999    FORHAT(/,1X,53H***    PREVR    ERROR    NO.    1111    —    INPUT    ERROR    IN    TPM    OR    T 
*PF,/, 1X,83H***    THE    TOTAL    POPULATION   FOR    EITHER    MALES   OR    FEMALES    IS 
*    LESS    THAN    OR    EQUAL    TO    ZERO. ,/, 5X, 18HPREVR   INPUT    VALUES) 
WRITE     (NPRNT, 1111)     PM,PF, SXH,SXF, PPAR, DATB 
1111    FORMAT     (9H  PM=    ,9F12.0    /9X,8F12.0/ 

*/    9H  PF=    ,9F12.0   /9X,8F12.0/ 

+/10H  SXM=    ,9F12.5    /10X,8F12.5 

*/10H              SXF=    ,9F12.5    /10X, 8F12. 5/, 5X, 6HPPAR=    ,7F8.U 
*/5X,6HDATB=    ,F7.2) 
C 
c 

C RETURN    TO    CALLING    PROGRAM 

c 

C 
1000    RETURN 
END 

C.  SAMPLE    INPUT 
See   REVR5 

D.  SAMPLE   OUTPUT 
See   REVR5 
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I.  DESCRIPTION      OF       PROGRAM 

A.  PURPOSE 

To  project  a  population  distribution  by  sex  ani  5-year  age  grotps  for 
a  period  of  5  years,  usiag  survival  rates  by  5-year  age  groups  for  each 
sex,  5-year  age-specific  fertility  rates,  and  the  number  of  migrants  by 
sex  and  5-year  age  groups  during  the  5-year  period.   Although  the  subroutine 
makes  a  projection  for  a  period  of  5  years  only,  a  population  projection  can 
be  made  for  a  time  period  varying  from  5  to  50  years  by  using  the  main  pro- 
gram as  given  in  this  publication. 

B.  DATA  NEEDED 

1.  The  male  population  in  5-year  age  groups. 

2.  The  female  population  in  5-year  age  groups. 

3.  The  5-year  age  group  survival  rates  for  males  during  a  5-year  period, 
ft.  The  5-year  age  group  survival  rates  for  females  during  a  5-year  period. 

5.  The  5-year  age-specific  fertility  rates  for  the  beginning  and 
ending  of  the  5-year  period. 

6.  The  male  migrants  by  5-year  age  groups  during  a  5-year  period. 

7.  The  female  migrants  by  5-year  age  groups  during  a  5-year  period. 

8.  The  sex  ratio  at  birth. 

II.  METHODOLOGY 

A.       MATHEMATICAL    DERIVATION 

The  projected  male    population   at  time    t+5   for   each   particular    5-year   age 
group  is   calculated   as: 

.MP*^5  =      MP*  •    MSt,t+5  +  -f  ,MMt,t+5  '   <1    +  X't+5)   +  "J"  MiT5  ■   d    +  ,^+5) 
5     x+5       5    x    5    x  A5x  5x  4     5    x+5  5     x+5 

HP      is   the    male   population   age    x,x+ft    at   year   t. 

MS  '  is   the  male    population   survival   rate   for  age   x,x+ft   surviving 

to  age   x+5,x+9   during   the   period    t,t+5. 
MM    '  is   the    male    migrants   age   x,x+ft  at    the  time   of   migration   during 

the   time  period    t, t+5. 

The   same   is   done   for   females. 

For   the  open-ended   age   interval   the    projected   population   is  calculated 
as  follows: 

mp*:5  =  w*  .  Ms***:5 + -f  M"?5  •  d +  pI'V5) + -T-  mt?+5  •  <1  +  <+t+5) 

x+  x-5+        x-5+  4     5     x-5  5     x-5  2         x+  x+ 

The  same    is  done    for   females. 
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To  determine  the  population  0-4,  the  number  of  births  must  be  calculated 
as  follows: 

45 
fet,t+5  =  _JL 


f^c^.^^r5-^5) 


where 


TB  t,t;   is  the  total  births  occurring  during  the  interval 

0fc  is  the  age-specific  fertility  rate  for  women  age  x, x+4  at 

time  t. 

Once   the   total. births   have  been  obtained,    the   male   and  female    population 
0-4   are  calculated  as  follows: 

„pt+5  =  (TOt,t*5  .  ^+2.5  .  IBt,t+5)  .  ,ct,t+5  +  J_  pfyVi  .  (1  +  ^t.t+5. 


where 


HSt,t+5     £s  the   survival   rate  for   males   surviving   from   birth  to   age  0-4. 

b,0-4 

FS^'q  ,   is  the  survival  rate  for  females  surviving  from  birth  to 

age  0-4. 

t+2   5 
k,      *        is  the  proportion  of  female  births   to  total   births  at   time 

t+2. 5. 

The   average  annual  crude  birth  rate  during  the   projected    5-year 
period  is  the  average  annual   number   of   births   occurring   during  the  interval 
divided   by  the  mid-period   population. 

bt,t+5  _  2  TBt>t+5 

5    (TP*  +  TPt+5) 

where 

TP     is  the  total   population  at  time  t. 

The   general  fertility  rate   is  the   number  of  births   occurring   during  the 
interval   divided   by   the   mid-period   female   population  in   childbearing   ages. 

GFR=  s  LU 


5      E      (cFP*  +  J*. 
X=15,5      5X5. 


t+5x 
x 
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The  average   annual   crude  death  rate  is   the  average   number   of   deaths 
occurring  each   year   during   the   period   divided   by  the  mid-period   population. 

w 

2     E      (.MP*  -  cMPt+5  -     MM*'**5  +  TB^5  +     pp*  -     FPt+5  -   JM*'^5) 
x=0.5     5     x       5     x  3     x  5     x       5     x  5     x         ' 


d*,t+5  =  xfO^ 


w 


5     Z!      (cMP*  +  cMPt+5  +  JT*  +   JTt+5) 
x=ot5     5     x       5     x  5"  x       5     x 


where 

^t,t+5     £s  tjje  average  annual   crude  death  rate  for   the   interval 
t,t+5. 

The   average   annual   rate  of   natural   increase   for   the   interval   is   the 
crude  birth   rate   ainus   the   crude   death   rate. 

„t,t+5        t,t+5       ,t,t+5 


Finally,    the   average   annual    population    growth  rate   during   the    5- 
year    projection   period   is 


GRt,t+5  _     2    (TPt+5  -  TP*) 
5   (TPt+5  +  TP*) 


B.       COMMENTS 

Although   the    subroutine    makes    a   population    projection   for   a   period   of 
five   years,    the   main    program   using    this   subroutine  has   been   written   for    making 
a  population   projection    for   a   period   that   can   vary   from   5   to   50    years. 

The   main   program  written   to   accompany   this   subroutine  reads   in  mortality 
data   for   the   starting   and   ending   dates   of    the    projection   and  interpolates   be- 
tween  these   dates   for   the   entire   projection.       However,    for  fertility,    the   main 
program   reads  in   age-specific   fertility   rates   for   the  beginning   period   and 
for   each   5-year   projection  period. 

[II.  B    AIM       PROGRAM 

A.        REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1 .   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  PR0J5(Pn,TPM,PMN,PF,TPF,PMF, SXM, SXF, ASFR 1 ,ASFR2, SRB, PPAR) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 
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2.   DIMENSION  stateaent 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

In  this  subroutine,  all  of  the  arguments  in  the  argument  string  except 
for  SRB  are  arrays.   Therefore,  all  of  the  arguments  except  SBB  must  be 
dimensioned.   The  following  dimension  statement  must  be  included  in  any  main 
program  using  this  subroutine. 

DIMENSION  PS  (17)  ,  PF  (17)  ,PBF{17)  ,PHH(17)  ,SXM  (17)  ,SXF(17)  ,ASFB1 (7)  , 
*ASFR2  (7)  ,PPAR(8) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PBOGBAH. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FOBTRAN  library. 

1.   Subroutines  from  this  package 

a.  ABREV 

b.  INTRP* 

c .  ELT* 

d.  MLT* 

e.  PPROJ* 

*    These  subroutines  are  not  called  by  the  subroutine  PB0J5.   They 
are  used  only  by  the  main  program. 


2.  Library  functions 

a.  ABS (absolute  value) 

b.  EXP (exponential) 

c.  ALOG  (natural  logarithm) 

3.  Card  diagram  of  main  program  and  functions 


/ 


/   CARDS  INDICATING  END 

/                 

OF 

DECK     /| 
/  I 

/            INPUT  DATA 

/I  I 

/     COMPUTER  CONTROL  CARDS 

/I  i  I 
.-/III 

/            SUBROUTINE  INTRP 

/111/ 
_/  I  I  1/ 

/. 


subroutine  elt 
"_suIboutinI~mlt" 

'subr0uti»e~ppr03"" 


/ 


/  SUBBOUTINE  MLT        /| 

/__„ _ ___ /  I 

/  SUBROUTINE  PPROJ       /|  | 

/___„ ______ . _. /  I  I  1/ 

/  SUBROUTINE    ABREV  /III/ 

^   .  .  ________________  _^     ^     ^    ^ 

/  main~progIam  /|    |    |    / 

/ . . . . /    III/ 

/  COMPUTER    CONTROL    CARDS         /III/ 

/ _ /    III/ 

I      I    / 


I     I     / 
I     1/ 
I    / 
1/ 
/ 


c. 


FOBMAT    REQUIREMENTS    FOR    CABD    INPUT    DATA    FOB    THE    MAIN    PROGRAM    GIVEN    IN 
SECTION    V.A. 


The  card   format    requirements  for  the    main    program  included   with   this 
publication   are   as  given  below.      The   data   should  be   punched   in    the 
columns    specified.      For   a  more   detailed   description  of   the   input   data, 
see   the   description   of   arguments   in   section  IV.  B.    See  example,   section  V.C. 
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Variable 
Card  Columns        Name  Definition 


1 
2-53 
54-80 

1 


2 
3-4 

5-6 

7-10 
11-14 

15-20 
21-22 


23-24 

25-26 

27-30 
31-32 


NXT 


DAY 

THO 

YEAB 
NDAT2 

SRB 
KODE 


DAY1 


TH01 


YEAR1 


DAY2 


Blank 

Label  used   to  identify   the   output 

Blank 


The  code  indicating  if  there  is 
another  data  set  following  this  one. 
A  zero  punched  in  column  1  indicates 
that  this  is  the  last  set  of  data. 
Any  other  digit  punched  in  column  1 
indicates  that  another  set  of  data 
follows  this  one. 

Blank 

Day  of  the  month  for  which  the  popu- 
lation is  given.   The  number  should 
end  in  column  4. 

Month  of  the  year  for  which  the  popu- 
lation is  given.   The  number  should 
end  in  column  6. 

Year  for  which  the  population  is  given. 

Year  to  which  the  population  is  to  be 
projected. 

Sex  ratio  at  bicth. 

Mortality  indicator  which  specifies 
whether  age-specific  survival  rates 
are  given  or  a  regional  model  life 
table  is  to  be  used.   If  11  is  punched 
in  columns  21  and  22,  then  age-specific 
survival  rates  are  to  be  used  for  the 
earlier  and  later  mortality.   If 
12  is  punched  in  columns  21  and  22, 
the  earlier  mortality  is  given  in 
5-year  age-specific  survival  rates 
and  a  regional  model  life  table  is  being 
used  for  the  later  mortality.   If  21  is 
punched  in  columns  21  and  22,  then  Coale- 
Demeny  Regional  Model  Life  Tables  are  to 
be  used  for  the  earlier  mortality  and 
age-specific  survival  rates  are  to  be  used 
for  the  later  mortality.   If  22  is 
punched  in  columns  21  and  22,  then  Coale- 
Demeny  Regional  Model  Life  Tables  are 
used  for  both  the  earlier  and  later 
mortality.   If  any  other  number  is 
punched  in  columns  21  and  22,  the  main 
program  will  stop  and  no  further  data 
will  be  processed. 

Day  of  the  month  to  which  the  earlier  set 
of  mortality  data  applies.   The  number 
should  end  in  column  24. 

The  month  of  the  year  to  which  the  earlier 
set  of  mortality  data  applies.  The  number 
should  end  in  column  26. 

Year  to  which  the  earlier  set  of  mortality 
data  applies. 

Day  of  the  month  to  which  the  later  set 
of  mortality  data  applies.   The  number 
should  end  in  column  3  2. 
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33-34    ITM02 


35-38 
39 

1-8 
9-16 

73-80 

1-8 
9-16 

U9-56 
57-80 


YEAB2 


NES 


PM 


PM 


The  month  of  the    year    to  which   the   later 
set  of   mortality   data   applies.      The 
number  should  end  in  column   34. 

The   year   to   which   the   later  set  of 
mortality   data   applies. 

The   number  of  different  projections  that 

are   to  be  made   varying    the  fertility  or   mortality. 


The  male   population  0-4.      The  number  should 
end   in  column  8. 

The    male    population   5-9.      The  number  should 
end    in  column   16. 


The    male    population  45-49.      The  number   should 
end    in  column  80. 


The    male    population  50-54.      The   number   should 
end   in  column  8. 

The  male   population  55-59.      The   number  should 
end    in  column    16. 


The  male   population  80+.      The  number  should 
end   in  column  56. 

Blank 


The  variable  PM  always  refuires  two  cards.   The  first  card  (card  no.  3) 
must  always  contain  data,  whereas  the  second  card  (card  no.  4)  can  con- 
tain all  zeroes  depending  on  the  number  of  age  groups  given.   The  last 
age  group  given  must  always  be  the  open-ended  age  group. 


1-8 
9-16 

73-80 

1-8 
9-16 

49-56 
57-80 


PF 


PF 


The  female  population  0-4.   The  number  should 
end  in  column  8. 

The  female  population  5-9.   The  number  should 
end  in  column  16. 


The  female  population  45-49.   The  number  should 
end  in  column  80. 


The  female  population  50-54.   The  number  should 
end  in  column  8. 

The  female  population  55-59.   The  number  should 
end  in  column  16. 


The  female  population  80+.   The  number  should 
end  in  column  56. 

Blank 


The   variable  PF  always   requires   two   cards.      The  first   card    (card  no.    5) 
must   always  contain  data,    whereas  the   second  card    (card  no.    6)    can  be 
all   zeroes   depending  on   the  number  of  age   groups  given.      The   last  age 
group  must  always   be  the  open-ended   age  group. 

I 


2-53 


I  Blank 

I 

ISeries  label  used  to  identify  the  level  of  the 

(fertility  or  mortality  rates. 
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9+1 
-1 


9  +  1 


54-80 


1-7 


8-1  ** 


43-49 


50-80 


1-7 


8-14 


43-49 

50-80 
1-7 


43-49 


50-80 


1-7 


43-49 


50-80 


ASFR 


ASFR 


ASFB 


ASFR 


Blank 


Age-specific  fertility  rate  for  age  group 
15-19  for  the  beginning  of  the  first  5- 
year  projection  interval  of  the  first 
series.   The  decimal  point  should  be  in 
column  1. 

Age-specific  fertility  rate  for  the  age- 
group  20-24  for  the  beginning  of  the  first 
5-year  projection  interval  of  the  first 
series.   The  decimal  point  should  be  in 
column  8. 


Age-specific  fertility  rate  for  the  age  group 
45-49  for  the  beginning  of  the  first  5-year 
projection  interval  of  the  first  series. 
The  decimal  point  should  be  in  column  43. 

Blank 


Age-specific  fertility  rate  for  age  group 
15-19  for  the  beginning  of  the  second  5- 
year  projection  interval  of  the  first  series. 
The  decimal  point  should  be  in  column  1. 

Age-specific  fertility  rate  for  age  group 
20-24  for  the  beginning  of  the  second  5- 
year  projection  interval  of  the  first  series. 
The  decimal  point  should  be  in  column  8. 


Age-specific  fertility  rate  for  age  group 
45-49  for  the  beginning  of  the  second  5- 
year  projection  interval.   The  decimal  point 
should  be  in  column  43. 

Blank 


Age-specific  fertility  rate  for  age  group 
15-19  for  the  beginning  of  the  last  5- 
year  projection  interval.   The  decimal  point 
should  be  in  column  1. 


Age-specific  fertility  rate  for  age  group 
45-49  for  the  beginning  of  the  last  5- 
year  projection  interval.   The  decimal  point 
should  be  in  column  43. 

Blank 


Age-specific  fertility  rate  for  age  group 
15-19  for  the  end  of  the  last  5- year 
projection  interval  for  the  first  series. 
The  decimal  should  be  in  column  1. 


Age-specific  fertility  rate  for  age  group 
45-49  for  the  end  of  the  last  5-year 
projection  interval  for  the  first  series. 
The  decimal  point  should  be  in  column  43. 

Blank 


The   number   of   cards   needed  for   the   age-specific   fertility   rates   is 
equal   to   the   number    of    5-year   projection  intervals  for   the   first 
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series   plus 
intervals. 


se.      So   that  i   is   the  number   of   5-year    projection 


S 

f  10+1 


!-8       fPHHT 


I 


9-16    | 

I 


I 
I 

73-80  | 
1 
I 


I 

j The   total  number   of  migrants  for   the  first 

S 5- year   projection  interval.      The   number 

j should  end   in  column   8. 

1 

J  The   total   number   of  migrants  for   the  second 

1 5-year   projection   interval.      The   number 

1  should  end   in  column    16. 


J  The   total   number   of  migrants   for   the   tenth 
| 5-year   projection  interval.      The   number 
(should  end   in  column   80. 


The   number   of   values   read   for   PHMT  is   the   same  as   the   number   of 
times   the   population   is   to  be   projected  five   years.      The  value   is 
positive   if   the    total   migrants   are   immigrants   and  negative  if  they 
are   emigrants.      This   main   program   will    project  a  population   a 
maximum  of   ten   5 -year   periods   so  PHMT   can   have  between   1   to    10 
values. 


11+1 


12+1 


1-8 


9-16 


73-80 


1-8 


9-16 


49-56 


57-80 


PHMA 


PHMA 


The   proportion   of   the   total  migrants  during 

the   first    5- year    projection    interval 

who   are    males   0-4.      The  decimal    point   is   in 

column   1 . 

The  proportion  of  the  total  migrants 
during  the  first  5-year  projection 
interval  who  are  males  5-9.   The  decimal 
point  is  in  column  9. 


The  proportion  of  the  total  migrants 
during  the  first  5-year  projection 
interval  who  are  males  45-49.   The 
decimal  point  is  in  column  73. 


The  proportion  of  the  total  migrants 
during  the  first  5-year  projection 
interval  who  are  males  50-54.   The 
decimal  point  is  in  column  1. 

The  proportion  of  the  total  migrants 
during  the  first  5-year  projection 
interval  who  are  males  55-59.   The 
decimal  point  is  in  column  9. 


The  proportion  of  the  total  migrants 
during  the  first  5-year  projection 
interval  who  are  males  80+.   The  decimal 
point  is  in  column  49. 

Blank 


Two  cards  must  always  be  provided  for  the  variable  PUMA  for  each  5- 
year  projection  interval.   Values  are  provided  only  for  age  groups  in 
which  there  were  migrants.   The  last  group  given  is  not  assumed  to  be 
the  open-ended  age  group  unless  it  is  the  seventeenth  value  or  is  the 
same  number  of  age  groups  as  given  for  the  population  distribution. 


13+1 


1-8 


9-16 


I 
PHFA    | The  proportion  of  the  total  migrants 
I  during  the  first  5-year  projection 
| interval  who  are  females  0-4.   The  deci- 
|mal  point  is  in  column  1. 

I 

| The    proportion  of   the   total   migrants 

| during   the   first   5-year   projection 
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14  +  1 


7  3-80 


1-8 


9-16 


49-56 


57-80 


PHF3 


interval   who  are   females   5-9. 
decimal   point   is    in  column  9. 


The 


The  proportion  of  the  total  migrants 
during  the  first  5-year  projection 
interval  who  are  females  45-49.   The 
decimal  point  is  in  column  73. 


The    proportion  of   the   total  migrants 
during  the   first    5-year   projection 
interval   who   are   females    50-54. 
The   decimal    point  is  in  column    1. 

The   proportion  of   the   total  migrants 
during   the  first    5-year    interval  who 
are   females    55-59.      The  decimal    point 
is  in  column   9. 


The   proportion  of   the   total  migrants 
during   the  first    5-year   projection 
interval  for  females   80+.      The   decimal 
point  is  in  column   49. 

Blank 


The  requirements   for   PHFA   are   the  same  as   for   PHHA.      The  sum  of 
the    proportion   of   PHHA   and   PHFA   for    all  ages   for   each    5-year 
projection   interval   must   add   to    1.00.      For    each   5-year    pro- 
jection  interval   the   proportion  of    male  migrants   by   5-year   age 
groups  is   followed   by   the   proportion   of   female   migrants   by   5- 
year    age   groups   for   the   same   5-year   projection   interval.      So 
there  are  four  cards   for   each   5-year    projection   interval  -- 
two  cards   for   male   and   two   for   female   migrants. 

The   next   group  of   cards   depends   on  the   value   given  for   KODE   in  card   2, 

If  KQDE=11r  i.e.  columns  21  and  22  of  card  2  contain  11,  survival  rates  are  read 
for  both  the  beginning  and  ending  mortality  date.  J  is  the  number  of  projection 
periods  minus   "8    multiplied   by  4. 


|15+J|       1-8       JSfiX 


!       9-16 


16  +  J 


73-80 


49-56 


SRX 


The  male  survival   rate   from  birth 
to  age  0-4   corresponding   to  the 
earlier   date   given   in   card   2   columns   22 
to   30    (DAY1,TH01,YEAR1 ) .      The  decimal 
point  should  be   in  column    1. 

The    male   survival   rate   from   age   0-4   to 
age    0-9  corresponding    to   the  earlier 
date   given   in  card   2  columns   22   to   30 
(DAY1,TH01,YEAR1) .      The  decimal   point 
should   be   in  column   9. 


The  male   survival   rate   from  age    40-44 
to   age  45-49  corresponding   to  the   earlier 
mortality   date  given   in   card  2   columns   22 
J  to   30    (DAY1,TM01,YEAR1) .      The  decimal   point 
should  be   in  column  73. 


The  male  survival   rate   from  age   45-49 
to   age   50-54  corresponding   to  the 
earlier   date  given   in   card   2   columns   22 
to   30    (DAY1,TM01,YEAB1) .      The  decimal 
point  should  be   in  column   1. 


The   male  survival  rate   from  age  75+ 
to  age   80+  corresponding   to  the 
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17+J 


18+J 


19+J 


20+J 


57-80 


1-8 


9-16 


73-80 


1-8 


49-56 

57-80 
1-8 

9-16 


73-80 


1-8 


49-56 


57-80    J 
I 


SRX 


SRX 


SRX 


SRX 


earlier   date  given  in  card   2  columns  22 
to    30    (DAY1,TM01,YEAR1) .      The   decimal 
point  should   be   in   column    49 

Blank 


The   female  survival  rate  from  birth 
to  age  0-4  corresponding  to  the 
earlier   date  given   in   card  2   columns  22 
to   30    (DAT1,TM01 ,YEAR1) .      The   decimal 
point   is   in  column   1. 

The    survival  rate   for   females   0-4 
surviving   to  5-9   for  the  earlier 
mortality    date  given  in  card   2  columns   22 
to   30    (DAY1,TH01,YEAR1) .      The  decimal  point 
is   in  column  9. 


The    survival  rate   for   females   40-44 
surviving   to   45-49  for    the  earlier 
mortality   date  given   in   card  2    columns   22 
to    30    (DAY1,TH01,YEAR1) .      The  decimal   point 
is   in  column  7  3. 


The   survival  rate    for   females  45-49 
surviving  to   50-54  for   the  earlier 
mortality  date  given  in  card  2   columns   22 
to   30    (DAY1,TH01,YEAR1) .      The  decimal   point 
is  in  column   1. 


The    survival  rate   for    females   75+ 
surviving   80+  for    the   earlier  mortality 
date    given   in  card  2  columns    22   to   30    (DAY1, 
TM01,YEAR1) .      The  decimal   point   is  in  column   49. 

Blank 


The    survival  rate  for    male   births 
surviving    to  0-4   for  the  later  mortality 
date   given   in  card  2  columns  33   to   38 
(DAY2,TM02,Year2) .      The  decimal    point 
is   in  column    1. 

The   survival   rate   for  males  0-4   surviving 
to   5-9  for   the   later   mortality  date   given 
in  card    2  columns    33  to   38    (DAY2,TH02, YEAR2) 
The   decimal    point  is  in  column   9. 


The   survival   rate  for   males   40-44   surviving 
to   45-49  for   the   later   mortality  date  given 
in  card    2  columns    33  to   38    (DAY2,TH02,YEAR2) 
The   decimal    point  is  in  column   73. 


The    survival  rate  for    males   45-49   surviving 
to   50-54   for  the   later  mortality   date  given 
in    card    2    columns    33   to  38    (DAY2,TH02,YEAR2) 
The   decimal   point    is   in  column    1. 


The   survival  rate  for   males  75+  surviving 
to   80+  for   the   later  mortality   date  given 
in    card   2    columns   33   to   38     (DAY2,TH02, YEAR2) 
The   decimal   point   is  in  column   49. 

Blank 
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21+J 


22+J 


1-8 


73-80 


1-8 


49-56 


57-80 


SRX 


SRX 


The    survival  rate   for    female  births   sur- 
viving  to  age  0-4    for   the  later   mortality 
date   given    in  card   2  columns   33   to    38 

(DAY2,TM02,YEAB2) -      The  decimal   point 
is   in  column    1. 


The   survival   rate   for   females  40-44 
surviving   to   45-49   for    the   later 
mortality   date  given   in   card  2    columns   33   to 
38    (DAY2,TH02,YEAB2) .      The   decimal    point   is 
in  column   73. 


The   survival  rate   for   the   females   45-49 
surviving   to   50-54  for    the   later   mortality 
date   given   in  card   2   columns   33   to  38 
(DAY2,TH02,TEAB2) .      The   decimal    point  is   in 
column   1. 


The   survival  rate   for   females   75+  sur- 
viving  to  age  80+   for   the  later  mortality 
date   given   in  card   2  columns   33   to   38 
(DAY2,TM02,YEAB2) .      The   decimal   point  is 
in  column   49. 

Blank 


If  less  than  17  survival  rates  are  to  be  given  for  either  sex 
for  either  the  earlier  or  later  mortality  date,  two  cards 
must  still  be  used  for  each  sex  with  data  in  the  number  of 
columns  needed.   The  last  survival  rate  given  for  each  sex  for 
each  mortality  date  must  be  the  open-ended  survival  rate. 

If  K0DE=12,  i.e.  columns  21  and  22  of  card  2  contain  12,  then  survival  rates 
are  read  for  the  earlier  mortality  date  and  Coale-Demeny  Begional  Model  Life 
Tables  are  used  for  the  later  mortality  date.   Cards  15+J  through  cards  18+J 
for  KODE=m  are  required.   The  following  card  is  needed  for  the  later  mortality 
date. 


I        I         I 
19+J|   1-6   |E0       (Life  expectancy  at  birth  for  males  for  the 

| later  mortality  date.   The  decimal  point 
| should  be  in  column  3. 

I 
!:  | Life  expectancy  at  birth  for  females  for  the 

j later  mortality  date.   The  decimal  point 
| should  be  in  column  9. 
I 
i NBEG     | The  region  in  the  Coale-Demeny  Begional  Model 

| Life  Tables  to  be  used.   A  1,  2,  3  or  4  in  column 
| 13  indicates  the  west,  north,  east,  or  south 
| region,  respectively. 

If  K0DE=21,  i.e.  columns  21  and  22  of  card  2  contain  21,  then  Coale-Demeny 
Begional  Model  Life  Tables  are  used  for  the  earlier  mortality  date  and 
survival  rates  are  read  for  the  later  mortality  date. 


15+J 


1-6 


7-12 


13 


I 


EO 


NBEG 


Life  expectancy  at  birth  for  males  for  the 
earlier  mortality  date.   The  decimal 
point  should  be  in  column  3. 

Life  expectancy  at  birth  for  females  for 
the  earlier  mortality  date.  The  decimal 
point  should  be  in  column  9. 

The  region  in  the  Coale-Demeny  Begional  Model 
Life  Tables  to  be  used.   A  1,  2,  3,  or  4  in  column 
13  indicates  the  west,  north, east,  or  south 
region,  respectively. 


Cards  16+J  through  19+J  are  the  same  as  cards  19+J  through  22+J 
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for    KODE=11. 

if    KODE=22,    i.e.    columns    21    and   22  of   card   2   contain   22,    then   Coale-Bemeny 
Regional    Model   Life  Tables   are  used   for   both   the  earlier  and   later  mortality 
dates.      Card   15+ J  is   the   same   as  card    15+J   for   Kode=21.      Card    16+J   is   the 
same   as   card    19+ J   for   K0DB=12. 

For  each   different   series,    cards   7  through  the   last   are  required. 


IV.     SUBROUTINE 


A.  SUBROUTINE   STATEMENT 

All   external   subroutines   begin   with    the  vord   SUBBOUTINE  followed   by   a 
space,   the  name  of  the   subroutine   and  the  argument   string   enclosed  in 
parentheses.      This  subroutine   begins  as   follows: 

SUBROUTINE   PR0J5 (PH, TPM , PMH ,PF,TPF,PHF,SXM,SXF, ASFR1,ASFB2,SRB,PPAR) 

B.  DESCRIPTION    OF    ARGUMENTS 

Name    How  Obtained   Definition 


PH 


TPM 


PMM 


PF 


TPF 


PMF 


SXM 


Transferred  In 


Transferred  Out 


Transferred  In 


Transferred  In 


Transferred  Out 


Transferred  In 


Transferred  In 


I 

! 
SXF   j Transferred  In 

I 

8 
8 
1 


On  input  PM  contains  the  5- year  age 
distribution  of  males  to  be  projected. 
There  can  be  a  maximum  of  17  age  groups 
with  the  last  age  group  being  the  open- 
ended  age  group.  All  age  groups  must  be 
greater  than  or  equal  to  0. 9.   If  this 
is  not  the  case,  error  message  number  0971 
will  be  written  and  the  subroutine  will 
return  to  the  calling  program.   On  output 
PM  contains  the  projected  5-year  age 
distribution  of  males. 

The  total  male  population  after  the  5-year 
projection. 

The  number  of  male  migrants  by  five  years 
of  age.   There  can  be  a  maximum  of  17  age 
groups  with  the  last  one  being  the  open- 
ended  age  group. 


On  input  PF  cont 
distribution  of 
There  can  be  a  m 
with  the  last  ag 
ended  age  group, 
greater  than  or 
the  case,  error 
written  and  the 
the  calling  prog 
the  projected  5- 
of  females. 


ains  the  5-year  age 
females  to  be  projected, 
aximum  of  17  age  groups 
e  group  being  the  open- 
All  age  groups  must  be 
equal  to  0. 9.   If  this  is  not 
message  number  0971  will  be 
subroutine  will  return  to 
ram.   On  output  PH  contains 
year  age  distribution 


The  total  female  population  after  the  5-year 
projection. 

The  number  of  female  migrants  by  five  years 
of  age.   There  can  be  a  maximum  of  17  age 
groups  with  the  last  one  being  the  open- 
ended  age  group. 

The  5-year  survival  rates  for  males. 

There  can  be  a  maximum  of  17  survival  rates 

for  males.   Each  survival  rate  must  be  less 

than  one  and  greater  than  or  equal  to  zero. 

If  this  is  not  the  case,  error  message 

number  0972  will  be  written  and  the  subroutine 

will  return  to  the  calling  program. 

The  5-year  survival  rates  for 
females.   There  can  be  a  maximum  of 
17  survival  rates  for  females.   Each 
survival  rate  must  be  less  than  one 
and  greater  than  or  equal  to  zero. 
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I  I 

I  1 

J  A5F1TM  Transferred  In 


! 


I 


| ASF B2| Transferred  In 

!  I 


ISRB      J  Transferred   In 
I  I 


jPPAR    (Transferred   Oat 
!  ! 


If   this  is   not   the  case,    error  mes- 
sage number   097  2    will   be   written  out 
and    the  subroutine  will  return  to    the 
calling   program. 

The   5-year   age-specific   fertility 
rates   for   females    15-49  for   the  be- 
ginning  of   the  projection   period. 
Kach    age-specific   fertility   rate   must 
be   greater   than   or  equal   to   zero   and 
less   than    .5.      If    this   is  not   the   case 
error   message  number    0973   is   written 
out   and   the   subroutine   will   return    to 
the   calling   program. 

The    5-year    age- specific   fertility 
rates  for    females    15-49  for   the   ending 
of   the   projection   period.      lach   age- 
specific   fertility   rate  must  be   greater 
than   or   equal  to   zero    and   less   than   .5. 
If   this   is  not   the  case  error  message 
number   0973    is   written   out   and   the 
subroutine   will   return   to  the  calling 
prog  rai£ . 

The   sex  ratio  at    birth.      It  must  have  a 
value  between  .9   and    1.1    or   the   sub- 
routine   will  write  out    error  message 
number  0974    and    return    to  the  calling 
program. 

PPAB   contains  some  of   the  basic   para- 
meters of    the   population.      They    are  as 
follows: 

PPAB(1)     -   Kate  of   growth 

PPAB (2)    -   Rate  of  natural   increase 

PPAB  (3)    -  Crude   birth  rate 

PPAB  (4)    -  Crude  death   rate 

PPAB (5)    -   General   fertility   rate 

PPAB (6)    -   Total   fertility  rate 

PPAB  (7)    -    Male  life   expectancy    at   birth 

PPAB (8)    -  Female  life  expectancy  at   birth 


C.       ERROR    MESSAGES 

0971  ***    PB0J5    EBBOB    HO.    0971    —    INPUT    EBBOB    IN   PH    OB    PF 

***    ONE    AGE    GRODP   OF    EITHER    THE    HALE   OB   FEMALE   POPULATION    IS 
LESS   THAN    OR    EQUAL    TO   0.9. 

0972  ***    PROJ5   ERROR    NO.    0972    --    INPUT    ERROR    IN   SIM   OR    SXF 

***    AN    INTERMEDIATE    SURVIVAL    RATE    FOB    EITHER    HALES   OB    FEMALES 
IS   LESS    THAN    OB    EQUAL   TO   ZERO   OR  GREATER    THAN    1. 

0973  **$    PR0J5   ERROB    NO.    0973    —    INPUT    ERROR    ASFR1    OR   ASFR2 
***    AT   LEAST   ONE    AGE-SPECIFIC   FERTILITY    BATE    IS   LBSS   THAN 

ZEBO    OB    GBEATEB    THAN    .5. 

0974  ***    PB0J5   EBROR    NO.    0974    --    INPUT    ERROR    IN    SBB 

***    THE    SEX    BATE    AT    BIBTH    MUST    BE    BETNEEN    .9    AND   1.1. 


V.       PROGBAH      AND       RESULTS 

A.       COHPUTEB    LISTING    FOR    MAIN    PBOGRAH 


c . . _ . . 

c_— ______ _ , 

C HAIN    PROGRAH   FOR    PR0J5 

C __„ „_. 

c_— _. _„„__„__ _ . 

C —  THIS  PROGRAH  USES  A  SET  OF  DATA  CARDS  IHICH  IS  BEAD  IN  NINE  READ 

C STATEHENTS.   THE  DATA  CARDS  ARE  RELATED  TO  BACH  OF  THE  BEAD 

C STATEHENTS  AS  FOLLOWS. 

C 

C— THE  FIRST  READ  STATBHENT  OSES  ONB  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIBST  BEAD  STATEHBNT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABBL  iOULD  USUALLY  CONTAIN 
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C- THE  NAME  OF  THE  COUNTRY  OB  AREA  WHOSE  DATA  ABE  BEING  ANALYZED  AND 

c GivE  some  INDICATION  AS  TO  THE  TYPE  OF  DATA  OB  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLDHNS 

C 2-53  OF  THIS  CARD. 

C 

C THE    SECOND  READ   STATEMENT    OSES    ONE   DATA   CABD. 

C THE   PURPOSE   OF    THE   SECOND    READ    STATEMENT   IS    TO    BEAD     (1)THE 

C INDICATOR  (NXT)     USED    TO    SIGNAL    IF    THESE    IS   ANOTHER    DATA    SET 

C FOLLOWING    THIS    ONE,     (2) THE   DATE (DAY, THO, YEAR)     FOB    WHICH   THE 

C POPULATION    DISTRIBUTION    IS    GIVEN,     (3) THE   YEAR  (NDAT2)    TO   WHICH    THE 

C POPULATION   IS    TO   BE    PROJECTED,     (4) THE    SEX    RATIO    AT   BIRTH  (SRB) , 

C (5*THE    MORTALITY    INDICATOR (KODE)    USED    TO   SPECIFY    WHETHER    AGE 

C SPECIFIC    SURVIVAL    RATES   ARE   TO    BE   GIVEN   OR    A    REGIONAL    MODEL 

c LIFE    TABLE    IS    TO   BE    USED,     (6) THE    DATE (DAY1, TH01, YEAR  1)    TO   WHICH 

C THE   EARLIER    SET   OF   MORTALITY    DATA    APPLIES,     (7) THE    DATE (DAY2, TM02, 

C YEAR2)     TO    WHICH    THE   LATER    SET    OF   MORTALITY    DATA    APPLIES,    AND     (8) 

c THE    NUMBER   OF    SERIES (NES)     TO    BE    PROJECTED    WITH    THE    SAME    INITIAL 

C POPULATION. 

C NXT      IS   IN   COLUMN    1    OF    THIS   CARD.       A    ZERO   PUNCHED   IN    COLUMN    1 

c INDICATES   THIS    IS    THE    LAST   DATA    SET.       ANY   OTHER    NUMBER 

c PUNCHED    IN    COLUMN    1    INDICATES    THERE  IS   ANOTHER    SET   OF    DATA 

c FOLLOWING    THIS    ONE. 

C— DAY      IS   COLUMNS    3-4    OF   THIS    CARD.       IT    SHOULD    BE   PUNCHED   AS    XX 

C SO    THAT    IT    ENDS    IN    COLUMN    4,    I.E.    IF    IT  IS    THE    FIRST   DAY  OF 

C THE    MONTH    IT   WOULD    BE    PUNCHED    AS    01. 

C TMO      IS    IN    COLUMNS    5-6    OF   THIS    CARD.       IT   SHOULD    BE   PUNCHED   SO 

c THAT   IT    ENDS    IN    COLUMN   6. 

C YEAR      IS    IN   COLUMNS    7-10    OF   THIS    CARD. 

C NDAT2      IS    IN    COLUMNS    11-14   OF   THIS   CARD.       NDAT2    SHOULD    BE  THE 

c YEAR    TO    WHICH    THE   POPULATION    IS    TO   BE    PROJECTED.       IT    MUST 

c BE    SOME    MULTIPLE    OF    FIVE    GREATER    THAN    YEAR    AND    NOT    MORE 

c THAN    fifty    YEARS    GREATER    THAN    YEAB. 

C SRB      IS   IN   COLUMNS    15-20    OF   THIS   CARD.       IT   SHOULD    BE    PUNCHED 

C WITH   THE    DECIMAL    POINT    IN    COLUMN    16. 

C KODE       IS    IN    COLUMNS    21-22    OF   THIS   CARD.       IF    BOTH    THE    BEGINNING 

C AND    ENDING    MORTALITY    DATA    IS   TO    BE   PROVIDED  AS    SURVIVAL 

C RATES    THEN   THE    NUMBER    11    SHOULD    BE    PUNCHED   IN    COLUMNS 

c 21-22.       IF    THE    EARLIER    MORTALITY    DATA    IS    TO    BE    PROVIDED    AS 

C SURVIVAL    RATES    BUT    THE   SECOND    SET    IS    TO    BE    BASED    ON 

C A   COALE-DEMENY    REGIONAL    MODEL    LIFE   TABLE    THEN    THE   NUMBER 

c 12   SHOULD   BE   PUNCHED    IN   COLUMNS    21-22.      IF   THE    EARLIER    SET 

C OF    MORTALITY    DATA   IS   TO    BE    BASED    ON    A    COALE-DEMENY    REGIONAL 

C MODEL   LIFE    TABLE    AND   THE    SECOND    SET   IS   TO    BE   PROVIDED    AS 

C SURVIVAL    RATES    THEN    THE    NUMBER    21    SHOULD   BE   PUNCHED 

c IN   COLUMNS    21-22.       IF    BOTH    SETS    OF    MORTALITY    DATA    ABE   TO    BE 

c BASED    ON   COALE-DEMENY    REGIONAL    MODEL    LIFE    TABLES    THEN    THE 

C NUMBER    22    SHOULD    BE    PUNCHED   IN    COLUMNS    21-22.       ANY   OTHER 

C NUMBER    IS   AN   ERROR    AND    WILL   CAUSE    THE    MAIN   PROGRAM   TO    STOP. 

C DAY1       IS    IN   COLUMNS    23-24    OF   THIS   CARD    AND   REFERS   TO    THE   DAY   OF 

c THE    MONTH   TO   WHICH    THE    EARLIER    MORTALITY    SET  APPLIES   AND 

C SHOULD   BE   PUNCHED    THE    SAME    AS   DAY. 

C TM01       IS    IN   COLUMNS    25-26    OF   THIS   CARD    AND    REFERS   TO    THE   MONTH   OF 

c___ —  THE    YEAR    TO    WHICH    THE   EARLIER    MORTALITY   SET    APPLIES   AND 

c SHOULD   BE   PUNCHED    THE   SAME    AS    TMO. 

C- YEAR1       IS    IN    COLUMNS    27-30   OF   THIS  CABD   AND    REFERS   TO    THE   YEAR 

c T0    HHICH    THE    EARLIER   MORTALITY    SET   APPLIES. 

C-- DAY2       IS    IN   COLUMNS    31-32    OF    THIS   CARD    AND    REFEBS   TO    THE   DAY    OF 

c THE    HONTH   TO   WHICH    THE    LATER   MORTALITY    SET   APPLIES. 

C TM02      IS   IN   COLUMNS    33-34    OF    THIS   CARD   AND   REFERS   TO   THE   MONTH 

C OF   THE    YEAR    TO    WHICH    THE    LATER    MORTALITY    SET   APPLIES. 

C—  --    YEAR2      IS    IN    COLUMNS    35-38   OF   THIS  CARD   AND    IS    THE   YEAR   TO    WHICH 

c THE   LATER   MORTALITY    SET   APPLIES. 

C NES      IS    IN  COLUMN    39.       IT   CAN   HAVE   A    MAXIMUM    VALUE   OF    9. 

C 

C THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS. 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  HALE 

C POPULATION  AGE  DISTRIBUTION (PH)  IN  FIVB  YEAR  AGE  GROUPS. 

c PH   VALUES  ARE  PUNCHED  ON  TWO  CARDS.   FOR  EACH  PH  VALUE  EIGHT 

C COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS 

c -_        op  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  PM  VALUES  CAN  APPEAR 

C ON  THE  FIRST  CARD  SO  THAT  THE  VALUES  END  IN  COLUMNS  8,  16, 

c 24,  ...,  72,  AND  80.   THE  SECOND  CARD  CAN  CONTAIN  A  MAXIMUM 

C OF  SEVEN  PH  VALUES  AND  THE  VALUES  SHOULD  BE  PUNCHED  IN  THE 

C SAME  MANNER  AS  ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALUE 

c ,_        ON  THE  SECOND  CARD  WILL  END  IN  COLUMN  56.   IF  LESS  THAN 

c SEVENTEEN  VALUES  ARE  TO  BE  GIVEN,  TWO  CARDS  MUST  STILL  BE 

c USED  WITH  DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECESSARY  FOR 
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THE  NUMBER  OF  PH  VALUES. 

THE  FOURTH  READ  STATEMENT  USES  TWO  DATA  CARDS. 

THE  PURPOSE  OF  THE  FOURTH  READ  STATEHENT  IS  TO  READ  IN  THE  FEHALE 
POPULATION  DISTRIBUTION(PF)  IN  FIVE  YEAR  AGE  GROUPS. 
PF   VALUES  ARE  CONTAINED  ON  TWO  CARDS  AND  HAVE  THE  SAHE 
REQUIREHENTS  AS  PM  VALUES. 

THE  FIFTH  READ  STATEHENT  USES  ONE  DATA  CARD. 

THE  PURPOSE  OF  THE  FIFTH  READ  STATEHENT  IS  TO  READ  IN  THE  SERIES 

LABEL  TO  BE  USED  TO  IDENTIFY  WHETHER  THE  FERTILITY  RATES  ARE 

LOR,  HEDIUH  OR  HIGH.   THE  SERIES  LABEL  IS  IN  COLUMN  2-53  AND  HUST 

ALWAYS  BE  GIVEN  EVEN  IF  ONLY  ONE  SERIES  IS  TO  BE  RUN. 

THE  SIXTH  READ  STATEHENT  USES  ONE  DATA  CARD  HORE  THAN  THE  NUHBER 
OF  FIVE  YEAR  TIME  PERIODS  THE  POPULATION  IS  PROJECTED. 
THE  PURPOSE  OF  THE  SIXTH  READ  STATEMENT  IS  TO  READ  IN  THE  AGE- 
SPECIFIC  FERTILITY  RATES (ASFR)  FOR  EACH  FIVE  YEAR  PERIOD.   THE 
FIRST  SET  OF  RATES  APPLIES  TO  THE  SAHE  TIME  AS  THE  POPULATION 
DISTRIBUTION.   THE  SECOND  SET  APPLIES  TO  FIVE  YEARS  LATER,  THE 
THIRD  SET  TO  TEN  YEARS  LATER,  .  ..,  AND  THE  LAST  SET  PERTAINS  TO 
THE  YEAR  TO  WHICH  THE  POPULATION  IS  PROJECTED. 

ASFR   VALUES  FOR  FIVE  YEAR  AGE  GROUP  15-49  ARE  CONTAINED  ON  ONE 
CARD  FOR  EACH  YEAR  GIVEN.   THESE  RATES  ARE  GIVEN  PER  UNIT 
I.E.  30  PER  THOUSAND  WOHEN  IS  RECORDED  AS  .030.   SEVEN 
COLUMNS  ARE  ALLOWED  FOR  EACH  FIVE  YEAR  AGE  SPECIFIC 
FERTILITY  WITH  THE  DECIMAL  POINT  IN  COLUMNS  1,  8,  15,  ...» 
36,  AND  43.   THE  FIRST  CARD  IS  FOR  THE  DATE  FOR  WHICH  THE 
POPULATION  DISTRIBUTION  IS  GIVEN  AND  FOR  EACH  TIME  THE 
POPULATION  IS  PROJECTED  THERE  IS  ANOTHER  CARD  WITH  AGE 
SPECIFIC  FERTILITY  RATES.   THE  DATA  IS  PUNCHED  ON  ALL  THESE 
CARDS  IN  THE  SAME  MANNER  AS  THE  FIRST  CARD  OF  ASFR. 

THE  SEVENTH  READ  STATEMENT  USES  ONE  DATA  CARD.  THE  PURPOSE  OF  THE 

SEVENTH  READ  STATEMENT  IS  TO  READ  IN  THE  TOTAL  NUMBER  OF  MIGRANTS 

(PMHT)  FOR  EACH  FIVE  YEAR  PROJECTION  PERIOD. 

PMMT   IS  CONTAINED  ON  ONE  CARD.  THERE  ARE  AS  MANY  PMHT  VALUES  AS 
THERE  ARE  FIVE  YEAR  PROJECTION  INTERVALS  TO  A 
HAXIHUH  OF  10. 

THE  FIRST  PMMT  CONTAINS  THE  TOTAL  NUMBER  OF  MIGRANTS  FOR 
THE  FIRST  FIVE  YEAR  PROJECTION  INTERVALS.  FOR  EACH  PMMT 
VALUE,  EIGHT  DIGITS  ARE  ALLOWED  WITH  THE  FIRST  NUMBER 
ENDING  IN  COLUMN  8. 

THE  EIGHTH  READ  STATEMENT  USES  FOUR  TIMES  AS  MANY  CARDS  AS  THE 
NUMBER  OF  5-YEAR  PROJECTION  INTERVALS. 

THE  PURPOSE  OF  THE  EIGHTH  READ  STATEHENT  IS  TO  READ  IN  THE 
PERCENT  DISTRIBUTION  OF  THE  MIGRANTS  (PMMA  AND  PHFA)  IN  FIVE  YEAR 
AGE  GROUPS.  THE  TOTAL  MALE  AND  FEHALE  MIGRANTS  ADDS  TO  1.00. 
THERE  ARE  TWO  CARDS  FOR  PMMA  VALUES  FOLLOWED  BY  TWO  CARDS  FOR 
PMFA  VALUES  FOR  EACH  FIVE  YEAR  PROJECTION  INTERVAL. 
PMMA   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  THERE  ARE  EIGHT  DIGITS 
ALLOWED  FOR  EACH  PMMA  VALUE  WITH  THE  DECIMAL  POINT  IN 
COLUMN  1,9,17,  ...65  AND  73.  THUS,  THERE  ARE  TEN  VALUES 
ON  THE  FIRST  CARD.  THE  SECOND  CARD  CONTAINS  SEVEN  VALUES 
WITH  THE  LAST  VALUE  IN  COLUMN  49-56. 
PHFA   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  PMFA  VALUES  HAVE  THE 
SAME  REQUIREMENTS  AS  PMMA  VALUES. 

THE  NINTH  READ  STATEMENT  USES  BETWEEN  TWO  AND  EIGHT  DATA  CARDS. 
THE  PURPOSE  OF  THE  NINTH  READ  STATEMENT  IS  TO  READ  IN  THE 
MORTALITY  DATA.   THIS  CAN  BE  READ  IN  FOUR  ALTERNATIVE  WAYS.   THE 
ALTERNATIVE  THAT  IS  TO  BE  USED  DEPENDS  ON  THE  MORTALITY  INDICATOR 
KODE  READ  BY  THE  SECOND  READ  STATEHENT. 

ALTERNATIVE  1,  KODE  =  11,  I.E.  COLUMNS  21  AND  22  OF  CARD  2 
CONTAIN  11,  SURVIVAL  RATES  (SRX)  ARE  TO  BE  READ 
FOR  BOTH  THE  EARLIER  AND  LATER  DATES. 

SRX   VALUES  ARE  CONTAINED  ON  EIGHT  CARDS,  FOUR  CARDS  FOR 
THE  EARLIER  DATE-DAY  1, THO 1, YEAR  1,  AND  FOUR  CARDS 
FOR  THE  LATER  DATE-DAY2,  TH02, YEAR2.   FOR  THE 
EARLIER  DATE,  THERE  ARE  TWO  CARDS  ALLOWED  FOR  THE 
SURVIVAL  RATES  FOR  EACH  SEX.   FIRST  THERE  ARE 
TWO  CARDS  FOR  THE  MALE  SURVIVAL  RATES  FOLLOWED 
BY  TWO  CARDS  FOR  THE  FEMALE  SURVIVAL  RATES.   FOR 
EACH  FIVE  YEAR  SURVIVAL  VALUE,  EIGHT  DIGITS  ARE 
ALLOWED  WITH  A  DECIMAL  POINT  IN  COLUMNS  1,  9,  17, 
...,  65,  AND  73.   THUS,  THERE  ARE  TEN  SURVIVAL 
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C— RATES    FOB    E&LES   ON    THE   FIRST  CARD.       THE   SECOND   CARD 

C— CAN  CONTAIN    SEVEN    SURVIVAL   RATES    FOR    HALES 

C- PDNCHED    IN    THE    SAME    BANNER    AS   ON    THE   FIRST    CARD.       THE 

C- LAST    VALUE   THAT   CAN    BE  ON    THE  SECOND   CARD   IS   IN 

C-~—  COLUMNS    49-56    WITH    A    DECIMAL   POINT    IN   COLUMN    <*9.       IF 

C— LESS    THAN    SEVENTEEN    VALUES    ARE    TO    BE    GIVEN,    TWO    CARDS 

C~—  MUST    STILL    BE    USED    WITH    DATA   ONLY    IN   THE    NUMBER    OF 

C- —  COLUMNS    NECESSARY    FOR    THE    NUMBER    OF    MALE    SURVIVAL 

C- RATES    GIVEN.       THE    THIRD    AND   FOURTH    CARDS    ARE   FOR 

C-- FEMALE   SURVIVAL    RATES    FOB    THE   EARLIER   DATE    AND 

C  — --  HAVE   THE    SAME    REQUIREMENTS    AS   THE    FIRST    TWO   CARDS 

C WHICH    WERE    FOR   HALES.      CARDS   FIVE    THROUGH   EIGHT    ABE 

C— FOR    THE   ENDING   DATE    AND    SHOULD   HAVE    THE   DATA    PUNCHED 

C- IN    THE    SAME    MANNER    AS   THE    FIRST   FOUR    CARDS. 

C ALTERNATIVE    2,    KODE    =    12,    I.E.    COLUMNS    21    AND   22   OF    CARD   2 

C CONTAIN    12,    SURVIVAL    RATES     (SRX)    ARE    TO   BE    READ 

c___ —  F0R    THE    EARLIER    DATE-DAY1,TM01,YEAR1,    AND    COALE-DEMENY 

C REGIONAL    MODEL    LIFE    TABLES    ARE    TO    BE    USED    FOR    THE   LATER 

c— —  DATE-DAY2,TM02,YEAR2    SO   THAT    LIFE    EXPECTANCIES    AT   BIRTH (EO) 

c„ ARE    HEEDED    FOR    EACH    SEX    AND    A   REGION (NREG)     MUST    BE 

c_„_„_  INDICATED.       FIVE    CARDS    ARE    NEEDED   FOR    THIS   ALTERNATIVE. 

C— SRX      VALUES    ARE   CONTAINED    ON   FOUR   CARDS   AND    MUST    BE 

C SUPPLIED   ON    THE    FIRST   FOUR   CARDS   THE    SAME    AS 

C— -  SPECIFIED   IN    ALTERNATIVE    1. 

C-~ —  EO      VALUES    ARE   CONTAINED    ON    THE    FIFTH    CARD.       ONE 

C VALUE    MUST    BE    GIVEN    FOB   EACH   SEX    WITH   SIX 

C— —  DIGITS    ALLOWED    FOR    EACH    VALUE.       THE    VALUE   FOR 

C MALES    IS    IN    COLUMNS    1-6    WITH    A    DECIMAL    POINT    IN 

C COLUMN    3.       THE    VALUE    FOR    FEMALES    IS    IN    COLUMNS 

C 7-12    WITH   THE    DECIMAL    POINT    IN    COLUMN    9. 

C— NREG      IS    IN    COLUMN    13    OF    THE   FIFTH   CARD.       A    VALUE 

C OF    1,    2,    3,    OR    4   PUNCHED    IN    COLUMN    13    INDICATES 

C WEST,    NORTH,    EAST,    OR    SOUTH,    RESPECTIVELY. 

C-- ALTERNATIVE    3,    KODE    =    21,    I.E.    COLUMNS    21    AND    22    OF   CARD    2 

c„_-__  CONTAIN    21,    CQAL1-DEHENY    REGIONAL    HODEL   LIFE   TABLES 

c_„„__  aRE    T0    BE   DSED   F0R    THE    eolieh    DATE-DAY1,TM01,  YEAR1    SO 

c_„„__  That    LIFE    EXPECTANCIES    AT    BIRTH (EO)     ARE    NEEDED    FOR   EACH    SEX 

c_„_„_  aHD    A    REGION(NREGJ     MUST    BE    INDICATED,       AND    SURVIVAL 

c .  RATES (SRX)     ARE    TO    BE   READ    FOR    THE    LATER    DATE-DAY2,TH02, 

c___ —  IEAR2.       FIVE   CARDS    ARE    NEEDED    FOR   THIS   ALTERNATIVE. 

C EO      VALUES    ARE   CONTAINED   ON    THE    FIRST   CABD   OF   THIS 

C GROUP.       EXCEPT    FOR    BEING    ON  THE    FIRST  CARD    THEY 

C— —  SHOULD    BE   PUNCHED    IN    THE    SAflE    MANNER    AS 

C SPECIFIED   IN    ALTERNATIVE    2. 

C NREG      IS    CONTAINED   ON    THE    FIRST    CABD   AND    EXCEPT    FOR 

C— ---  TBAT    FACT   SHOULD    BE    PUNCHED    IN    THE    SAME   HANNEB 

C— ---  AS    SPECIFIED    IN    ALTEBNATIVE    2. 

C— —  -  SRX      VALUES    ABE   CONTAINED    ON    FOUR   CABDS.       IN   THIS 

C CASE    ON    CARDS    TWO    THROUGH    FIVE    AND    SHOULD    BE 

C- PUNCHED    IN    THE    SAME    HANNEB    AS    THE    FIRST  FOUR 

C— CARDS    IN    ALTERNATIVE    1. 

C ALTERNATIVE    4,    KODE   =    22,    I.E.    COLUMNS    21    AND   22    OF    CARD  2 

c_„__  CONTAIN    22,    COALE-DEMENY    BEGIONAL    HODEL   LIFE   TABLES 

C—»__  ARE   T0   BE  USED    FOR    BOTH   THE   EABLIEB    AND    LATEB    DATES. 

c — „_.  THUS,    LIFE    EXPECTANCIES    AT    BIRTH (EO)     ARE   NEEDED    AND   A 

C-— -  REGION  (NREG)    MUST    BE   INDICATED.       TWO   CABDS    ABE    NEEDED    FOB 

c_ THIS   ALTERNATIVE    AND    MUST    BOTH    BB    SPECIFIED   IN    THE   SAME 

c__ MANNER    BUT    WITH    DATA    DUPPLIED    FOR    THE    TWO    DIFFERENT   DATES. 

c ._  THUS,    TWO   CARDS    MUST   BE   COMPLETED    AS    INDICATED    BELOW. 

C EO      VALUES    MUST    BE    PUNCHED    AS   GIVEN   FOR    CARD   FIVE    OF 

C- ALTERNATIVE    2. 

C NREG       MUST    BE    PUNCHED   AS    GIVEN    FOB    CABD    FIVE   OF 

C ALTERNATIVE    2. 

C 

C- ■  IF  MORE  THAN  ONE  SERIES  I S  TO  BE  BUN  THEN  BEAD  STATEMENTS  FIVE 

C— ---  THROUGH  SEVEN  WILL  BE  REPEATED  FOR  EACH  ADDITIONAL  SERIES.   THUS, 

C CARDS  FOR  THESE  READS  MUST  BE  SUPPLIED  FOR  EACH  SERIES.   ONE 

C SHOULD  NOTE  THAT  THE  MORTALITY  DATA  MUST  BE  PBOVIDED  USING  THE 

C SAHE  ALTEBNATIVE  FOR  ALL  SERIES. 

c _ ... _ . 

c _ __ 

DIMENSION  PH(17),PF(17)  ,ASFB(7,11)  ,SBX  (17,2,2)  ,CDHLT(  18,  8) 
*,PPAB(8)  ,SXF(17)  ,SXM(17)  ,  EO  («)  ,  ASFB1  (7)  ,ASFB2(7)  ,SH1 ( 17) ,SH2 (17) 
*,SF1  (17)  ,SF2(17)  ,PHI  (17)  ,PFI(17)  ,PMHA(17,10)  ,PHFA(17,  10)  , 

*  PHH(17)  ,PHF(17)  ,PHHT(10) 

NREAS  =  1 
SPENT  =  15 
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C 

c 

C- READ   IN    THE   DATA 

c 

C 

10  HES1    ■    0 
READ(NREAD,11) 

11  FORMAT  (1X,52H  ) 
READ  (NREAD,  22)  NXT,DfcY ,THO,  YEAR,  NDAT2,  SRB.KODE,  DAY  1,TM01,  YEAR  1,DAY2 

*,TN02,YEAR2,NES 
22    FORMAT(I1,1X,2F2.0,F4.0,I4,F6.4,I2,2(2F2.0,F4.0),I1) 

READ(NREAD,33)      (PM  (I)  „  1  =  1  ,  17) 
33    FORMAT (10F8.0) 

READ(NREAD,33)     (PF  (I)  ,  1=1 ,  17) 
15    READ(NREAD,55) 

55   FORMAT(1X,52H                                                                                                                                  ) 
C 
c „ 

c. CALCULATE   THE    NUMBER   OF    TIMES    TO    READ   THE   FERTILITY    AND    MIGRATION 

c 

C 

NDAT1    =    YEAR 

ITT  =     (NDAT2-NDAT1)    /    5 

IF     (ITT   -    0)     1040,1040,17 

17  CONTINUE 

IF     (ITT   -    10)     19,19,18 

18  ITT  =    10 

19  DATM    =    YEAR    ♦     (.  0833*  (THO-1  .)  )  +  (.0027*  (DAY-1  .) ) 
JTT  =    ITT+1 

DO    20    J   =    1,JTT 

READ(NREAD,66)     (ASFR (I, J) ,1=1 ,7) 

20  CONTINUE 

66    FORMAT (7F7.6) 

READ(NREAD,33)      (PHMT  (J)  ,J=1  ,ITT) 
DO   25    J=1,ITT 

READ(NREAD,89)      (PMHA  (I, J)  ,1=1,17) 
READ(NREAD,89)      (PMFA(I,J)  ,1=1,17) 
25    CONTINUE 

89    FORMAT(10F8.7,/,7F8.7) 
C 
c 

C DETERMINE   HON    THE   MORTALITY    DATA    IS    TO    BE   READ    AND   OBTAIN 

c SURVIVAL    RATES   IF    LIFE    EXPECTANCY    AT    BIRTH    IS    GIVEN 

c __„_. 

c 

IF     (KODE   -    11)     1010,30,50 
30    DO   40   K   =    1,2 

DO   40    J  -    1,2 

READ(NREAD,77)      (SRX  (I,J,K)  ,  I   =    1,17) 
40   CONTINUE 
77    FORMAT (10F8.0) 

GO    TO    200 
50   CONTINUE 

IF     (KODE   -    12)     1010,60,130 
60    DO    70   J   =    1,2 

READ(NREAD,77)     (SRX  (I,J,1)  ,1=1,  17) 
70    CONTINUE 

READ(NREAD,88)     EO (3) , EO (4) , NREG 
88    FORMAT (2F6. 3, 11) 


c_ 

C- TEST   EO    VALUES    AND   NREG    FOR   APPROPRIATE    VALUES 

c _ 

c 

72  JI   =  3 

KI   =  4 

K   =    2 
75    DO   90    I   =    JI,KI 

IF     (EO(I)-20. 0)     1020,90,80 
80   CONTINUE 

IF     (EO(I)-80.0)    90,90,1020 
90   CONTINUE 

IF    (NREG    -    1)     1030,110,100 
100    CONTINUE 

IF    (NREG    -    4)     110,110,1030 
110   CALL   HLT(BO(JI)  ,  1,  NREG,CDMLT) 

DO    120    I   =    1,17 


364       DOCUMENTATION 


1010,140,160 
EO(1)  ,EO(2),NREG 

(SHX  (I, J, 2)  ,1=1,  17) 


120    SRX(I,1,K)     =   CDHLT(I,6) 

CALL    MLT  (EO(KI)  , 2, NREG,CDMLT) 

DO    125    I   =1,17 
125    SRX(I,2,K)     =   CDMLT(I,6) 

IF     (KODE   -22)     200,180,200 
130   CONTINOE 

IF     (KODE   -    21) 
140    READ(NREAD,88) 

DO    150    J   =    1,2 

READ(NREAD,77) 
150  CONTINOE 

JI   =    1 

KI    =   2 

K   =    1 

GO    TO   75 
160   CONTINOE 

IF     (KODE   -    22) 
170    READ(NREAD,88) 

NCONT   =    1 

JI    =    1 

KI    =   2 

K   -    1 

GO    TO    75 
180    CONTINUE 

IF    (NCONT    -    1) 
190    NCONT    =    2 

READ(NREAD,88) 

GO    TO   72 


1010,170,1010 
EO(1)  ,EO  (2)  ,NREG 


200,190,200 

SO  (3)  ,EO(4)  ,NREG 


C 

c . 

C CALCOLATE    TOTAL   MALE    AND    FEMALE    POPOLATION    AND   CLEAR    OUT 

C POPOLATION    PARAMETERS    FOR    FIRST    WRITE 

c _ 

C 


200 

DATB  =  0.0 

TB  =  0.0 

TD  =  0.0 

DO  22  0  I  =  1,8 

220 

PPAR(I)  =  0.0 
DO  230  I  =  1,7 
ASFR1 (I)  =  0.0 

230 

ASFR2(I)  =0.0 
DO  240  I  =  1,17 

TPM  =  TPM  +  PM 

(I) 

TPF  =  TPF  *  PF 

(I) 

PBI(I)  =  PM(I) 

PFI  (I)  =  PF(I) 

SXM  (I)  =0.0 

24  0 

SXF  (I)  =0.0 
NDAY  =  DAY 

NYEAR    =    YEAR 
NHO    =    TMO 
WRITE  (NPRNT,  111) 
111    F0RMAT(1H1) 

WRITE  (NPRNT,  11) 
WRITE  (NPRNT,  55) 

WRITE (NPRNT, 222) NDAY , NMO,NYEAB 
222    FORMAT (/, 1X, 53HPOP0LATION    AT   THE   BEGINNING   OF   THE   PROJECTION    PERIO 
*D    ,2(12,11) ,14) 
CALL   PPROJ (PMI, TPM, PFI, TPF, SXM, SXF, SRB, ASFR1, ASFR2.PPAR, DATB) 
C 
c _ 

C PROJECTION   LOOP 

c_ 

C 

DATA   =    YEAR1    +     (.0833*  (TM01-1 .  ) )  +    (.0027*  (DAY1-1.  )  ) 
DATC   =    YEAR2   ♦     (.0833*  (TH02-1.)  )  +     (.  0027*  (DAY2-1 .)  ) 
300    DO    998      IT   =    1,ITT 

DATB  =    DATM   ♦    5.*(IT-1)     +    2.5 

C 

c__ 

C INTERPOLATE   FOR   SURVIVAL    RATES 

c 

C 

IT1   =    IT    +    1 

DO   305    1=1,17 

SH1  (I)     =   SRI(I,1,1) 
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SH2  (I)     =    SRX(I,  1,2) 

PMM  (I)     =    PHMA(I,IT)     *    PMMT(IT) 

PHF(I)     =    PNFA(I,IT)     *    PNMT(IT) 

SF1  (I)     =   SRX(I,2,1) 
305    SF2  (I)     ■   SRX(I,2,2) 

CALL    ABfiEV  (2,Snl,SH2,M) 

CALL   ABREV  (2,  SF1,  SF2,  N) 

CALL    INTRP (2, 0,N,DATA,DATB,DATC , SM1, SM2, SXM) 

CALL   INTRP  (2,0,N,DATA,DATB,DATC,SF1,SF2,SXF) 
C 
c 

C OBTAIN    AGE    SPECIFIC    FETILITY    RATES  FOR    PROJECTION   PERIOD 

c . 

C 

DO    310    I   =    1,7 
ASFR1(I)     =    ASFR(I,IT) 
310    ASFR2  (I)    =    ASFR(I,IT1) 

CALL   PROJ5(PMI,TPM,PHH,PFI,TPF,PMF,SXH,SXF,ASFR1,ASFR2,SRB,PPAR) 
NYEAR    =    NYEAR    +    5 
NRITE(NPRNT,111) 
WRITE (NPRNT,  11) 
WRITE  (NPRNT,  55) 

WRITE (NPRNT, 333)     NDAY , NHO, NYEAR 
333    FORMAT (/, 1X,24HP0PULATI0N    PROJECTED  TO    ,  2  (12,  1X)  ,  14) 

CALL   PPROJ(PMI,TPM,PFI,TPF, SXM,  SXF,SRB,  ASFR1  , ASFR2,PPAR,DATB) 

998  CONTINUE 

NES1    =    NES1    +    1 

IF     (NES    -    NES1)     999,999,15 

999  CONTINUE 

IF     (NXT)     1000,1000,10 

1010  WRITE (NPRNT, 111) 
WRITE(NPRNT,1011) 

1011  FORMAT (/,1X,95H***  ERROR  IN  INPUT  FOR  MAIN  PROGRAM  —  KODE,  YOU  SH 
*OULD   CHECK    ALL   OF    YOUR    INPUT   DATA    CAREFULLY.) 

GO    TO    1000 

1020  WRITE(NPRNT,111) 
WRITE  (NPRNT, 1021) 

1021  FORMAT (/, 1X,71H*»*  ERROR  IN  INPUT  FOR  MAIN  PROGRAM  —  EO  IS  NOT  BE 
♦TWEEN  20.0  AND  80 . 0 . ,/,5X, 50HYOU  SHOULD  CHECK  ALL  OF  YOUR  INPUT  DA 
*TA    CAREFULLY.) 

GO    TO    1000 

1030  WRITE (NPRNT, 111) 
WRITE  (NPRNT, 1031) 

1031  FORMAT (/,1X,65H***  ERROR  IN  INPUT  FOR  MAIN  PROGRAM  —  NREG  IS  NOT 
*1,  2,  3,  OR  4. ,/,5X,50HYOU  SHOULD  CHECK  ALL  OF  YOUR  INPUT  DATA  CAR 
*EFULLY.) 

GO  TO  1000 

1040  WRITE  (NPRNT, 1041) 

1041  FORMAT (/, 1X, 91 H***  ERROR  IN  INPUT  FOR  MAIN  PROGRAM  --  DIFFERENCE  I 
*N    YEAR    AND    NDAT2    IS    NOT    BETWEEN    0    AND    1.) 

1000    CONTINUE 
STOP 
END 


B.       COMPUTER    LISTING    FOR    SUBROUTINE 

SUBROUTINE    PROJ5 (PH,TPM, PMM ,PF,TPF,PMF,SXM ,SXF, ASFR1, ASFR2,SRB, 

*PPAR) 

c _ 

c 

C PROGRAM    NO.    0970 

c 

C PMM,  PHF,  SXM,  SXF,  ASFR1,  ASFR2  AND  SRB  ARE  INPUT  ARGUMENTS 

C ONLY. 

C PM,  AND  PF  ARE  BOTH  INPUT  AND  OUTPUT  ARGUMENTS.   ON 

C INPUT  THEY  PERTAIN  TO  THE  POPULATION  BEFORE  THE  PROJECTION.   ON 

C OUTPUT  THEY  PERTAIN  TO  THE  POPULATION  AFTER  THE  PROJECTION. 

C TPH,TPF  AND  PPAR  ARE  OUTPUT  ARGUMENTS  ONLY. 

c PH   Is  THE  H&LE  POPULATION  DISTRIBUTION  IN  FIVE  YEAR  AGE  GROUPS. 

C TPM  IS  THE  TOTAL  MALE  POPULATION  AFTER  PROJECTION. 

C PMM  IS  THE  MALE  MIGRANTS  IN  FIVE  YEAR  GROUPS 

C pp   is  THE  FEMALE  POPULATION  DISTRIBUTION  IN  FIVE  YEAR  AGE 

C GROUPS. 

C TPF  IS  THE  TOTAL  FEMALE  POPULATION  AFTER  PROJECTION. 
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c pHp  is  THE  female  MIGRANTS  IN  PIVE  YEAR  AGE  GROUPS 

c .-  SXH   IS  THe  FIVE  YEAR  SURVIVAL  RATES  FOR  BALES. 

c SXf   IS  THE  FIVE  YEAR  SURVIVAL  RATES  FOR  FEHALES. 

C —  ASFR1   IS  THE  FIVE  YEAR  AGE  SPECIFIC  FERTILITY  RATES  FOR  FEHALES 

c 15-49  AT  THE  BEGINNING  OF  THE  PROJECTION  PERIOD. 

c ASFR2   IS  THE  FIVE  YEAR  AGE  SPECIFIC  FERTILITY  RATES  FOR  FEHALES 

c 15-49  AT  THE  END  OF  THE  PROJECTION  PERIOD. 

c SBB   IS  THE  SEX  RATIO  AT  BIRTH. 

c ppAR   CONTAINS  THE  FOLLOWING  POPULATION  PARAHETERS  -  (1)RATE  OF 

c GROWTH,  (2) RATE  OF  NATURAL  INCREASE,  (3)  CRUDE  BIRTH  RATE, 

C (4) CRUDE  DEATH  RATE,  (5) GENERAL  FERTILITY  BATE,  (6) TOTAL 

c FERTILITY  RATE,  (7) HALE  LIFE  EXPECTANCY  AT  BIRTH  AND 

c ,__        (8)  FEMALE  LIFE  EXPECTANCY  AT  BIRTH. 

c 

c 

DIMENSION  PH(17)  ,PF(17)  ,SXH(17)  ,SXF(17)  ,ASFR1{7)  ,ASFR2(7)  , 
*  RF1  (7)  ,PPAR  (8)  ,PHH  (17)  ,PMF(17) 

NPRNT  =15 
C 
c _ _ 

C-  —  —   VERIFY    INPUT   ARGUMENT    VALUES 

c_ 

C 

100  NERR   =    0 
N   =    0 

H    =    0 

NT   =   0 

HT    =   0 

TPH    =0.0 

TPF   =    0.0 

TMHB  =0.0 

DO    104    1=1,17 

IF     (PM(I)-0.9)     112,112,101 

101  H    =    H+1 

TPH   =    TPH    +PH  (I) 

102  CONTINUE 

IF    (PF(I)-0.9)     114,114,103 

103  N    =    N    ♦    1 

TPF   =    TPF    +    PF(I) 

104  THHB   =    THHB    +    PHF(I)     +    PHH  (I) 
IF     (M)     107,107,105 

105  CONTINUE 

IF     (MT)     107,107,106 

106  CONTINUE 

IF     (H-(MT-1))     110,107,110 

107  CONTINUE 

IF     (N)     110,110,108 

108  CONTINUE 

IF     (NT)     116,116,109 

109  CONTINUE 

IF     (N-JNT-1))     110,116,110 

110  WRITE    (NPRNT,111) 

111  FORMAT  (//52H  ***  PROJ5  ERROR  NO.  0971  —  INPUT  ERROR  IN  PM  OR  PF, 
*/89H  ***  ONE  AGE  GROUP  OF  EITHER  THE  HALE  OR  FEMALE  POPULATION  IS 
♦LESS  THAN  OR  EQUAL  TO  0.9.  ) 

NERR  =  1 
GO  TO  116 

112  CONTINUE 

IF     (MT)     113,113,102 

113  MT   =   I 

GO    TO    102 

114  CONTINUE 

IF  (NT)  115,115,104 

115  NT  =  I 

GO  TO  104 

116  MT  =  0 
NT  =  0 
N  =  0 
H  =  0 

DO  122  I  =  1,17 

IF  (SXM  (I) -.000001)  131,131,117 

117  CONTINUE 

IF     (SXM(I)-1.)     118,131,131 

118  M   =    M    +1 

119  CONTINUE 

IF     (SXF  (I) -.000001)     133,133,120 

120  CONTINUE 
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IF     (SXP(I)-I.)     121,133,133 

121  N   =    N    +    1 

122  CONTINUE 

IF    (H)     130,130,125 

125  CON TIN  OB 

IF     (MT)     127,127,126 

126  CONTINUE 

IF     (H-(MT-1))     130,127,130 

127  CONTINUE 

IF     (N)     130,130,128 

128  CONTINUE 

IF    (NT)     130,140,129 

129  CONTINUE 

IF    (N-(NT-1))     130,140,130 

130  HRITE     (NPRNT,222) 

222  FORMAT  (//54H  ***  PBOJ5  ERBOR  NO.  0972  —  INPUT  ERROR  IN  SIM  OR  SX 
*F,/111H  ***  AN  INTERMEDIATE  SURVIVAL  RATE  FOR  EITHER  HALES  OR  FEHA 
*LES    IS    LESS   THAN   OR   EQUAL    TO   ZERO   OR   GREATER    THAN    1.) 

NERR   =    1 

GO   TO    140 

131  CONTINUE 

IF    (MT)    132,132,119 

132  MT   =    I 

GO    TO    119 

133  CONTINUE 

IF  (NT)  134,134,122 

134  NT    =    I 

GO    TO    122 
140    DO    190    1=1,7 

IF    ({ASFR1  (I)*ASFR2(I)) +.000001)     180,170,170 

170  CONTINUE 

IF    (ASFR1  (I)-. 5)     171,171,180 

171  CONTINUE 

IF     (ASFR2(I)-.5)     172,172,180 

172  CONTINUE 
GO   TO    190 

180    WRITE     (NPRNT,  444) 

444  FORMAT  (//55H  ***  PROJ5  ERROR  NO.  0973  —  INPUT  ERROR  ASFR1  OR  ASFR 
*2    ,/,83H    ***   AT    LEAST    ONE    AGE-SPECIFIC    FERTILITY    RATE    IS   LESS    THAN 

*  ZERO    OR    GREATER    THAN     .5.) 
NERR   =    1 

GO    TO    200 
190   CONTINUE 

200  CONTINUE 

IF    (SRB-.9)     210,210,201 

201  CONTINUE 

IF     (SRB-1.1)     220,220,210 
210    WRITE    (NPRNT,  555) 

555    FORMAT     (//47B    ***    PROJ5   ERROR    NO.    0974    —   INPOT    ERROR    IN    SRB, 
*/54H   ***    THE   SEX   RATE    AT    BIRTH    MUST   BE    BETWEEN    .9    AND    1.1.) 

NERR=    1 
220    CONTINUE 

IF     (NERR)     230,250,230 
230    NRITE     (NPRNT, 666)     PH, PHM, PF,PMF, SXM, SXF, ASFR 1,ASFR2, SRB 
666    FORMAT     (/26H  PROJ5    INPUT    ARGUMENTS 

*  /   9H  PH=    ,9F12.0   /9X,8F12.0   /10H  PHM=    ,9F12. 0,/10X,8F12. 0 

*  /   9H  PF=    ,9F12.0    /9X,8F12.0    /10H  PMF=    , 9F12. 0,/10X,8F12.0 

*  /10H  SXH=    ,9F12. 4/10X,8Fl2.4   /10H  SXF=    , 9F12 .4/10X,8F12.4 

*  /12H  ASFR1=    ,7F8.5   /12H  ASFR2=    ,7F8.5 

*  /10H  SRB=    ,F8.3   ) 
TPH=  0.0 

TPF=   0.0 

TB=   0.0 

TD=    0.0 

DO    240    1=1,8 
240    PPAR(I)    =    0.0 

DO    245   1=1,17 

PH(I)     =  0.0 

PF(I)    =0.0 
245  CONTINUE 

GO    TO    1000 
C 
c _ 

C PROJECTION   LOOP 

c 

c 

250   TB=   0.0 
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TD=   0.0 
T1=    TPM+TPF 
TPH=   0.0 
TPF=   0.0 
DO   255    1=1,7 

255  BF1  (I)    =   PF(I+3) 
C 

c . 

C ADJUST   POPULATION, PMF5,    OR   SURVIVAL    RATES,    SHF5, 

c T0   COMPATIBLE    NUMBER    OF   AGE   GROUPS,    NG    AND    MAKE    CERTAIN 

c THE   MIGRATION    ARRAY    IS    NOT    LARGER   THAN    NG. 

c 

C 

CALL    ABREV     (2, SXN, SXF,NG) 
CALL   ABREV     (1,PH,PF,  NG) 
CALL    ABREV     (3,PH,SXH, NG) 
CALL   ABREV     (3,PF, SXF, NG) 
IF     (NG    -    17)    256,258,258 

256  NGP1    =    NG    +    1 

DO    257    J=NGP1,17 

PMH(NG)     =    PHM  (NG)     +    PHM  (J) 

257  PMF(NG)     =    PMF  (NG)     +    PMF  (J) 

C 

c _ 

c PROJECT    POPULATION,    AND    SUM    TOTAL   BIRTHS    INTO   TB 

c 

C 

258  NG1    ■    NG    -    1 

PM  (NG)     =    PM  (NG)     +    PM(NG1) 

PF(NG)     =    PF(NG)     +    PF(NG1) 

DO    260    1=1,7 
260    TB=    TB+ (ASFR1  (I)*PF  (1  +  3)) 

DO    280    IX=2,NG1 

1=    NG1-IX+2 

PM(I)=    PM  (I-1)*SXM(I)+.25*PMM(I-1)  *(1.+SXM(I)  )  +.25*PMM  (I)  *  (1  .+ 
*SXM  (1  +  1)) 

TPM=   TPM+PM(I) 

PF(I)=    PF(I-1)  *SXF(I)+.25*PHF  (1-1)  *(1.+SXF(I)  ) +.25*PMF  (I)  *  (1 .  ♦ 
♦SXF  (1  +  1)) 

TD=TD+PHM  (I)  +PMF  (I ) 
280    TPF=   TPF+PF(I) 

PM(NG)     =   PM(NG)  *SXH(NG)  +  (.  25*PMH  (NG1) +.  5*PMH  (NG)  )  *  (1. +SXM  (NG)  ) 

PF(NG)  =PF  (NG)  *SXF(NG)+  (.25*PMF  (NG1)  +.  5*PMF  (NG) )  *  (1  .+SXF  (NG)) 

TPF   =    TPF    ♦    PF(NG) 

TPH    =    TPM    +    PM(NG) 

TD   =   TD+PMH(NG)     +    PMF  (NG)     +    PHM(1)     +    PMF(1) 

DO   285    1=1,7 
285    TB=    TB+(ASFB2(I)*PF(I  +  3)) 
C 
c 

C CALCULATE    BIRTHS (TB) ,    DEATHS (TD) ,    TOTAL   POPULATION    (TPM    AND   TPF) 

c 

C 

TB=   TB*2.5 

TBF=  TB/(1  .0+SRB) 

TBM=   TBF*SRB 

PM(1)=    TBM*SXM(1)  +.25*PMM  (1 )  *  (1  . +SXM  (2)  ) 

PF(1)=    TBF*SXF(1)+.25*PMF(1)*(1.+SXF(2)) 

TPH=   TPH+PM(1) 

TPF=   TPF+PP(1) 

T2    =  TPM    +    TPF 

TD   =   T1    -    T2    +   TD    +   TB 
C 
c 

C CALCULATE   CRUDE    VITAL    RATES    (CBR    AND    CDR) , 

C AND   GROWTH    RATES    (RNG    AND    BG) 

c 

C 

THID=    (T1+T2)*2.5 

PPAR(3)  =    TB/TMID 

PPAR(4)=   TD/THID 

PPAR(2)  =   PPAR(3)     -    PPAR  (4) 

PPAR(1)=     (T2-T1)/THID 
C 

C 

C CALCULATE    TOTAL  AND    GENERAL   FERTILITY    RATES     (TFR    AND    GFR) 

c j. 
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C 

RF=   0.0 
TFR=    0.0 
DO    300    1=1,7 
RP=    RF+RF1  (I)  *PF  (1  +  3) 
300   TFB=   TPR+ASFR1 (I) +ASFR2 (I) 
PPAR(5)  =   TB/(BF*2.  5) 
PPAR(6)=    TFR*2.5 

C 

c 

C CALCULATE  LIFE  EXPECTANCY  AT  BIRTH  {EOH  AND  EOF) 

c 

C 

RH=  5.0 

EOH=  0.0 

DO  320  1=1,16 

IF     (SXH  (I+1)-0.  001)     330,310,310 
310    Rfl=   RH*SXM(I) 
320    EOH=   EOH+RH 

1=    17 
330    EOH=    EOH+((RB*SXM(I))/(1.0-SXH(I))) 

RF=   5.0 

EOF=    0.0 

DO    350    1=1,16 

IF     (SXF  (I+1)-0.001)     360,340,340 
340    RF=   RF*SXF(I) 
350    EOF=   EOF+RF 

1=    17 
360    EOF=   EOF*(  (RF*SXF(I))/(1.0-SXF(I)  )) 

PPAR(7)    =    EOH 

PPAR(8)    =    EOF 
C 
c 

C RETURN    TO   CALLING    PROGRAH 

c 

C 
1000    RETURN 
END 
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PSPP 

I.  DESCRIPTION       OF       PROGRAM 

A.   PURPOSE 

To  print  out  the  distribution  of  a  stable  population  by  5-year  age  groups, 
the  cumulative  distribution,  and  other  parameters  of  the  stable  population 
distribution. 

E.   DATA  NEEDED 

1.  The  indicator  of  the  life  table  source  of  tbe5Lx  used  to  calculate  the 
stable  population  distribution. 

2.  The  intrinsic  growth  rate. 

3.  The  distribution  of  the  stable  population. 

4.  The  cumulative  distribution  of  the  stable  population. 

5.  The  other  population  parameters  for  the  stable  population. 

6.  The  sex  of  the  stable  population. 

7.  The  life  expectancy  at  birth  corresponding  to  the  stable  population 
distribut  ion. 

II.  METHODOLOGY 

This   is  a   print    subroutine.      It    prints   out    the   information 
supplied  to   it . 

III.    MAIN      PROGRAM 

A.       REQUIREMENTS 

The  main   program   is  reguired   to   use   this   subroutine   and   obtain   the   data 
(input)    necessary   for    the   subroutine  to    perform   its  calculations.      A   main 
program  can   use   a    subroutine   alone   or    in  conjunction   with   other   subroutines. 
For   a   detailed   explanation  of   writing   main   programs   using  more  than   one   sub- 
routine see  the    Appendix. 

1.      CAIL  statement 

Once   the  main   program   has   obtained  the   data   required   for  the   subroutine   to 
do   its  calculations,   the   main  program  transmits  this  data   to  the    subroutine 
and  the   subroutine    returns   the   results   of  the   calculations    performed  to  the 
main  program.      This  communication    process   is  made   through    the   CALL    statement. 

The    form  of   the   CALL   statement    for    this   subroutine   is   as  follows: 

CALL    PSPP(NREG, RNG, SP,  COHSP,CSP, NSEX,EO) 


For   the   purpose   of   emphasizing  the    input   arguments,    they   are   underlined   in   the 
above   CALL   statement. 


2.      DIMENSION   statement 

The  variable  names  in  the  CALL  statement  may  be  single- valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable   name  is  dimensioned   in   any  subroutine   called  by  the  main    program. 


For  this  subroutine   variable  names   SP,    COMSP  and   CSP   in  the    argument   string 
are   all   arrays.      The   following   dimension  statement  must  be   included   in  any 
main   program  using   this   subroutine. 

DIMENSION    SP(18)  ,C0MSP(18)  ,CSP  (13) 

B.       OTHER    SUBROUTINES    AND  FUNCTIONS    NEEDED    IN   CONJUNCTION    HITH    THB   PROGRAM. 

See    SPP 
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FORMAT  REQUIREMENTS  FOB  CARD  INPUT  DATA  POR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 


See  SPP 


IV.  SUBROUTINE 


A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  PSPP  (NREG, RNG,SP,CUMSE, CSP,  NSEX,  EO) 

B.  DESCRIPTION  OF  ARGUMENTS. 


Name 


NREG 


How  Obtained   Definition 


RNG 


NSEX 


EO 


SP 


CUHSP 


CSP 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred    In 


Transferred   In 


Source  of  the   mortality 
by    one    of   the   following 
Coale-Demeny   Model   Regi 
indicated  by   1,2,3,    or 
North,    East,    or    South, 

B)  an  empirical   life  ta 

C)  a  United  Nations*  mo 
For  any  other  value  of 
assumed  that  the,-L  val 
empirical  life  table  an 
written  out  to  indicate 
subroutine   continues   it 

Intrinsic  growth  rate. 


data  as   indicated 
:      A)    one  of 
onal   life  Tables 
4   for  West, 
respectively; 
ble,    NRSG=5;    or 
del,    SREG=6. 
NREG,    it   is 
ues  came   from  an 
d  a   message    is 

this  and   the 
s  calculations. 


The   sex   of    the   stable   population   distri- 
bution.     NSEX=1    indicates  males,   NSEX=2 
females,    and   NSEX=3   both   sexes.      If    NSEX 
eguals  any  other  value,   a  message    is 
printed  out   and  the  subroutine  continues. 

The    life  expectancy   at    birth   for  the  stable 
population  distribution. 

SP  contains   the   stable    population 
distribution   for  the    18  age   groups 
0,1-4,5-9,..., 75-79, 80+   calculated 
by   SPP. 

CUMSP  contains   the    values   of  the  cumulative 
age  distribution  for   the   stable   pop- 
ulation  for   ages   1,5,10,  15,... ,75, 
80+.      The  last   cumulative  age  group 
(80+)    should   be    1.0. 

An  array  of    13   stable  population 

parameters   and    summary   ratios 

calculated   by   SPP: 

CSP(1)-The    intrinsic  birth   rate 

CSP(2)-The   intrinsic  death  rate 

CSP  (3) -The   average  age  of  the  stable 

population 
CSP  (4)  -The    proportion   of   the  popula- 
tion  age   15-49 
CSP(5)-The   ratio  of  the  births   to 

the  population    15-19 
CSP  (6) -The   ratio  of  the   population 

under   5  years  of   age   to  the 

population    15-49 
CSP (7) -The   ratio  of   the    population 

age   5-9   to  the   population    20-54 
CSP  (8) -The  ratio  of  the   population 

age    5-14  to  the  population  age 

5  and   over 
CSP  (9) -The   ratio  of   the    population 
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0-14  plus  the  population  age  65 
and  over  to  the  population  15-64 
CSP  (10)-CSP  (13)  are  gross  reproduc- 
tion rates  which  are  calculated  only 
for  those  cases  when  the  source  of 
L   indicated  by  NREG  is  the  Coale- 
Demeny  Regional  Model  Life  Tables. 
CSP  (10)  -CSP  ( 13)  correspond  to  mean 
ages  at  childbearing  of  27,  29,  31, 
and  33,  respectively. 

C.   ERROR  MESSAGES 

None 

V.       PROGRAM       AND      RESULTS 

A.  COMPUTER   LISTING   FOR    MAIN    PROGRAM 
See  SPP 

B.  COMPUTER  LISTING    POR    SUBROUTINE    PSPP 

SUBROUTINE   PSPP (NREG, RNG, SP,CUMSP , CSP ,NSEX ,E0 ) 
c 

C PROGRAM    NO.     1000 

c 

C THE    INPUT    ARGUMENTS    TO  THIS    SUBROUTINE    ARE      NREG,      RNG,       SP, 

C CUMSP,       CSP,       NSEX,       AND      E0 . 

C THERE    ARE   NO    OUTPUT    ARGUMENTS    TO    THIS    SUBROUTINE. 

C NREG      IS   THE    SOURCE    OF    THE    MORTALITY    DATA.       NREG    =    1,2,3,    OR    4 

c INDICATES    A   REGION   FROM   THE   COALE-DEMEKY    MODEL    LIFE   TABLE 

c SYSTEM,       NREG    =    5    INDICATES    AN    EMPIRICAL    IIFE    TABLE,       AND 

C NREG   =    6    INDICATES    A    UNITED    NATIONS    MODEL    LIFE   TABLE. 

C RNG      IS   THE    INTRINSIC    GROWTH    RATE.. 

C SP      IS    THE   AGE   DISTRIBUTION    OF   THE    STABLE    POPULATION    GIVEN   AS 

C OUTPUT. 

C CUMSP   IS  THE  CUMULATIVE  AGE  DISTRIBUTION  OF  THE  STABLE  POPULA- 

c TI0H  GIVEN  AS  OUTPUT. 

C- CSP   IS  THE  PARAMETERS  OF  THE  STABLE  POPULATION  GIVEN  AS  OUTPUT. 

C NSEX   IS  THE  SEX  OF  THE  STABLE  POPULATION. 

c go   is  THE  LIFE  EXPECTANCY  AT  BIPTH  OF  THE  STABLE  POPULATION. 

c 

c 

DIMENSION   SP(18)  , CUMSP  (18)  ,  CSP  (13) 

NPRNT=15 

WRITE    (NPRNT,10) 

10  FORMAT (///,15X,    19HSTABLE      POPULATION      /) 
IF     (NSEX    -    1)     12,  11,11 

11  CONTINUE 

IF     (NSEX    -   3)     14,14,12 

12  WRITE  (NPRNT,  13) 

13  FOBMAT(22X,42HSEX    INCORRECTLY    SPECIFIED    IN    PRINT    ROUTINE,/) 
GO   TC  45 

14  GO   TO    (15,25,35) , NSEX 

15  WRITE    (NPRNT,  20) 

20    FORMAT  (22X,    4HMALE,    /) 

GO   TO   45 
25    WRITE    (NPRNT, 30) 
30    FORMAT  (21X,    6HFEMALE,    /) 

GO   TO   45 
35    WRITE    (NPRNT, 40) 
40    FORMAT (19X,    10HBOTH    SEXES,    /) 
45    WRITE    (SPENT, 50) 

50    FORMAT  (6X,    56HAGE  PROPORTION      CUMULATIVE  PAHAHE 

6TEFS,/,    15X,    20HIN    AGE  PROPORTION    ,   //) 

WRITE  (NPRNT,  100)     SP  ( 1)  ,CUMSP(  1)  ,  E0,  SP  (2)  ,  CUMSP  (2)  ,RNG 
100    FORHAT(5X,5H      -1    ,    5X,    2(F6.4,5X),    5X, 

625H    LIFB   EXPECTANCY    AT    BIRTH,    3X,    F5.2,    / 
S5X,    5H    1-4    ,    5X,    2(F6.4,5X),    5X, 
&25H  INTRINSIC    GROWTH   RATE,    2X,    F6.4) 

WHITE  (NPRNT,  110)     SP  (3)  ,  CUMSP  (3),CSP  (1)  ,SP  (4), CUMSP  (4)  ,CSP  (2) 
110    FOR HAT (5X,    5H    5-9    ,    5X,    2(F6.4,5X),    5X, 
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&25H  INTRINSIC    BIRTH   RATE,    2X,    F6.4,    /, 

&5X,    5H10-14,    5X,    2(F6.4,5X),    5X, 

625H  INTRINSIC    DEATH    RATE,    2X,    F6.  4) 

WRITE  (NERNT,  12  0)     SP  (5)  ,COHSP  (5),CSP(3)  ,SP  (6)  ,COHSE  (6)  ,CSP(4) 
120    FORHAT(5X,    5H15-19,    5X,    2(F6.4,5X),    5X, 
625H  AVERAGE    AGE,     3X  ,    F5.  2,    /, 

S5X,    5H20-24,    5X,    2(F6.4,5X),    5X, 
625H  PROPORTION    AGE    15-49,     3X,    F5. 3) 

WRITE  (NPRNT,  130)     SP  (7)  ,C0MSP  (7)  ,CSP  (5)  ,SP{8)  ,  CUMSP(8)  ,CSP(6) 
130    FOEMAT(5X,    5H25-29,    5X,    2{F6.4,5X),    5X , 
S25H  BIRTHS/   POP.    15-49,    3X,    F5.3,    /, 

65X,    5H30-34,    5X,    2(F6.4,5X),    5X, 
625H    POP.    ONDER    5/    POP.     15-49,    3X ,    F5.3) 

WRITE  (NPRNT,  140)     SP(9)  ,COHSP  (9),CSP  (7)  ,SP  (10)  ,CUMSP(10)  ,CSP(8) 
140    FORMAT(5X,    5H35-39,    5X,    2(F6.4,5X),     5X, 
625H  POP.    5-9/   POP.    20-54,    3X,    F5.3,    /, 

S5X,    5H40-44,    5X,    2(F6.4,5X),    5X, 
&25H  POP.    5-14/    POP.    5+,    3X,    F5. 3) 

WRITE  (NPRNT,  150)    SP (11 ) ,C0MSP  (11)  ,CSP(9)  ,  SP(12)  ,CDHSP(12) 

150  FOFHAT(5X,    5H45-49,    5X,    F6.4,    5X,    F6.4,    3X, 
S32EPOP.    0-14    +    POP.    65+/   POP.     15-64,    3X,    F5.3,    / 
&5X,    5H50-54,    5X,    2(F6.4,5X),    5X, 

&25H  1IFE      TABLE:  ) 

IF     (NREG    -    1)     152,151,151 

151  CONTINUE 

IF     (NREG    -   6)     154,154,152 

152  WRITE  (NPRNT,  153) 

153  FORMAT(/, 1X, 34HBAD   REGION    GIVEN    IN    PRINT    ROOTINE./) 
GO    TO   245 

154  COHTINUE 

GO    TO    (155,165,175,185,195,205)  , NREG 

155  WRITE(NPRNT,160)     SP  (13)  ,COMSP  (13) 

160    FORMAT (5X,    5H55-59,    5X,    F6. 4,    5X,    F6. 4,    4X, 
831H    COALE-DEMENY    WEST    REGION    MODEL   ) 
GO    TO    220 
165    WRITE  (NPRNT,  170)     SP(  13)  ,COHSP(  13) 
170    FORMAT(5X,    5H55-59,    5X ,    F6.4,    5X,    F6.4,    4X, 
S31HCOALF-DEMENY    NORTH    REGION    MODEL    ) 
GO   TO   220 
175    WRITE(NPRNT,180)     SP  (1  3)  ,COMSP  (13) 
180    FOFMAT(5X,    5H55-59,    5X,    F6.4,    5X,    F6.4,    4X, 
&31E    COALE-DEHENY    EAST    REGION    MODEL    ) 
GO    TO    2  20 
185    WRITE  (NF5NT, 190)     SP  (13)  ,COMSP  (13) 
190    FORMAT (5X,    5H55-59,    5X ,    F6. 4,     5X,     F6. 4,    4X, 

S31HCOALE-DEHENY   SOOTH    REGION    MODEL   ) 
220    WRITE  (NERNT,  225)     SP(14)  ,COMSP  (14  ) 
225    FORMAT (5X,    5H60-64,    5X,    F6. 4,    5X,     F6. 4,    3X, 
632HGRR    FOR    MEAN    AGE   OF    CHILDBEARING    ) 
WRITE  (NPRNT,230)     SP(15)  ,COMSP(15)  ,CSP  (10)  ,SP  (16)  ,COHSP(16)  ,CSP(11) 
230    FORMAT(5X,    5H65-69,    5X,     2(F6.4,5X),    20X,     10H    AT    AGE    27,F8.3,/ 
&5X,    5H70-74,    5X,     2(F6.4,5X),    20X,     10H    AT    AGE   29,    F8.3) 
WRITE  (NPRNT,240)     SP(17)  ,C0MSP(17)  ,CSP  (12)  ,SP  (18)  ,COMSP(18)  ,CSP(13) 
240    FORHAT(5X,    5H75-79,    5X,    2(F6.4,5X),     20X,     10H    AT    AGE    31,F8.3,/ 
G5X,    5H80+       ,    5X,    2(F6.4,5X),    20X,     10H    AT    AGE    33,    P8.3) 
GO   TO   265 
195    WRITE  (NPRNT,  200)     SP  ( 13)  ,CDHSP(  13) 
200    FORMAT(5X,    5H55-59,    5X,    2(F6.4,5X),    5X, 
&25H         EMPIRICALLY    DERIVED  ) 

GO   TO   245 
205    WRITE  (NPRNT,  210)    SP  (1  3)  ,COHSP  (13) 
210    FOPMAT(5X,    5H55-59,    5X,    2(F6.4,5X),    5X, 

625H      ONITED    NATIONS       MODEL         ) 
215   GO    TO    (220,220,220,220,245,245)  , NREG 
245    NAGE    =    €0 

DO    255    1=14,17 
NAGE5   a    NAGE    ♦    4 

WRITE  (NFRNT,250)     NAGE,  NAGE5,  SP  (I)  ,COHSP(I) 
250    F0RHAT(5X,I2,    1H- ,   12,    5X ,    2(F6.4,5X)) 
255   NAGE    =    NAGE    ♦    5 
WRITE  (NPRNT, 260)     SP(18)  ,COMSP  (18) 
260    FORMAT  (5X,    5H80*       ,    5X,    2(F6. 4,5X)) 
265    RETORN 
END 

C.    SAMPLE    INPOT 


See   SEP 
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D.    SAHPLE    OOTPOT 
See    SIP 


PYRMD 


I.  DESCRIPTION       OF       PROGRAM 

A.  PURPOSE 

To  plot  either  one  or  two  population  pyramids  from  one  or  two 
population  distributions,  respectively. 

B.  DATA  NEEDED 

1.  The  male  population  in  5-year  age  groups  for  the  first 
distribution. 

2.  The  female  population  in  5-year  age  groups  for  the  first 
distribution. 

If  two  distributions  are  to  be  plotted  then  the  following  data  is  also 
necessary: 

3.  The  male  population  in  5-year  age  groups  for  the  second 
distribution. 

4.  The  female  population  in  5-year  age  groups  for  the  second 
distribution. 

II.  METHODOLOGY 

The   total    population  is   computed   for   each  distribution  as   follows: 

y-5 

TP  =     T]      LMP     +  CFP   )  +  MP    .   +  FP    . 

Jtf,5    5    x      5    x  y+         ** 


where 

SMP      is   the  male   population    from  age   x,  x+4 

CPP      is  the   female   population  from  age   x,x  +  <* 
5      x 

y    is   the  upper   bound  of   the   last   5- year   age   group. 

HP        is   the  open-ended  male    population  group. 

FP        is  the  open-ended  female   population  group. 

The  percent  of  the    population   in  each   age   group   for   each   sex  is 
calculated  as: 

MP 

PMP     =  — * — — 

5       x  TP 


The  percent  for  each  female  age  group  is  calculated  in  the  same  manner. 
These  percentages  are  then  plotted  in  a  pyramid. 

If  data  are  given  for  two  distributions,  the  same  procedure  is  followed 
for  the  second  distribution.   Both  distributions  are  then  plotted  on  the 
same  graph. 
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III.  BAIN   PROGRAM 


A.   REQUIREMENTS 


The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1 .   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  PYRMD (PM, PF,QH,QF) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

All  of  the  variables  in  the  argument  string  are  arrays.   The  following 
dimension  statement  must  be  included  in  any  main  program  using  this  sub- 
routine. 

DIMENSION  PH(17)  ,PF(17)  ,QM  (17)  ,QF(17) 


B. 


OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 


Some  subroutines  actually  call  other  subroutines  or  functions  in  ocder  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 


1.   Subroutines  from  this  package 
ABREV 


2.  Library   functions 
ABS 

3.  Card   diagram  of  main   program  and   subroutines. 


/        CARDS    INDICATING    END   OF    DECK        / 

/  ~~INPUT~DATA  "  /| 

/                COBPUTER~CONTR0L~CARDS  /|     | 

/ /    I     I 

/  SUBROUTINE   ABREV  /III/ 

/ /    III/ 

/  SUBROUTINE    PYRMD  /III/ 

/ /    III/ 

/  MAIN    PROGRAM  /III/ 

/ /    III/ 

/  COMPUTER  CONTROL    CARDS         /III/ 

/ /    III/ 

I     I    / 


P 
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C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV.  B.   See  example,  section  V.C. 


Variable 
Card  Columns   Name    Definition 


1 

2-53 

54-80 

1 


3-80 

1-8 

9-16 

73-80 

1-8 
9-16 

49-56 
57-80 


NPOP 


NXT 


PB 


PW 


Blank 

Label  used  to  identify  the  output 

Blank 


The  number  of  population  distributions 
given.   A  one  punched  in  column  1  indicates 
one  population  distribution  for  each  sex. 
Any  other  number  punched  in  column  1  indicates 
two  population  distributions  for  each  sex. 

The  code  indicating  if  there  is  another 
set  of  data  following  this  one.   A  zero 
punched  in  column  2  indicates  this  is  the 
last  set  of  data.   Any  other  number  punched 
in  column  2  indicates  another  set  of  data 
follows  this  one. 

Blank 


The  male  population  0-t  for  the  first 
distribution.   The  value  ends  in  column  8. 

The  male  population  5-9  for  the  first  dis- 
tribution.  The  value  ends  in  column  16. 


The  male  population  45-49  for  the  first 
distribution.   The  value  ends  in  column  80. 


The  male  population  50-54  for  the  first 
distribution.   The  value  ends  in  column  8. 

The  male  population  55-59  for  the  first 
distribution.   The  value  ends  in  column  16. 


The  male  population  80+  for  the  first 
distribution.   The  value  ends  in  column  56. 

Blank 


The  variable  PM  always  requires  two  cards.   The  first  card  (card 
no.  3)  must  always  contain  data  whereas  the  second  card  (card 
no.  4)  can  be  all  zeroes  depending  on  the  number  of  age  groups 
given.   The  last  age  group  given  must  always  be  the  open-ended 
age  group. 


1-8 
9-16 

73-80 


I 
PF      | The  female  population  0-4  for  the  first 

| distribution.   The  value  ends  in  column  8. 

I 

|The  female  population  5-9  for  the  first 

I  distribution.   The  value  ends  in  column  16. 


|The  female  population  4  5-49  for  the  first 
(distribution.    The  value  ends  in  column  80. 
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1-8 
9-16 

1*9-56 
57-80 


PF 


I  The  female  population  50-54  for  the  first 

(distribution.   The  value  ends  in  column  8. 

I 

I  The  female  population  55-59  for  the  first 

(distribution.   The  value  ends  in  column  16. 


| The  female  population  80+  for  the  first 

| distribution.   The  value  ends  in  column  56. 

I 

| Blank 


The  variable  PF  always  requires  two  cards.   The  first  card 
(card  no.  5)  must  always  contain  data  whereas  the  second  card 
(card  no.  6)  can  be  all  zeroes  depending  on  the  number  of 

age  groups  given.   The  last  age  group  given  must  always  be  the 

open-ended  age  group. 

If  card  2  column  1  is  not  equal  to  one,  then  the  following  cards  are  needed. 


10 


1-8 


9-16 


73-80 


1-8 


9-16 


49-56 


57-80 


QM 


QM 


The  male  population  0-4  for  the  second  dis- 
tribution.  The  value  ends  in  column  8. 

The  male  population  5-9  for  the  second  dis- 
tribution.  The  value  ends  in  column  16. 


The  male  population  45-49  for  the  second 
distribution.   The  value  ends  in  column  80. 


The  male  population  50-54  for  the  second 
distribution.   The  value  ends  in  column  8. 

The  male  population  55-59  for  the  second 
distribution.   The  value  ends  in  column  16. 


The  male  population  80+  for  the  second 
distribution.   The  value  ends  in  column  56. 

Blank 


When  the  variable  QH  is  required,  two  cards  are  necessary.   The 
first  card  (card  no.  7)  must  contain  data  whereas  the  second  card 
(card  no.  8)  can  be  all  zeroes  depending  on  the  number  of  age  groups 
given.   The  last  age  group  given  must  always  be  the  open-ended  age 
group. 


1-8 
9-16 

73-80 

1-8 
9-16 


QF 


QF 


I  The  female  population  0-4  for  the  second 

(distribution.   The  value  must  end  in  column  8. 

I 

|The  female  population  5-9  for  the  second 

(distribution.   The  value  must  end  in  column  16. 


I   - 

I  The  female  population  4  5-4  9  for  the  second 

(distribution.   The  value  must  end  in  column  80. 

I 

I 

|The   female   population  50-54    for   the  second 

(distribution.      The   value  must   end   in   column   8. 

I 

I  The  female  population  55-59  for  the  second 

I  distribution.   The  value  must  end  in  column  16. 
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I  49-56    | 

I  I 

I  I 

|  57-80    | 


|The    female    population  80+   for  the   second 

| distribution.      The   value  must  end   in   column  56. 

I 

| Blank 


When  the  variable  QF  is  required,  two  cards  are  necessary.   The  first 
card  (card  no.  9)  must  contain  data  vhereas  the  second  card  (card  no. 
10)  can  be  all  zeroes  depending  on  the  number  of  age  groups  given. 
The  last  age  group  given  must  always  be  the  open-ended  age  group. 


IV.  SUBROUTINE 


A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
spacs,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  PYRMD (PM,PF,QM,QF) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


PM 


How  Obtained   Definition 


PF 


QH 


QF 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


The  male  population  in  5-year  age 
groups  beginning  with  0-4  for  the  first 
distribution.   The  last  age  group  is 
the  open-ended  age  group  for  males. 
If  less  than  five  age  groups  are  given 
or  an  intermediate  value  is  less  than  0.9,  the 
subroutine  will  write  out  error  message 
no.  1011  and  return  to  the  calling  pro- 
gram.  If  one  5-year  age  group  contains 
more  than  fourteen  percent  of  the  total 
population,  the  subroutine  will  write  out 
error  message  no.  1012  and  return  to  the 
calling  program. 


The  female  populatio 
groups  beginning  wit 
distribution.  The  1 
open-ended  age  group 
than  five  age  groups 
intermediate  value  i 
subroutine  will  writ 
and  return  to  the  ca 
5-year  age  group  con 
fourteen  percent  of 
the  subroutine  will 
no.  1012  and  return 


n  in  5-year  age 

h  0-4  for  the  first 

ast  age  group  is  the 

for  females.   If  less 

are  given  or  an 
s  less  than  0.9,  the 
e  out  error  message  no.  1011 
lling  program.   If  one 
tains  more  than 
the  total  population, 
write  out  error  message 
to  the  calling  program. 


The  male  population  in  5-year  age  groups 
beginning  with  0-4  for  the  second  distri- 
bution.  The  last  age  group  is  the  open- 
ended  age  group  for  males.   If  between  one 
and  five  age  groups  are  given  or  an  inter- 
mediate value  is  less  than  0.9,  the  subroutine 
will  write  out  error  message  no.  1011  and  return 
to  the  calling  program.   If  one  5-year 
age  group  contains  more  than  fourteen 
percent  of  the  total  population,  the  sub- 
routine will  write  out  error  message  no.  1012 
and  return  to  the  calling  program. 

The  female  population  in  5-year  age  groups 
beginning  with  0-4  for  the  first  distribution. 
The  last  age  group  is  the  open-ended  age 
group  for  females.   If  between  one  and  five  age 
groups  are  given  or  an  intermediate  value  is 
less  than  0.9,  the  subroutine  will  write  out 
error  message  no.  1011  and  return  to  the  calling 
program.   If  one  5-year  age  group  contains 
more  than  fourteen  percent  of  the  total  pop- 
ulation, the  subroutine  will  write  out  error 
message  no.  1012  and  return  to  the  calling 
program. 
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C.       EBBOR    MESSAGES 

1011  ***    PYRMD   ERBOR    NO.    1011    —    INPUT    ERROR    IN    PM,PF,QM    OR    QP 

***    EITHER   THERE    ARE   LESS    THAN    FIVE    AGE   GROUPS    IN    THE   POPULATION 

DISTRIBUTION    FOR    AT    LEAST   ONE    SEX 
***    OR    AN    INTERMEDIATE    AGE    GROUP    IS    LESS   THAN    OR   EQUAL    TO    0.9. 

1012  ***    PYRMD   ERROR    NO.    1012    ~    INPUT   ERBOR   IN    PM, PF,QM    OR    QF 

***    THIS    PROGRAM    CAN   NOT    PLOT   A    DISTRIBUTION   WHERE   THE    PERCENT 
OF    THE   POPULATION    IN   ONE   AGE   GROUP    IS    GREATER    THAN    14- 

V.       PROGRAM      AND      RESULTS 

A.       COMPUTER   LISTING    FOR    MAIN   PROGRAM 

c_„_, 

c 

C MAIN  PROGRAM  FOR  PYRMD 

C--  • ' 

C— 

c_ rHiS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  ARE  READ  IN  WITH 

C — SIX  READ  STATEMENTS.  THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE 

C  — ■ READ  STATEMENTS  AS  FOLLOWS. 

C 

C- THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C- THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

c_„ BE  0SED  T0  IDENTIFY  THE  OUTPUT.  THE  LABEL  WOULD  USUALLY  CONTAIN 

C— THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

c__ GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C-- ANALYSIS  THAT  IS  BEING  DONE.  THIS  LABEL  IS  LOCATED  IN 

C  — COLUMNS  2-53  OF  THIS  CARD. 

C 

C— THE  SECOND  READ  STATBMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  THE 

C THE  NUMBER  OF  POPULATION  DISTRIBUTIONS  (NPOP)  AND  THE  INDICATOB 

C (NXT)  USED  TO  INDICATE  IF  THERE  IS  ANOTHER  DATA  SET  FOLLOWING 

C THIS  ONE. 

C NPOP  IS  IN  COLUMN  1  OF  THIS  CARD.  A  ONE  PUNCHED  IN  COLUMN  1 

c___„_        INDICATES  ONE  POPULATION  DISTRIBUTION.  ANY  OTHER 

c_- NUMBER  PUNCHED  IN  COLUMN  1  INDICATES  TWO  POPULATION 

c DISTRIBUTIONS. 

C— — -  NXT  IS  IN  COLUMN  2  OF  THIS  CARD.  A  ZERO  PUNCHED  IN  COLUMN  2 

c__ INDICATES  THAT  THIS  IS  THE  LAST  DATA  SET. 

C ANY  OTHER  NUMBER  PUNCHED  IN  COLUMN  2  INDICATES  THAT 

c„. THERE  IS  ANOTHER  DATA  SET  FOLLOWING  THIS  ONE. 

C 

C THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS. 

c. THB  purpose  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  FIRST 

C- MALE  POPULATION  AGE  DISTRIBUTION (PM)  IN  FIVE  YEAR  AGE  GROUPS. 

c PH   VALUES  ARE  ENTERED  ON  TWO  CARDS.   FOR  EACH  PM  VALUE  EIGHT 

c-_ COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS 

c- 0F  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  PM  VALUES  CAN  APPEAR 

c ON  THE  FIRST  CARD  SO  THAT  THE  VALUES  END  IN  COLUMNS  8,  16, 

c 24,  ...,  72,  AND  80.   THE  SECOND  CARD  CAN  CONTAIN  A  MAXIMUM 

C OF  SEVEN  PM  VALUES  AND  THE  VALUES  SHOULD  BE  ENTERED  IN  THE 

c S4BE  BANNER  AS  ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALUE 

c ON  THB  SECOND  CARD  WILL  END  IN  COLUMN  56.   IF  LESS  THAN 

c SEVENTEEN  VALUES  ARE  TO  BE  GIVEN,  TWO  CARDS  MUST  STILL  BE 

c 0SED  HITH  DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECESSARY  FOR 

c THE  NUMBER  OF  PH  VALUES. 

C 

C THE  FOURTH  READ  STATEMENT  USES  TWO  DATA  CARDS. 

C THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  FIRST 

C FEMALE  POPULATION  DISTRIBUTION (PF)  IN  FIVE  YEAR  AGE  GROUPS. 

C PF   VALUES  ARE  CONTAINED  ON  TWO  CARDS  AND  HAVE  THE  SAME 

C REQUIREMENTS  AS  PM  VALUES. 

C 

C~ THE  FIFTH  READ  STATEMENT  USES  TWO  DATA  CARDS. 

C THIS  READ  IS  NOT  USED  IF  NPOP  IS  1. 

C THB  PURPOSE  OF  THB  FIFTH  BEAD  STATEMENT  IS  TO  READ  IN  THE 

c POPULATION  DISTRIBUTION  OF  MALES (QH) . 

c QH   VALUES  ABE  CONTAINED  ON  TWO  CARDS  AND  HAVE  THE  SAME 

C REQUIREMENTS  AS  PH  VALUES. 
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C 

c THE  SIXTH  READ  STATBHENT  OSES  TWO  DATA  CARDS. 

C THIS  READ  IS  HOT  USED  IP  NPOP  IS  1. 

c THE  PURPOSE  OF  THE  SIXTH  READ  STATEMENT  IS  TO  READ  IN  THE 

C POPULATION  DISTRIBUTION  OF  FEMALES (QF)  FOR  THE  SECOND  DATE. 

C QF   VALUES  ARE  CONTAINED  ON  TWO  CARDS  AND  HAVE  THE  SAME 

C REQUIREMENTS  AS  PH  VALUES. 

c 

c 

DIMENSION    PM{17)  ,QM(17)  ,  PF(17)  ,QF(17) 
NPRNT   =    15 
NREAD    =    1 

1  READ(NREAD,2) 

2  FORMAT (1X,52H  ) 
READ(NREAD,3)     NPOP,NXT 

3  FORMAT(2I1) 
READ(NREAD,U)  (PH (I)  ,1  =  1 # 17) 
READ  (NREAD,  4)     (PF  (I)  ,1=1 ,  17) 

H    FORHAT(10F8.0,/,7F8.0) 
IF    (NPOP   -    1)    7,5,7 

5  DO  6  1=1,17 
QH(I)  =0.0 
QF(I)     =0.0 

6  CONTINUE 
GO  TO  8 

7  READ  (NREAD, 4)  (QM (I) , 1=1 , 17) 
READ(NREAD,4)  (QF  (I) , 1=1 , 17) 

8  WRITE  (NPRNT, 9) 

9  FORMAT(1H1) 
WRITE  (NPRNT, 2) 

CALL  PYRMD  (PH,PF,QM,QF) 
IF  (NXT  -  1)  99,1,99 
99  STOP 
END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  PYRMD (PM, PF, QM, QF) 
c 

C PROGRAM  NO.  1010 

c __ 

C ALL  ARGUMENTS  ARE  INPUT  ARGUMENTS  ONLY. 

c PM  IS  FIRST  HALE  POPULATION  DISTRIBUTION  IN  FIVE  YEAR  AGE  GROUPS. 

c pF  Is  first  FEMALE  POPULATION  DISTRIBUTION  IN  FIVE  YEAR 

C AGE  GROUPS. 

C QM  IS  SECOND  MALE  POPULATION  DISTRIBUTION  IN  FIVE  YEAR 

C AGE  GROUPS. 

C— qf  is  SECOND  FEMALE  POPULATION  DISTRIBUTION  IN  FIVE  YEAR 

C AGE  GROUPS. 

c 

C —  THE  FOLLOWING  VARIABLES  ARE  CALCULATED  FOR  USE  BY  THIS  SUBROUTINE 

C—  ---  PMC  IS  A  COPY  OF  PM  TO  BE  USED  BY  ABREV. 

C QMC  IS  A  COPY  OF  QM  TO  BE  USED  BY  ABREV. 

C PFC  IS  A  COPY  OF  PF  TO  BE  USED  BY  ABREV. 

C QFC  IS  A  COPY  OF  QF  TO  BE  USED  BY  ABREV. 

C TOTPM  IS  TOTAL  MALE  POPULATION  FOR  FIRST  DISTRIBUTION. 

C TOTQM  IS  TOTAL  MALE  POPULATION  FOR  SECOND  DISTRIBUTION. 

C TOTPF  IS  TOTAL  FEMALE  POPULATION  FOR  FIRST  DISTRIBUTION. 

C TOTQF  IS  TOTAL  FEMALE  POPULATION  FOR  SECOND  DISTRIBUTION. 

C PPM  IS  MALE  POPULATION  PERCENTAGES  FOR  FIRST  DISTRIBUTION. 

C PQH  IS  MALE  POPULATION  PERCENTAGES  FOR  SECOND  DISTRIBUTION. 

C PPF  IS  PEHALE  POPULATION  PERCENTAGES  FOR  FIRST  DISTRIBUTION. 

C PQF  IS  FEMALE  POPULATION  PERCENTAGES  FOR  SECOND  DISTRIBUTION. 

c 

C THE  FOLLOWING  ARE  CREATED  BY  DATA  STATEMENT  FOR  GRAPHING  PURPOSES 

c . 

C BLK  IS  THE  CHARACTER  •  •  (BLANK) 

C TEE  IS  THE  CHARACTER  'T' 

C TI  IS  THE  CHARACTER  'I' 

C PLUS  IS  THE  CHARACTER  »♦■ 

C LIN  IS  THE  CHARACTER  • | • 

C DASH  IS  THE  CHARACTER  •-• 
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BEE    IS    THE   CHARACTER    «B» 


DIMENSION  PPM  (17)  ,PQM  (17) , 
DIMENSION  XLINE(120)  ,X(17) 
DIMENSION  PM(17) ,PF(17) ,  QM 
DIMENSION  PMC  (17) ,PFC(17) , 
DATA  BEE/'B'/ 
DATA  BLK,TBE,TI,PLUS,RLIN, 
DATA  X(1)  ,X  (2)  ,X(3),X<4)  ,X 
DATA  X(7),X  (8),X<9)  ,X(10), 
DATA  X(13)  ,X(1«)  ,X(15)  ,X  (1 
DATA  Y(1),Y(2),Y(3),Y(«),Y 
DATA  Y(7),Y(8),Y(9),Y(10), 
DATA  Y(13)  ,Y(14),Y(15)  ,Y  (1 
DATA  Z(1),Z(2),Z(3),Z(4),Z 
DATA  Z(7)  ,Z  (8)  ,Z(9)  ,Z(10)  , 
DATA  Z(13)  ,Z(14),Z  (15)„Z(1 
NREAD  =  1 
NPRNT    =    15 


PPF(17)  ,PQF(17) 
,Y(17),Z(17) 
(17)  ,QF(17) 
QMC(17)  ,QFC(17) 


DASH/'     •,,T'r'I'#'*',' I'/'-V 
(5),X<6)/«    ',•    ','V,M','2','2V 
X(11),X{12)/,3,#»3«#»4»#,4«,»5«r«5»/ 

6),X(17)/«6«,'6«,'7«,«7','8'/ 

(5),Y(6)/'0','5',«0',«5','0','5V 

Y(11)  ,Y(12)/«0»,«5»  ,«0,,,5,,,0,f  '5'/ 

6),Y(17)/«0',«5','0«,«5','0V 

(5)  ,Z  (6  )/•!»•,  '9  •,••»•,' 9' #"»'#' 9  V 

Z(11)  ,Z(12)/,t»,,,9»,'V  ,'9',  •4«,'9V 

6),Z  (17)/,4«,,9,,,4,#'9'#  •<»•/ 


C 

c __  — 

C VERIFY    INPUT    ARGUMENT    VALUES    FOR    FIRST   CENSUS 

C 

C 


TOTPM    "- 

=    0.0 

TOTQM   = 

=    0.0 

TOTQF   = 

=    0.0 

TOTPF    = 

=    0.0 

NPOP   = 

2 

NERR    = 

0 

DO    400 

1=1,17 

PMC (I) 

=    PM(I) 

QMC(I) 

=    QM(I) 

PFC(I) 

=    PF(I) 

QFC(I) 

=    QF(I) 

«00    CONTINUE 

c 

c 

C CHECK  FIRST  HALE  POPULATION  DISTRIBUTION 

c 

C 

DO  2  J=1,17 

IF  (PM(J)  -  0.9)  3,3,1 

1  TOTPM  =  TOTPM  ♦  PM (J) 

2  CONTINUE 
NM1  =  17 
GO  TO  6 

3  NH1  =  J  -  1 
DO  5  K=J,17 

IF  (ABS(PH(K))  -  0.0001)  5,5,4 

4  NERR  =  1 

5  CONTINUE 

C 

c 

C CHECK  SECOND  MALE  POPULATION  DISTRIBUTION 

c 

C 

6  DO  8  J=1,17 

IF  (QM(J)  -  0.9)  9,9,7 

7  TOTQM  =  TOTQM  +  QH  (J) 

8  CONTINUE 
NH2  =  17 
GO  TO  12 

9  NM2  =  J  -  1 

DO  11  K  =  J, 17 

IF  (ABS(QM(K))  -  0.0001) 

10  NERR  =  1 

11  CONTINUE 


11,11,10 


C 

c 

C CHECK  FIRST  FEMALE  POPULATION  DISTRIBUTION 

C 

c 

12  DO  14  J=1,17 

IF  (PF(J)  -  0.9)  15,15,13 
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13  TOTPF  =  TOTPF  +  PF(J) 

14  CONTINUE 
NF1  =  17 
GO  TO  18 

15  NF1  =  J  -  1 
DO  17  K=J,17 

IF  (ABS(PF(K))  -  0.0001)  17,17,16 

16  NEBR  =  1 

17  CONTINUE 


CHECK  SECOND  FEMALE  POPULATION  DISTRIBUTION 


18  DO    20    J=1,17 

IF    (QF(J)    -    0.9)     21,21,19 

19  TOTQF   «=    TOTQF    +    QF(J) 

20  CONTINUE 
NF2  =  17 
GO    TO    27 

21  NF2    =    J    -    1 
DO    23    K=J,17 

IF     (ABS(QF(K))     -    0.0001)     23,23,22 

22  NEFB      =    1 

23  CONTINUE 

C 

c 

C CHECK    FOR    AT    LEAST    5    AGE   GROUPS    IN   FIRST    POPULATION    DISTRIBUTION 

c _ 

C 

27  IF    (NH1    -    5)     29,28,28 

28  IF     (NF1    -    5)     29,31,31 

29  NEP.R    =    1 
C 

c 

C DETERMINE  WHETHER  THERE  ARE  TWO  POPULATION  DISTRIBUTIONS 

c 

C 

31  IF  (NM2  )  32,32,36 

32  IF  (NF2)  33,35,33 

33  NERR  =  1 

GO  TO  38 

C 

c 

C ONLY  ONE  POPULATION  DISTRIBUTION  GIVEN 

c 

C 

35  NPOP  =  1 

IF  (NERR  -  1)  44,410,44 
C 
c 

C MAKE    CERTAIN    SECOND    FEMALE   POPULATION    DISTRIBUTION   IS    GIVEN 

c 

C 

36  IF     (NF2)     37,37,38 

37  NERR    =    1 
C 

c . 

C MAKE  CERTAIN  SECOND  POPULATION  DISTRIBUTION  FOR  BOTH  SEXES 

C CONTAIN  AT  LEAST  FIVE  AGE  GROUPS 

c _ 

C 

38  IF  (NM2  -  5)  39,40, 40 

39  NERR  =  1 

40  IF     (NF2    -    5)    41,409,409 

41  NERR   =    1 
C 

C 

C ERROR    IN    INPUT    ARGUMENTS 

c 

C 

409  IF     (NERR    -    1)    43,410,43 

410  WRITE  (NPRNT, 26) 

26    FORMAT (//61H    ***    PYRMD    ERROR    NO.     1011    —    INPUT    ERROR    IN    PM,    PF,     QH 
*,    OR    QF,/    ,99H    ***    EITHER    THERE    ARE  LESS   THAN    FIVE   AGE    GROUPS    IN   T 
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♦HE  POPULATION  DISTRIBUTION  FOR  AT  LEAST  ONE  SEX,/,62H  ***  OR  AN  IN 
♦TERMEDIATE  AGE  GROUP  IS  LESS  THAN  OR  EQUAL  TO  0.9) 

399  WRITE (NPRNT, 411) 

411    FORMAT  (//,57l,18HFIRST    DISTRIBUTION, /,43X, 5HM ALES, 33X,7HFEMALES) 
DO    413    1=1,17 

413  WRITE (NPRNT, 414)     PM(I),PF(I) 

414  FORMAT  (41X,F8.0,32X,F8.0) 
IF     (NPOP    -    1)     416,419,416 

416  WRITE  (NPRNT ,4 17) 

417  FORMAT (//,56X,19HSECOND    DISTRIBUTION, /, 43X, 5H MALES, 33X, 7HFEM ALES) 
DO    418    1=1,17 

418  WRITE(NPRNT,414)     QM(I),QF(I) 

419  CONTINUE 
GO    TO    999 

492  WRITE  (NPRNT, 493) 

493  FORMAT (//61H  ***  PTRMD  ERROR  NO.  1012  —  INPUT  ERROR  IN  PM,  PF,  QM 
*,  OR  QF,/, 102H  ♦♦♦  THIS  PROGRAM  CANNOT  PLOT  A  DISTRIBUTION  WHERE  T 
♦HE  POPULATION  IN  ONE  AGE  GROUP  IS  GREATER  THAN  14.) 

GO  TO  97 
C 

C  — 

C CALL  ABREV  TO  HAKE  CERTAIN  POPULATION  DISTRIBUTIONS 

C ARE  OF  THE  SAME  LENGTH 

c. 

C 

43  CALL  ABREV  (1 ,QMC,QFC, NPOP2) 

44  CALL  ABREV (1, PMC, PFC,NP0P1) 
IF  (NPOP  -  1)  45,49,45 

45  IF  (NPOP1  -  NPOP2)  46,47,46 

46  CALL  ABREV(1,QMC,PMC,NPOP1) 
CALL  ABREV  (1 , QFC, PFC, NPOP1) 

C 

c__ 

c CALCULATE  PERCENTAGE  DISTRIBUTION  FOR  DISTRIBUTIONS  GIVEN 

c _ _ 

C 

47  TOT  =  TOTQH  +  TOTQF 
DO  48  I=1,NP0P1 

PQM(I)  =  QHC(I)  /  TOT  ♦  100.0 
PQF(I)  =  QFC(I)  /  TOT  ♦  100.0 
IF  (PQH(I)  -  14.0)  471,471,492 
471  IF  <PQF(I)  -  14.0)  48,48,492 

48  CONTINUE 

49  TOT    =    TOTPM    +    TOTPF 
DO    50    1=1, NPOP 1 

PPM  (I)    =    PMC(I)    /   TOT    ♦    100.0 
PPF(I)    =    PFC(I)       /  TOT      ♦    100.0 
IF    (PPM(I)     -    14.0)     491,491,492 
491    IF    (PPF(I)    -    14.0)    50,50,492 

50  CONTINUB 

c — _ 

c THIS    SECTION    IS    TO    PLOT    PYRAMID 

c _ 

DO    51    1=1,120 
XLINE(I)     =   BLK 

51  CONTINUE 
WRITE  (NPRNT, 52) 

52  FORMAT  (////////) 
C 

C 

C MAIN  LOOP 

Q-. 

C 

DO  79  I=1,NPOP1 

J  =  NPOP1  +1-1 

JLEFT  =60 

JRITE  =60 

ILEFT  =  60 

IRITE  =60 

IF  (NPOP  -  1)  61,62,61 

C 

c 

c CALCULATE  SUBSCRIPT  FOR  MALE  AND  FEMALE  DISTRIBUTIONS 

c . 

C 
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61  T  =  60.0  -  (PQM(J)  ♦  0. 124)  *  4.0 
JLEFT  =  T  +  1 

62  T  =  60.0  -  (PPM  (J)  +  0.124)  *  4.0 
ILEFT  =  T  +  1 

IF  (NPOP  -  1)  63,64,63 

63  T  =  60.0  +  (PQF(J)  +  0.124)  *  4.0 
JRITE  =  T 

64  T  =  60.0  +  (PPF(J)  +  0.124)  *  4.0 
IRITE  =  T 

C 

c 

C FIND  LEFTMOST  AND  RIGHTMOST  POSITIONS 

c 

C 

LOW  =  JLEFT 

IF  (JLEFT  -  ILEFT)  66,66,65 

65  LOW  =  ILEFT 

66  IHIGH  =  JRITE 

IF  (JRITE  -  IRITE)  67,68,68 

67  IHIGH  =  IRITE 
C 

c 

C DETERMINE    POSITIONS    FOR    SIDES    OF    POPULATION    PYRAMID 

C 

c 

68  DO  69  K  =L0W, IHIGH 
XLINE  (K)  =  DASH 

69  CONTINUE 

XLINE  (60)  =  RLIN 

IF  (NPOP  -  1)  70,71,70 

70  XLINE  (JLEFT)  *  TEE 
XLINE (JHITE)  =  TEE 

71  IF  (XLINE(ILEFT)  -  TEE)  701,702,701 

701  XLINE  (ILEFT)  =  TI 
GO  TO  703 

702  XLINE (ILEFT)  =  BEE 

703  IF (XLINE (IRITE)  -  TEE)  704,705,704 

704  XLINE (IRITE)  =  TI 
GO  TO  706 

705  XLINE  (IRITE)  =  BEE 

C 

c 

C GIVE  AGE  GROUPS 

c 

C 

706  LOW  =  LOW  -  7 
IHIGH  =  IHIGH  +  3 
XLINE  (LOW)  =  X(J) 
XLINE  (IHIGH)  =  X(J) 
XLINE  (LOW  +  3)  =  X(J) 
XLINE  (IHIGH  +  3)  =  X  (J) 
XLINE  (LOW  +  1)  =  Y  (J) 
XLINE  (IHIGH  +  1)  =  Y(J) 
XLINE  (LOW  +  4)  =  Z  (J) 
XLINE  (IHIGH  +  4)  =  Z  (J) 
XLINE (LOW  +  2)  =  DASH 
XLINE  (IHIGH  +  2)  =  DASH 
IF  (I  -  1)  73,72,73 

C 

C 

C PUT  IN  *  FOR  FIRST  AGE  GROUP  ONLY 

c 

C 

72  XLINE  (LOW  +  2)  =  BLK 
XLINE  (LOW  +  3)  =  PLUS 
XLINE (LOW  +  4)  =  BLK 
XLINE (IHIGH  +  2)  =  BLK 
XLINE  (IHIGH  +  3)  =  PLUS 
XLINE  (IHIGH  +  4)  =  BLK 

C 

c 

C WRITE  OUT  LINE 

c 

C 

73  WRITE (NPRNT, 74)  (XLINE (K) ,K=1 , 120) 
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C 


74    FORMAT(1X,120A1) 


C CLEAR   FOR    NEXT    LINE 

C 

c 

DO  75  K=1,5 
XLINE  (LOW)  =  BLK 
XLINE (IHIGH)  =  BLK 
LOW  =  LOi  ♦  1 
IHIGH  =  IHIGH  +  1 

75  CONTINUE 

IHIGH  =  IHIGH  -  6 
DO  77  K=LOW, IHIGH 
IF    (XLINE  (K)    -    DASH)     77,76,77 

76  XLINE  (K)    =    BLK 

77  CONTINUE 

WRITE  (NPRNT, 74)  (XLINE(K) „K=1,120) 
DO  78  K=L0W, IHIGH 
XLINE  (K)  =  BLK 

78  CONTINDE 

79  CONTINUE 


C WRITE   OUT    HORIZONTAL   SCALE 

c 

C 

WRITE  (NPRNT,90) 

90  FORMAT  (4X,  28  (4H*-*-)  ,1H*) 
WRITE  (NPRNT, 91) 

91  F0RMAT(1X,29(3X,1H|)  ) 
WRITE (NPRNT, 92) 

92  FORMAT (4X,57H14      13      12      11 
*         0, 


10 

9 

8 

7 

6 

5 

4 

3 

7 

8 

9 

10 

11 

12 

13 

1«) 

*56H         12        3        4         5         6 
WRITE  (NPRNT, 93) 
9  3    FORMAT (34X,4HMALE,19X,7HPERCENT,18X,6HFEMALE) 
WRITE  (NPRNT, 94) 

94  FORMAT (//,2X,21HSYMBOL  DEFINITIONS, /,4X, 22HI         FIRST    DISTRIBUTI 
♦ON) 

IF    (NPOP   -    1)    95,97,95 

95  WRITE  (NPRNT, 96) 

96  FORMAT (4X,23HT         SECOND   DISTRIBUTION, /,4X, 
♦38HB         INTERSECTION   OF    BOTH  DISTRIBUTIONS) 

97  WRITE  (NPRNT, 98) 
C 

C 

C WRITE  OUT  EXPLANATION  OF  SYMBOLS 

c 

C 

98  FORMAT(1H1,29X,18HFIRST  DISTRIBUTION) 
IF  (NPOP  -  1)  99,101,99 

99  WRITE (NPRNT,100) 

100  FORMAT  (1H  , 81X ,19HSECOND  DISTRIBUTION) 

101  WRITE  (NPRNT,  102) 

102  FORMAT (/, 23X, 6HNUMBER, 20X,7HPERCENT) 
IF    (NPOP   -    1)     103,105,103 

103  WRITE  (NPRNT, 104) 

104  F0RMAT(1H    ,74X,6HNUMBER, 20X,7HPERCENT) 

105  WRITE  (NPRNT,  106) 

106  FORMAT (/, 5X,9HAGE   GROUP, 5X, 4HMALE,7X,6HFEMALE,9X,4HMALE,8X,6HFEMAL 
*E) 

IF     (NPOP   -    1)     107,109,107 

107  WRITE  (NPRNT, 108) 

108  F0RMAT(1H    , 71X, 4HMALE, 7X, 6HFEMALE,9X,4HMALE,8X,6HFEMALE) 

109  WRITE  (NPRNT, 1090) 
1090   FORMAT  (/) 

NPDP1    =   NPOP1    -    1 
DO    113   K=1,NP0P1 

11  =     (K   -    1)     *    5 

12  =    11    +    4 

WRITE  (NPRNT, 110)     11, 12, PMC  (K)  ,PFC(K)  ,PPM(K)  ,PPF(K) 
11Q    FORMAT(5(6X,I2,1H-,I2,2(5X,F8.0),2  (8X,F5.  2) )  ,/) 

IF    (NPOP    -    1)     111,113,111 
111    WRITE  (NPRNT,  11 2)    QHC  (K)  ,QFC  (K)  ,  PQM  (K)  ,  PQF  (K) 
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112  F0RMAT(1H    , 63X, 2 (5X, F8.0) , 2 (8X,F5. 2) ) 

113  CONTINUE 

11  =  NPOP1  *  5 

K  =  NP0P1  +  1 

WRITE (NPRNT, 114)  I1,PMC(K)  ,PFC(K)  ,PPM  (K)  ,PPF(K) 

114  FORMAT (6X,I2,3H   *,2 (5X,F8. 0) , 2 (8X, F5.2) ) 
IF  (NPOP  -  1)  115,120,115 

115  WRITE  (NPRNT,  116)  QHC  (K)  ,  QFC  (K)  ,  PQH  (K)  ,  PQF  (K) 

116  F0RMAT(1H  , 63X,2  (5X, F8. 0) ,2  (8X, F5. 2) ) 
120  WRITE  (NPRNT, 117)  TOTPH,TOTPF 

117  FORHAT  (/,6X,5HTOTAL,2  (3X,F10-0) ) 
IF  (NPOP  -  1)  118,999,118 

118  WRITE  (NPRNT, 119)  TOTQM,TOTQF 

119  FORMAT(1H  ,  66X,F10.  0,  3X,F10.0) 
999  RETURN 

END 
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QXADJ 


I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To   estimate   a  set   of      a      valies     (probability   of   dying   between   exaet    age 

5  x 

x  and  x  +  5)  for  a  particular  level  of  life  expectancy  at  birth,  msing  a  given 
set  of  q     values  fro*  a  life  table  and  the  life  expectancy  at  birth  from  the 

life  table.   For  ages  under  5,  the  values  are  for  age  0  and  age  group  1-4. 

B.  DATA  NEEDED 

1.  Life  expectancy  at  birth  corresponding  to  the  given  gx's. 

2.  Life  expectancy  at  birth  corresponding  to  the  set  of  fx"s  to  be 
estimated. 

3.  The  g  's  from  birth  to  age  1,  age  1  to  age  5,  age  5  to  age  10,... 
age  75  to  age  80. 

4.  The  sex  of  the  population. 

5.  The  Coale-Demeny  model  life  table  region  whose  mortality  pattern  is 
closest  to  that  of  the  given  q  '  s- 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  subroutine  generates,  for  the  given  sex  and  region,  two  model  life 
tables,  one  for  each  of  the  life  expectancies  at  birth  given  as  input. 

With  the  g  *s  from  each  of  these  model  life  tables,  the  following  ratio 

is  calculated. 

2 

5Ax     1 
5Sc 


where 


q   is  from  the  model  life  table  with  life  expectancy  at  birth  corres- 

j    x 

ponding  to  the  given  set  of  q  's,  and 

2 
a    is  from  the  model  life  table  wxth  life  expectancy  at  birth  corres- 
5  x 

ponding  to  the  set  of  q  • s  to  be  estimated 


The  q  's  given  as  input  are  then  adjusted  as  follows: 

5Sc  =  5SC  '  5Ax 
where 

rq   is  from  the  set  of  q  's  given  as  input,  and 

5  x  x 
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cqx  is  the  estimated  qx  corresponding  to  the  new  life  expectancy 

at  birth. 

B.   COMMENTS 

The  method  assumes  that  percent  changes  of  the  given  g  's  from  its 

mortality  level  (measured  by  life  expectancy  at  birth)  to  a  new  mortality 
level  is  the  same  percent  changes  as  those  between  the  q  's  from  two  Coale- 

Demeny  model  life  tables  with  the  same  corresponding  life  expectancies  at 
birth. 

The  life  expectancy  at  birth  calculated  from  the  new  estimated  qx*s  will 
not  generally  be  identical  to  that  requested  by  the  user.   These  life  ex- 
pectancies at  birth  would  be  identical  only  if  the  q  's  supplied  by  the  user 

were  identical  to  those  from  the  Coale-Demeny  system  at  the  given  sex,  region 
and  level  of  mortality. 

III.M    A    I    N       PROGRAM 

A.       REQUIREMENTS 

The   main   program  is   reguired   to   use   this   subroutine   and   obtain   the   data 
(input)    necessary  for   the  subroutine  to   perform   its   calculations.      A  main 
program  can   use   a   subroutine   alone   or   in   conjunction   with  other   subroutines. 
For   a   detailed   explanation   of  writing  main   programs   using  more  than  one    sub- 
routine   see   the   Appendix. 

1.      CALL    statement 

Once   the    main   program  has  obtained   the  data   required   for   the   subroutine   to 
do   its  calculations,    the  main   program   transmits   this   data  to  the   subroutine 
and   the    subroutine   returns   the  results  of   the  calculations    performed   to   the 
main    program.      This   communication   process  is  made  through  the  CALL  statement. 

The   form  of   the   CALL   statement   for   this   subroutine   is  as  follows: 

CALL   QXADJ  (EO,EONEW, NSEX, NREG, NWBIT, QX) 


For   the   purpose  of   emphasizing  the    input   arguments,    they   are   underlined   in   the 
above   CALL  statement. 

2.      DIMENSION    statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable   name   is   dimensioned   in   any    subroutine   called   by   the  main   program. 

For  this  subroutine  variable  name  QX  in  the  argument  string  is  an  array. 
The  following  DIMENSION  statement  must  be  included  in  any  main  program  using 
this   subroutine. 

DIMENSION    QX(18) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 

a.  MLT 

b.  GTCON 

c.  ELT 

2.  Library  functions 
None 
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Card  Diagram  of  main  program  and  subroutines 


/ 
/ 

CARDS    INDICATING    END    OF    DECK      /| 

/ 
/ 

INPDT    DATA                                /|     | 

/ 

/ 

COMPUTER    CONTROL    CARDS           /|     |     | 

/ 

SUBROUTINE    ELT                   /III/ 

/ 

/ 

SUBROUTINE    GTCON                 /III/ 

/III/ 

/ 

/ 

SUBROUTINE    MLT                   /III/ 

/III/ 

/ 

SUBROUTINE    QXADJ            /III/ 
/III/ 

/ 

MAIN    PROGRAM                   /III/ 
/    J     1     1/ 

/                        COMPUTER 

/ 

CONTROL    CARDS         /III/ 
/III/ 

|                         BEGINNING 

III/ 
1     1     1/ 
OF    DECK                       |     |    / 
1     1/ 
1    / 
1/ 

C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
subroutine  package  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  If.  B.  See  example  section  V.C. 


Variable 
Card  Columns   Name 


1 

2-53 

54-80 


1-8 

9-16 

17-24 

73-80 

1-8 
9-16 

• 

57-64 
65-80 


QX 


QX 


Definition 
Blank 

Label  used  to  identify  the  output 
Blank 


Probability  of  person  exact  age  0  dying 
before  exact  age  1 

Probability  of  person  exact  age  1  dying 
before  exact  age  5. 

Probability  of  person  exact  age  5  dying 
before  exact  age  10. 


Probability  of  person  exact  age  40  dying 
before  exact  age  45. 


Probability  of  person  exact  age  45  dying 
before  exact  age  50. 

Probability  of  person  exact  age  50  dying 
before  exact  age  55. 


Probability  of  person  exact  age  80  ever 
dying.   This  value  always  equals  1.0. 

Blank 
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Cards   2   and   3   read   in   the  QX    values.      A   maximum  of  ten   QX  values 
can  appear  on   the  first  card  and  each  value  should  be  entered   with 
the   decimal   points  in  columns   1,    9,..., 65,    and   73.      The  second 
card  contains  eight   QX   values   and  the  values  should   be   entered 
the  same  as  on  the   first  card  except  that  the  last  value    (1.0)    will 
have  its   decimal   point   in  column   58.      If    less  than  eighteen  values 
are  to  be  adjusted,    both  cards  must  be   provided    with  data  only  in 
the  number  of   columns   necessary. 


1-6 


7-12 


13 


14 


15 


16 


EO 


EONEW 


NSEX 


NSEG 


NXT 


NHEIT 


Life  expectancy   at  birth  corres- 
ponding  to   the  given   qx's.      The   value 
should  be  entered  with  the  decimal 
point  in   column    3. 

Life  expectancy   at   birth   corres- 
ponding  to   the   set  of  qx 's   to   be 
estimated.      The   value   should   be  entered 
with  the   decimal   point   in  column   9. 

The  sex   of   the   population.      A   1    punched 
in  column    13   indicates  males.      A   2 
punched   in   column   13   indicates  females. 

The  Coale-Demeny  model   life   table  region 
whose  mortality   pattern  is  closest  to 
that   of   the    gx's.      A    1    punched  in  column 

14  indicates  west  region,  a  2  indicates 
north  region,  a  3  indicates  east  region 
and   a   4   indicates  south    region. 

The  code  indicating  if  another  data  set 
follows   this  one.      A  zero  punched   in  column 

15  indicates   that   this   is  the   last   set  of 
data.      Any   other   digit   punched   in  column    15 
indicates  that  another  set  of  data   follows 
this  one. 

The  code   indicating   whether    the   results   of 
the   subroutine   are   to  be  printed  out-      A 
zero   punched   in  column   16   indicates   the  re- 
sults are  not   to   be   printed  out.      Any  other 
number   punched   in  column  16   indicates  the 
results   will   be    printed    out. 


IV.    SUBROUTINE 


A. 


SUBROUTINE  STATEMENT 


All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  QXADJ (EO, EONEW, NSEX, NREG,NWRIT,QX) 

B.   DESCRIPTION  OF  ARGUMENTS 


Name     How  Obtained   Definition 

I 

(    ITransferred  in  | Expectation  of  life  at  birth  corres- 
ponding to  the  given  gx's.   EO  must 
|  have  a  value  between  20  and  80.   If 
|EO  has  any  other  value,  error  mess- 
|age  number  1381  will  be  written  out 
land  the  subroutine  will  return  to 
(the  calling  program. 
I 
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EONEW 


NSEX 


NBEG 


NWRIT 


QX 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 
And  Out 


Expectation  of  life  at  birth  corres- 
ponding to  the  qx*s  to  be  estimated. 
EONEN  mast  have  a  value  between  20 
and  80.   If  EONEH  has  a  different 
value,  error  message  number  1382 
will  be  written  out  and  the  sub- 
routine will  return  to  the  calling 
program. 

The  sex  of  the  population. 
NSEX-1  indicates  a  male  life  table; 
NSEX=2  indicates  a  female  life  table. 
If  NSEX  eguals  any  other  number,  error 
message  number  1383  will  be  written 
out  and  the  subroutine  will  return  to 
the  calling  program. 

Region  from  the  Coale-Demeny  model  life 
table  system  being  used.   NREG=1,2,3,4 
indicates  respectively  the  west,  north, 
east  and  south  region.   If  NBEG  equals 
any  other  value,  error  message  number 
1384  will  be  written  out  and  the  sub- 
routine will  return  to  the  calling  program. 

Code  indicating  whether  the  results 
of  the  subroutine  should  be  printed 
out.   NWRIT=0  indicates  the  results 
of  the  subroutine  should  not  be 
written  out.   If  NWRIT  eguals  any 
other  number  the  results  of  the  sub- 
routine will  be  written  out. 

The  set  of  18  gx*s  for  exact  ages  0  to  1 
1  to  4,  5  to  9,  10  to  14,...,  75  to  79. 
All  values  of  QX  must  be  between  zero  and 
one.   If  any  value  of  QX  is  not  within 
this  range,  error  message  number  1385 
will  be  written  out  and  the  subroutine 
will  return  to  the  calling  program. 
After  the  calculations  are  completed, 
these  values  are  replaced  by  the  new 
QX's  which  correspond  to  the  new  level 
of  mortality  and  hence  become  the  output 
array. 


C.   EBBOB  MESSAGES 

1381  ***  QXADJ  EBBOR  NO.  1381  -  -  INPUT  ERROR  IN  EO , 

***  LIFE  EXPECTANCY  AT  BIRTH  MOST  BE  BETWEEN  20.0  AND  80.0. 

1382  ***  QXADJ  ERROR  NO.  1382  -  -  INPUT  ERBOR  IN  EONEW, 

***  LIFE  EXPECTANCY  AT  BIRTH  MUST  BE  BETWEEN  20.0  AND  80.0. 

1383  ***  QXADJ  EBBOB  NO.  1383  -  -  INPUT  ERBOB  IN  NSEX, 
***  SEX  MUST  BE  EITHER  1  FOB  MALE  OR  2  FOB  FEMALE. 

1384  ***  QXADJ  ERBOR  NO.  1384  -  -  INPUT  EBBOB  IN  NBEG, 

***  REGION  MOST  BE  1  FOB  WEST,  2  FOB  NOBTH,  3  FOB  EAST, 
OB  4  FOB  SOUTH. 


1385  ***  QXADJ  EBBOB  NO.  1385  -  -  INPUT  ERROR  IN  QX , 

***  ALL  LIFE  TABLE  QX  VALUES  MUST  BE  GREATER  THAN 
OR  EQUAL  TO  ZERO  AND  LESS  THAN  OR  EQUAL  TO  ONE. 
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V.       PROGRAMS       AND       RESULTS 
A.       COMPUTER    LISTING    FOR    MAIB    PROGRAM 

c _ 

C 

C MAIN  PROGRAM  FOR  QXADJ 

c „ 

c . 

C THIS  PROGRAM  USES  A  SIT  OF  DATA  CARDS  WHICH  IS  READ  IN  THREE  READ 

C STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

c BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  TWO  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  THE  AGE- 

C SPECIFIC  PROBABILITIES  OF  DEATH  (QX)  FROM  AN  ABRIDGED  LIFE 

C TABLE. 

C QX   VALUES  ARE  CONTAINED  ON  TWO  CARDS.   FOR  EACH  QX  VALUE  EIGHT 

c COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS 

C ON  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  QX  VALUES  CAN  APPEAR 

C ON  THE  FIRST  CARD  AND  THE  VALUES  SHOULD  BE  ENTERED  SO  THAT 

c THE  DECIMAL  POINTS  ARE  IN  COLUMNS  1,  9,  ...,  65,  AND  73. 

c THE  SECOND  CARD  CONTAINS  EIGHT  QX  VALUES  AND  THE  VALUES 

C SHOULD  BE  ENTERED  THE  SAME  AS  ON  THE  FIRST  CARD  EXCEPT 

c — _ —        THAT  THE  L&ST  VALUE  (1.0)  WILL  HAVE  ITS  DECIMAL  POINT 

c IN  COLUMN  58.   IF  LESS  THAN  EIGHTEEN  VALUES  ARE  TO  BE 

C ADJUSTEE,  BOTH  CARDS  MUST  BE  PROVIDED  WITH  DATA  ONLY  IN  THE 

C NUMBER  OF  COLUMNS  NECESSARY. 

C 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  (1)THE  LIFE 

C EXPECTANCY  AT  BIRTH (EO)  WHICH  CORRESPONDS  TO  THE  QX  VALUES  GIVEN, 

C (2) THE  LIFE  EXPECTANCY  AT  BIRTH (EONEW)  WHICH  CORRESPONDS  TO  THE 

C SET  OF  QX  VALUES  TO  BE  ESTIMATED,  (3) THE  SEX (NSEX)  TO  WHICH  THE 

C QX'S  APPLY,  (4) THE  REGION  (NREG)  OF  THE  COALE-DEMENY  MODEL  LIFE 

C TABLES  WHICH  MOST  CLOSELY  APPROXIMATES  THE  MORTALITY  PATTERN  OF 

C THE  QXS,  (5) THE  INDICATOR  (NXT)  USED  TO  SIGNAL  IF  THERE  IS 

C ANOTHER  DATA  SET  FOLLOWING  THIS  ONE,  AND  (6)  THE  INDICATOR 

C (NWRIT)  WHICH  DETERMINES  WHETHER  THE  RESULTS  OF  THE  SUBROUTINE 

C QXADJ  SHOULD  BE  WRITTEN  OUT. 

C EO   IS  IN  COLUMNS  1-6  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED  SO  THAT 

c THE  DECIMAL  POINT  IS  IN  COLUMN  3  AND  ENDS  IN  COLUMN  6. 

C EONEW   IS  IN  COLUMNS  7-12  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED  SO 

c THAT  THE  DECIMAL  POINT  IS  IN  COLUMN  9  AND  THE  NUMBER  ENDS 

c IH  COLUMN  12- 

C NSEX   IS  IN  COLUMN  13.   A  1  IN  COLUMN  13  INDICATES  MALES  AND  A 

c 2  IN  COLUMN  13  INDICATES  FEMALES. 

C- NREG   IS  IN  COLUMN  14.   A  1  PUNCHED  IN  COLUMN  14  INDICATES  WEST 

C A  2  INDICATES  NORTH,  A  3  INDICATES  EAST  AND  A  4  INDICATES 

c SOUTH. 

C NXT   IS  IN  COLUMN  15.   A  ZERO  PUNCHED  IN  COLUMN  15  INDICATES  THIS 

C IS  THE  1AST  DATA  SET.   ANY  OTHER  NUMBER  IN  COLUMN  15  INDI- 

c CATES  THAT  THERE  IS  ANOTHER  SET  OF  DATA  FOLLOWING  THIS  ONE. 

C NWRIT  IS  IN  COLUMN  16.  A  ZERO  PUNCHED  IN  COLUMN  16  INDICATES  THAT 

c THE  RESULTS  OF  THE  SUBROUTINE  QXADJ  ARE  NOT  TO  BE  PRINTED 

C OUT. 

c for  ANY  OTHER  NUMBER  IN  COLUMN  16,  THE  RESULTS  OF  THE 

c SUBROUTINE  QXADJ  WILL  BE  PRINTED  OUT. 

c . 

c ■ 

DIMENSION  QX(18) 

NREAD  =  1 

NPRNT  =  15 

10  READ  (NREAD, 11) 

11  FORMAT (1X,52H  ) 
READ  (NREAD,  22)   (QX  (I)  ,1=1,  18) 

22  FORMAT  (10F6.  7) 

READ (NREAD, 33)     EO, EONEW, NSEX, NREG , NXT, NWRIT 
33    FORMAT  (2F6. 3, 411) 

WRITE  (NPRNT, 44) 
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44    F0RMAT(1H1) 

WRITE  (NPRNT, 11) 

CALL  QXADJ  (EO,EONEW, NSEX, NREG,  NWRIT,QX) 

IF  (NXT)  20,20,10 
20  CONTINUE 

STOP 

END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE   QXADJ  (EO, EONEW, NSEX,  NREG, NWRIT,QX) 

—  PROGRAM  NO.  1380 


THE  INPUT  ARGUMENTS  TO  THIS  SUBROUTINE  ARE  EO,EONEH,NSEX,  6  NREG. 

QX   IS  BOTH  AN  INPUT  ARGUMENT  AND  AN  OUTPUT  ARGUMENT. 

EO   IS  THE  EXPECTATION  OF  LIFE  AT  BIRTH  FOR  THE  DATE  AT  WHICH  THE 

PROBABILITIES  OF  DYING  ARE  GIVEN 
EONEW   IS  THE  EXPECTATION  OF  LIFE  AT  BIRTH  FOR  THE  DATE  TO  WHICH 

THE  PROBABILITIES  OF  DYING  HAVE  TO  BE  ADJUSTED. 
NSEX   IS  THE  SEX  OF  THE  POPULATION  IN  QUESTION. 

NREG   INDICATES  WHICH  REGIONAL  MODEL  LIFE  TABLE  IS  TO  BE  USED. 
QX   ARE  THE  AVAILABLE  PROBABILITIES  OF  DYING.   AFTER  THE 

CALCULATIONS  ARE  COMPLETED,  THESE  VALUES  ARE  REPLACED  BY  THE 

NEW  QXS  WHICH  CORRESPOND  TO  THE  NEW  LEVEL  OF  MORTALITY 

PERIOD  AND  HENCE  BECOME  THE  OUTPUT  ARRAY. 


DIMENSION  CX(18)  ,QX2(18)  ,CEMLT  (18,8) 


CHECKING  INPUT  ERRORS 


NPRNT  =  15 
NER  =  0 
N  =  0 
NT  =  0 

IF  (EO-20.)  5,10,10 
5  NER  =  1 

WRITE  (NPRNT, 11) 
11  FORMAT (/, 1X,45H***  QXADJ  ERROR  NO.  1381  --  INPUT  ERROR  IN  EO, 

*/,1X,59H***  LIFE  EXPECTANCY  AT  BIRTH  MUST  BE  BETWEEN  20.0  AND  80.0 
*•) 
GO  TO  15 
10  CONTINUE 

IF  (EO-80.0)  15,15,5 
15  CONTINUE 

IF  (EONEW-20)  20,25,25 
20  NER  =  1 

WRITE  (NPRNT,  22) 
22  FORMAT  (/,1X,48H***  QXADJ  ERROR  NO.  1382  --  INPUT  ERROR  IN  EONEW, 
*/,1X,59H***  LIFE  EXPECTANCY  AT  BIRTH  MUST  BE  BETWEEN  20.0  AND  80.0 
*.) 
GO  TO  30 
25  CONTINUE 

IF  (EONEW-80.0)  30,30,20 
30  CONTINUE 

IF  (NSEX-1)  35,45,40 
3  5  NER  =  1 

WRITE  (NPRNT, 33) 
33  FORMAT (/, 1X,47H***  QXADJ  ERROR  NO.  1383  —  INPUT  ERROR  IN  NSEX, 
V,1X,50H***  SEX  MOST  BE  EITHER  1  FOR  MALE  OR  2  FOR  FEMALE.) 
GO  TO  45 
40  CONTINUE 

IF  (NSEX-2)  45,45,35 
45  CONTINUE 

IF  (NREG-1)  50,60,55 
50  NER  =  1 

WHITE  (NPRNT, 44) 
44  FORMAT (/, 1X,49H***  QXADJ  ERROR  NO.  1384  ~  INPUT  ERROR  IN  REGION,/ 
*,1X,71H***  REGION  MUST  BE  1  FOR  WEST,  2  FOR  NORTH,  3  FOR  EAST,  OR 
*4  FOR  SOUTH.) 
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GO    TO    60 

55  CONTINUE 

IF     (NKEG-4)     60,60,50 
60    DO    80    1=1,18 

IF    (QX  (I)-. 000001)    86,70,70 
70   CONTINUE 

IF     (QX(I)-1.)    75,75,86 
75    N   =    N    ♦    1 

80  CONTINUE 

IF    (N)    83,83,81 

81  CONTINUE 

IF     (NT)    83,84,82 

82  CONTINUE 

IF    <N-(NT-1))     83,84,83 

83  NER    =    1 

HRITE     (NPRNT,56) 

56  FORMAT (/, 1X,45H**»   QXADJ    ERROR    NO.     1385    —    INPUT    ERROR    IN    QX,/ 
*,1X,97H***    ALL    LIFE    TABLE    QX    VALUES   MUST    BE  GREATER    THAN    OR   EQUAL 
*TO    ZERO    AND    LESS   THAN    OR   EQUAL    TO    ONE.) 

84  CONTINUE 

IF     (NER-1)     90,85,85 

85  HRITE     (NPRNT,66)     EO, EONEH, NSEX,NREG 

66    FORMAT  (/,1X,25H  QXADJ    INPUT    ARGUMENTS,/, 10H  EO    =    ,F6.3, 

*  /,1X,12H  EONEH   =    ,F6.3, 

*  /, 1X,11H  NSEX    =    ,11, 

*  /,1X,11H  NREG    =    ,11) 
HRITE    (NPRNT,77)     (QX  (I)  ,1=1,18) 

77    FORMAT     {/,1X,9H  QX    =    , 10 (F8.5, 2X)  , 

*  /,10X,8  (F8.5,2X)) 
GO    TO    1000 

86  CONTINUE 

IF     (NT)    87,87,80 

87  NT   =    I 

GO    TO    80 

C 

c _ 

c GENERATE    AND   STORE    MODEL    QXS    CORRESPONDING   TO    EO. 

c 

C 

90  CALL  HLT(EO, NSEX, NREG, CDHLT) 
DO  100  1=1,  18 
1J0  QX2 (I)=CDMIT  (1,1) 
C 
c 

C GENERATE  MODEL  QXS  CORRESPONDING  TO   EONEH. 

C 

c 

CALL    MLT (EONEH, NSEX, NREG, CDMLT) 
C 
c 

C ADJUST   THE    INPUT    VALUES    OF    QX. 

C 

C 

DO    110    1=1, 18 

ALPHA=CDMLT  (I,  1)  /QX2  (I) 
110  QX(I)=QX(I)*AIPHA 

IF  (NHRIT)  1000,1000,200 

200  HRITE  (NPRNT,  201) 

201  FORMAT(////,29X,11HPBOBABILITX,/,5X,8HFROM    AGE,5X, 
*6HTO    AGE,6X,8HOF    DYING,//) 

HRITE  (NPRNT, 202)     QX(1),QX(2) 

202  F0RMAT(7X,5HBIRTH,9X,1H1,9X,F7.5,/,9X,1H1,11X,1H5,9X,F7.5) 
DO    250   K  =  3,N 

K2    =    (K    -    1)     *    5 

K1    =   K2    -    5 

HRITE  (NPRNT, 203)    K1,K2,QX(K) 

203  FORMAT(8X,I2,10X,I2,9X,F7.5) 
250    CONTINUE 

1000   RETURN 
END 
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I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To  rejuvenate,    five    years  backward   in  time,    each  sex   of   a   population   dis- 
tribution by   5-year  age  groups.      The   rejuvenation   utilizes  survival   rates 
and   number  of  migrants,    by    5-year   age  groups.       If   there   are   no   migrants,    the 
variable   representing   them  is   zero.      Although   this  subroutine  makes   the   reju- 
venation  only  for   a    5-year    period,    a  population   rejuvenation  can   be   made   for    a 
time   period   varying  from   5   to   50    years   by   using  the  main    program   as   given  in 
this   publication. 

B.  DATA    HEEDED 

1.  The  distribution  of    male   population  in    5-year   age   groups. 

2.  The   male   migrants   by    5- year    age    groups. 

3.  The   distribution   of    female   population   in   5- year  age  groups, 
t.  The   female  migrants   by   5-year  age   groups. 

5.  The   5-year  survival   rates   for   males. 

6.  The   5-year  survival   rates   for   females. 

II.  METHODOLOGY 

A.       MATHEMATICAL    DERIVATION 


MP*  -     5  x+5         L     5     x l_x 4     2     x+5 2     x+5 

5    x-  t,t+5 

5    x 


where 

rHP        is   the   rejuvenated    male  population   age  x,x+4   at   year  t. 

rHS  '  is   the  male    population   survival   rate   for   age   x, x*4 

surviving   to   age    x+5,x+9  during  the  period   t,t*5. 

rMM    '-         is  the  male  migrants  age   x,x+4   at   the   time  of   migration 

during  the  time  period  t,t*5 

The   same    is  done    for   females. 

The   rejuvenated   population   for   the  open-ended  age    interval  is  calculated 
as   follows: 

»*>  -  ±  ^:r  ■  d  +  ^:r>  -  ±  ™r5  • "  +  »*r5> 

x-S*  -  „«,W 

x-5+ 
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To  determine  the  births  occurring  in  the  interval,  the  male  and  female 
population  0-4  are  rejuvenated  again  to  birth. 

<L1  KJR 


where 

TB    '  are   the   total   births  occurring   in    the  interval. 

MS  '      .      and    FS  b'0_/,    are   the    male    and  female  survival  rates  from 

birth   to   age   0-4   respectively. 

The   crude   birth    rate   is   the  number  of   births  occurring   during   the 
interval   divided   by   five   times  the  mid-period   total   population. 


bt,t+5  _  2  TBt>t Zl 

5    (TPt+5  +  TP  ) 


where 


b    '  is  the   crude   birth  rate   for   the    interval   t#t+5 

TP     is  the  total    population   at   time   t. 

The  general    fertility    (GFB)    is  defined   as   the  number  of  births  occurring 
during  the  interval    divided    by  five   times   the    female   population    15-49   at   the 
mid  interval. 


GFR  = 


2  TBt>t+5 


U5 

5    Yl     (FPt+:L  +  *p*    ..) 

3^75*5         x,x+A  x,x+V 


The   average  annual   rate   of  natural   increase   is  calculated   as  follows: 


t,t+5  _     2    (TPt+5  -  TPt  -  TMt,t+5) 


" 


5   (TP     +  TPt+^) 


where 

TMt,t+5    ^s  tjje   total   migrants  during   the  interval   t,t+5 

The   crude  death   rate    is  obtained  by  taking  the   difference   between 
the  crude  birth   rate  and   the   rate  of   natural  increase. 


dt,t+5  =  bt,t+5  _  pt,t+5 


B.      COMMENTS 

In  the  reguirements  for  the  main  program  for  this  subroutine,  mortality 
data  is  supplied  for  only  two  points  in  time.   The  main  program  linearly  inter- 
polates the  survival  rates  between  these  two  points  to  obtain  the  survival  rates 
needed  for  the  mid-point  of  each  rejuvenation  period. 
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til. H    A    I    N       PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  REVR5(PM,TPM,PMM,PF,TPF,PMF,SXM,SXF,PPAR) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  all  of  the  variables  in  the  argument  string  except  TPH 
and  TPF  are  arrays.   The  following  dimension  statement  must  be  included  in 
any  main  program  using  this  subroutine. 

DIMENSION  PM{17)  ,PMM(17)  ,PF  ( 17)  ,  PHF(  17)  ,  SXH(17)  ,SXF  (17)  ,PPAR(7) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.   Subroutines  from  this  package 


a. 

ABREV 

b. 

INTRP* 

c. 

PREVR* 

d. 

MLT* 

e. 

ELT* 

*    These  subroutines  are  not  called  by  the  subroutine  REVR5.   They  are 
used  only  by  the  main  program. 

2.   Library  functions 

a.  ABS  (absolute  value) 

b.  EXP  (exponential) 

c.  ALOG (natural  logarithm) 
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3.   Card  diagram  of  main  program,  all  subroutines  and  functions. 


/ 
/_. 
/ 
/ 


/ 


CARDS    INDICATING    END    OP   DECK  / 

J 

INPOT  DATA  /| 

/    I 


COMPUTER  CONTROL  CARDS 


SUBROUTINE  ELT 


/I     I 

/    I     ! 

/Ill/ 
./III/ 


SUBROUTINE    MLT 


/ 


/III/ 
./III/ 


/. 
/ 
/ 


/ 


/ 


/. 
/ 
/ 


subroutine  intrp  /iii/ 

"~subroutine~abrIv  / 111/ 

/  III/ 

SUBROUTINE   prevr  /III/ 

/  III/ 

SUBROUTINE    BEVR5  /III/ 

/    III/ 

BAIN    PROGRAH  /III/ 
/    III/ 


/  COMPUTER    CONTROL   CARDS         /III/ 

/ /    III/ 

III/ 
I     I     1/ 
BEGINNING    OF   DECK  |     |    / 

I     1/ 
I    / 


C.      FORMAT    REQUIREMENTS    FOR   CARD   INPUT   DATA    FOR   THE   MAIN   PROGRAH    GIVEN    IN 
SECTION    V.A. 

The  card   format    requirements   for  the    main   program   included   with  this 
subroutine  package  are  as  given  belov.      The  data  should   be  punched  in   the 
columns   specified.      For   a  more  detailed    description  of   the   input  data, 
see   the   description   of    arguments  in   section  IV.  B.    See  example,  section  V.C. 


Variable 
Card  Columns        Name  Definition 


1 
2-53 
54-80 

1 


2 

3-4 

5-6 

7-10 

11-14 

15-20 


NXT 


DAY 


THO 


TEAR 


NDAT2 


Blank 

Label  used   to  identify  the  output 

Blank 


The  code  indicating  if  there  is 
another  data  set  following  this  one. 
A  zero  punched  in  column  1  indicates 
this  is  the  last  set  of  data.   Any  other 
number  punched  in  column  1  indicates 
another  set  of  data  follows  this  one. 

Blank 

Day  of  the  month  for  which  the  popu- 
lation to  be  rejuvenated  is  given. 

Honth  of  the  year  for  which  the 
population  to  be  rejuvenated  is  given. 

Tear  for  which  the  population  to  be 
rejuvenated  is  given. 

Tear  to  which  the  population  is  to  be 
rejuvenated. 

Blank 
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21-22    IKODE 


23-24 
25-26 

27-30 
31-32 

33-34 

35-38 

39-80 

1-8 

9-16 

73-80 

1-8 
9-16 

49-56 


DAY1 


TH01 


YEAR1 


DAY2 


TM02 


YEAR2 


PH 


PM 


Mortality   indicator    which    specifies 
whether  age-specific   survival    rates 
are   given   or  a   regional  model  life 
table  is  to   be  used.      If    11    is    punched 
in  columns    21   and    22,    then    age-specific 
survival   rates   are   to    be  used  for   the 
mortality   corresponding   to   the  later 
and   earlier   dates  as  given    in  columns 
23-30   and    31-38,    respectively,    of    this   card. 
If    12  is   punched  in   columns   21    and   22, 
then  age-specific   survival   rates   are 
used    for   the  later   date  given   in   columns 
23-30    of   this  card  and   a   Coale-Demeny 
Regional    Model   Life  Table    is  being   used 
for   the   earlier    date  as    given    in   columns 
31-38  of    this  card.      If   21    is    punched 
in  columns   21   and   22,    then    a  Coale-Demeny 
Regional   Model   Life  Table   is   to   be    used 
for    the   later   date   given   in  columns   23- 
30  of   this   card  and  age-specific   survival 
rates  for   the  earlier    date  as   given   in 
columns  31-38  of    this  card.      If   22   is 
punched   in   columns  21    and    22  of   this  card 
then   Coale-Demeny   Regional    Model   Life 
Tables  are  to   be  used    for   both   the   later 
and  earlier   dates   as  given   in   columns  23- 
30   and    31-38,    respectively.      If    any  other 
value   is   punched   in  columns   21    and    22  the 
main    program  will   stop   and   no  further  data 
will  be    processed. 

Day   of   the  month    to  which   the  first  set  of 
mortality   data  applies,    i.e.   day   of   later  date, 

The    month    of    the    year    to   which    the   first   set 
of  mortality  data   applies,    i.e.    month  of 
later   date. 

Year    to    which   the   first  set   of   mortality 
data   applies,   i.e.    year  of   later   date. 

Day   of  the  month  to   which   the  second  set 
of    mortality  data   applies,    i.e.    day   of 
earlier   date. 

The  month  of  the  year  to  which  the  second 
set  of  mortality  data  applies,  i.e.  month 
of   earlier    date. 

The   year    to   which   the   second  set  of   mortality 
data   applies,    i.e.    year   of   earlier  date. 

Blank 


The  male  population  0-4.   The  number  should 
end  in  column  8. 

The  male  population  5-9.   The  number  should 
end  in  column  16. 


The  male  population  45-49.   The  number  should 
end  in  column  80. 


The  male  population  50-54.   The  number  should 
end  in  column  8. 

The  male  population  55-59.   The  number  should 
end  in  column  16. 


The  male  population  80+.   The  number  should 
end  in  column  56 . 
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|    57-80 


I 

| Blank 


The   variable  PH   always   requires   two    cards.      The   first   card    (card   no. 3) 
must   always  contain   data,   whereas  the   second  card    (card  no. 4)    can   contain 
all   zeroes   depending  on   the  number   of   age    groups  given.      The   last  age 
group   given  must  always  be  the  open-ended  age  group. 


1-8 
9-16 

• 

73-80 

1-8 
9-16 

• 

49-56 
57-80 


PP 


PF 


The   female  population  0-4.      The   number   should 
end   in  column  8. 

The   female    population   5-9.      The  number   should 
end   in  column   16. 


The   female   population    45-49.      The  number 
should  end   in  column  80. 


The   female   population   50-54.      The 
number  should  end  in  column   8. 

The  male  population  55-59.      The  number 
should  end  in  column    16. 


The   female   population   80+, 
should  end   in  column   56. 

Blank 


The   number 


The   variable  PF  always  requires   two   cards.      The   first  card    (card  no. 5) 
must   always  contain  data,   whereas  the  second  card  (card  no. 6)    can   be 
all    zeroes    depending   on   the  number   of   age   group   given.      The   last  age 
group   given  must  always   be  the  open-ended  age   group. 


1-8 


9-16 


73-80 


I 
PBHT  | The   total  number   of  migrants  for  the  first 

1 5-year  rejuvenation  interval    (the   latest). 
| The   number   should   end  in  column   8. 
I 

| The   total  number   of  migrants  for   the 
(second  5- year  rejuvenation  interval.      The 
| number  should  end  in  column    16. 
I 
I 


| The  total  number  of  migrants  for  the  tenth 
| 5-year  rejuvenation  interval  (the  earliest) 
I  The  number   should    end   in  column  80. 


The   number   of   values   read  from   PHHT   is  the   same  as   the  number 
of  5-year   intervals   that   the   population  is   to  be  rejuvenated. 
This   value  is  positive  if  the   total   migrants  are  immigrants 
and   negative  if  the   total  migrants  are  emigrants. 

This  main  program  will   rejuvenate  a   population  a   maximum  of   ten 
intervals  so   PUNT  can   be  between   1   to    10  values. 


1-8 


9-16 


73-80 


I 
PHNA  | The   proportion  of   the  total  migrants 

| during  the  first  5-year  rejuvenation 
| interval  who  are  males  age  0-4.  The 
| decimal   point  is  in  column    1. 

I 

| The  proportion  of   the   total  migrants 

I  during  the  first    5-year  rejuvenation 

| interval   who   are   males    5-9.      The   decimal 

| point  is  in  column   9. 

I 

I 

I 

| The  proportion  of  the  total  migrants 
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1-8 


9-16 


49-56 


57-80 


PMMA 


during   the   first    5-year   rejuvenation 
interval   who   are   males    45-49.      The   decimal 
point  is  in  column   73. 


The   proportion   of   the   total   migrants 
during   the   first   5-year   rejuvenation 
interval   who  are   males   50-54.      The   decimal 
point   is   in   column   1. 

The  proportion  of  the  total  migrants 
during  the  first  5-year  rejuvenation 
interval  who  are  males  55-59.   The 
decimal  point  is  in  column  9. 


The  proportion  of  the  total  migrants 
during  the  first  5-year  rejuvenation 
interval  who  are  males  80+.   The  decimal 
point  is  in  column  49. 

Blank 


Two  cards  must  always  be  provided  for  the  variable  PMHA  for 
each  5-year  rejuvenation  interval.   Values  are  provided  only 
for  age  groups  in  which  there  were  migrants.   The  last  group 
given  is  not  assumed  to  be  the  open-ended  age  group  unless 
it  is  the  seventeenth  value  or  is  the  same  number  of  age 
groups  as  given  for  the  population  distribution. 


10 


11 


1-f 


9-16 


73-80 


1-8 


9-16 


49-56 


57-80 


PMFA 


PMFA 


The  proportion  of  the  total  migrants 
during  the  first  5-year  rejuvenation 
interval  who  are  female  0-4.   The  decimal 
point  is  in  column  1. 

The    proportion   of   the   total   migrants 
during    the   first   5 -year   rejuvenation 
interval   who  are   females   5-9.      The   decimal 
point  is   in  column  9. 


The  proportion  of  the  total  migrants 
during  the  first  5-year  rejuvenation 
interval  who  are  females  45-49.  The 
decimal   point  is    in  column   73. 


The  proportion  of  the  total  migrants 
during  the  first  5-year  rejuvenation 
interval  who  are  females  50-54.  The 
decimal    point  is  in   column    1. 

The  proportion  of  the  total  migrants 
during  the  first  5-year  rejuvenation 
interval  who  are  females  55-59.  The 
decimal   point  is  in   column   9. 


The    proportion  of    the   total   migrants 
during  the   first    5-year   rejuvenation 
interval   for  females   80+.      The   decimal 
point  is  in  column  49. 

Blank 


The   reguirements   for    PMFA   are   the  same   as   for   PMMA.       The 
sum   of   the   proportion   of    PMHA   and  PMFA   for    all   ages   for  each 
5-year   rejuvenation   interval   must  add  to    1.00.      For   each   5- 
year   rejuvenation   interval  the   proportion   of   male  migrants   by 
5-year   age   groups   is   followed    by  the    proportion   of   female 
migrants    by   5-year    age   groups   for  the   same    5-year 
rejuvenation    interval.      So,    there  are   four   cards   for   each   5- 
year   rejuvenation   interval  --    two  cards   for   male  migrants  and   two 
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cards    for   female   migrants. 

The   next   group  of   cards  depends   on  the  value   given   for   KODE  in   card  2. 

If    K0DE=11,i.e.    columns  21    and   22  of   card   2   contain   11,   survival  rates  are 
read   for   both   the   later  and   earlier    mortality.      J   is  the  number   of 
rejuvenations    minus   1    multiplied   by   4. 


12+J 


13+J 


14+J 


15+J 


1-8 


9-16 


73-80 


1-8 


49-56 


57-80 


1-8 


9-16 


73-80 


1-8 


SRX 


SRX 


SRX 


SRX 


The   survival  rate   for    male   births 
surviving    to  age   0-4  for  the  later 
mortality    date  given  in  card   2   columns 
23    to    30     (DAY1,    TM01,    YEAB1).       The 
decimal  point  should  be  in   column    1. 

The   survival  rate   for  males  of   age 
0-4   surviving  to   age   5-9  for  the 
later  mortality  date  given   in   card  2 
columns   23    to  30    (DAY1,    TB01,    YEAR1)  . 
The   decimal   point   should  be   in  column  9. 


The   survival   rate   for   males  age 

40-44   surviving    to  age    45-49 

for   the   later   mortality   date  given   in   card   2 

columns   23    to  30     (DAY1,    TH01,    YEAR1) .      The 

decimal   point   is   in  column  73. 


The   survival  rate   for   males  age 

45-49   surviving   to   age    50-54   for 

the    later   mortality   date   given   in    card  2 

columns   23    to  30     (DAY1,    TM01,    YEAR1) .      The 

decimal    point  should   be  in  column    1. 


The   survival  rate   for   males   ages   75+ 
surviving   to  80+   for  the  later 
mortality    date  given  in  card   2   columns 
23   to    30    (DAY1,    TM01,    YEAB1).      The   decimal 
point   is   in  column   49. 

Blank 


The   survival  rate   for   female  births 
surviving   to   0-4   for   the   later 
mortality  date  given   in  card  2   columns 
23   to   30    (DAY1,    TH01,    YEAR1).      The   decimal 
point   is   in  column   1. 

The    survival  rate   for   females   0-4 
surviving   to  5-9   for  the  later 
mortality    date  given  in  card   2  columns 
23    to   30    (DAY1,    TH01,    YEAB1).      The   decimal 
point  is  in  column   9. 


The   survival  rate  for   females   40-44 
surviving  to   45-49   for   the   later 
mortality   date  given  in  card  2   columns 
23   to   30    (DAY1,    TH01,    YEAR1).      The   decimal 
point  is   in   column  73. 


The   survival  rate   for   females  45-49 
surviving  to   50-54  for   the  later 
mortality   date  given  in   card  2   columns  ' 
23   to  30    (DAY1,    TM01 ,    YEAB1).      The   decimal 
point   is  in   column   1. 
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!16  +  J 


49-56 

57-80 
1-8 

9-16 


73-80 


17+J 


1-8 


18  +  J 


49-56 


57-80 


1-8 


73-80 


19  +  J 


1-8 


49-56 


57-80 


SRX 


SRX 


SRX 


SRX 


The   survival  rate   for    females  75+ 

surviving   80+  for   the   later 

mortality    date  given   in  card   2   columns 

23    to    30     (DAY1,    TM01,    YEAR1) .       The   decimal 

point  is   in  column   49. 

Blank 


The  survival  rate  for  male  births 
surviving  to  0-4  for  the  earlier 
mortality  date  given  in  card  2  columns 
31  to  38  (DAY2,  TH02,  YEAR2).   The  decimal 
point  is  in  column  1. 

The  survival  rate  for  males  0-4 
surviving  to  5-9  for  the  earlier 
mortality  date  given  in  card  2  columns 
31  to  38  (DAY2,  TM02,  YEAB2) .   The  decimal 
point  is  in  column  9. 


The  survival  rate  for  males  40-44 
surviving  to  45-49  for  the  earlier 
mortality  date  given  in  card  2  columns 
31  to  38  (DAY2,  TM02,  YEAB2) .   The  decimal 
point  is  in  column  73. 


The   survival  rate   for   males   45-49 
surviving   to    50-54   for    the   earlier 
mortality   date   given  in   card  2   columns 
31    to  38    (DAY2,    TH02,    YEAR2) .      The   decimal 
point  is   in   column    1. 


The    survival  rate   for    males   75 
surviving    to  80+   for   the  earlier 
mortality    date  given  in  card   2  columns 
31    to    38     (DAY2,    TM02,    YEAB2) .       The    decimal 
point   is   in  column    49. 

Blank 


The   survival  rate    for   female  births 
surviving   to   age    0-4  for   the  earlier 
mortality   date  given   in   card   2    columns 
31    to   38     (DAY2,    TM02,    YEAR2) .       The    decimal 
point  is   in   column    1. 


The    survival  rate    for    females    40-44 
surviving    to  45-49  for   the  earlier 
mortality    date  given   in  card   2  columns 
31    to    38     (DAY2,    TH02,    YEAR2) .       The    decimal 
point  is   in  column   73. 


The   survival  rate    for    females  45-49 
surviving    to  50-54   for    the   earlier 
mortality    date   given   in  card   2   columns 
31    to    38     (DAY2,    TH02,    YEAR2) .       The   decimal 
point   is   in  column    1. 


The   survival  rate   for   females  7  5+ 
surviving   to  age    80+   for   the  earlier 
mortality   date  given  in   card  2   columns 
31    to   38    (DAY2,    TH02,    YEAR2) .      The    decimal 
point   is   in   column  49. 

Blank 
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If  less  than  17  survival  rates  are  to  be  given  for  either  sex 
on  either  the  later  or  earlier  mortality  date  two  cards 
must  still  be  used  for  each  sex  with  data  in  the  number  of 
columns  needed.   The  last  survival  rate  given  for  each  sex 
for  each  mortality  date  must  be  the  open-ended  survival  rates. 

If  KODE=12,  i.e.  columns  21  and  22  of  card  2  contain  12,  then  survival 
rates  are  read  for  the  later  mortality  date  and  Coale-Demeny  Regional 
Model  Life  Tables  are  used  for  the  earlier  mortality  date.   Cards  12+J 
through  cards  15+ J   for  K0DE=11  are  required.   The  following  card  is 
needed  for  the  earlier  mortality  date. 


16+J 


1-6 


7-12 


13 


14-80 


EO  | Life   expectancy   at  birth  for  males  for 

| the  earlier   mortality   date.      The  decimal 
| point  should   be   in  column    3. 

I 

| Life  expectancy  at  birth  for  females 

| for  the  earlier  mortality  date.   The  decimal 

| point  should  be  in  column  9. 

I 
NREG    | The  region  in  the  Coale-Demeny  Regional 

| Model  Life  Tables  to  be  used.   A  1,  2,  3, 
| or  4  in  column  13  indicates  the  west,  north, 
least,  or  south  region,  respectively. 

I 

I  Blank 


If  K0DE=21,i.e.  columns  21  and  22  of  card  2  contain  21,  then  Coale- 
Demeny  Regional  Model  Life  Tables  are  used  for  the  later  mortality 
date  and  survival  rates  are  read  for  the  earlier  mortality  date. 


12*  J 


1-6 


7-12 


13 


14-80 


EO 


NREG 


Life  expectancy  at  birth  for  males 
for  the  later  mortality  date. 
The  decimal  point  should  be  in 
column  3. 

Life  expectancy  at  birth  for  females 
for  the  later  mortality  date. 
The  decimal  point  should  be  in 
column  9. 

The  region  in  the  Coale-Demeny 

Regional  Model  Life  Tables  to  be 

used.   A  1,  2,  3,  or  4  in  column  13  indicates 

the  west,  north,  east,  or  south  region, 

respectively. 


Blank 


cards  13+J   through  16+J   are  the  same  as  cards  16+J 
19+J   for  K0DE=11. 


through 


If    KODE=22,i.e.    columns  21    and   22  of  card  2   contain  22,    then  Coale 
Demeny   Regional    Model    Life   Tables  are  used  for   both  the   later  and 
earlier  mortality  dates.      Card    12+J     is  the   same  as  card   12+J     for 
K0DE=21.      Card    13+J      is   the    same   as  card   16+J      for    KODE=12. 

For   each   different  series,    cards   7   through   the   last  are  required. 

IV.    S0BR00TINE 

A.       SUBROUTINE   STATEMENT 

All   external   subroutines   begin   with    the  word   SUBROUTINE  followed   by   a 
space,    the   name  of  the   subroutine   and  the   argument   string   enclosed  in 
parentheses.      This  subroutine  begins  as    follows: 


SUBROUTINE    REVR5 (PM, TPM, PMH, PP, TPF,PMF , SXM, SXF,PPAR) 
B.      DESCRIPTION   OF   ARGUMENTS 

Name  How  Obtained     Definition 
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PH 


TPH 


PHH 


PF 


TPF 
PHF 

SXH 


SXF 


PPAR 


Transferred  In 


Transferred  Out 


Transferred  In 


Transferred  In 


Transferred  Out 
Transferred  In 

Transferred  In 


Transferred  In 


Transferred  Out 


On  input  PN  contains  the  5-year  age 
distribution  of  Dales  to  be  rejuvenated. 
These  can  be  a  maximum  of  17  age  groups 
with  the  last  age  group  being  the  open- 
ended  age  group.   All  age  groups  must  be 
greater  than  or  equal  to  0.9.   If  this 
is  not  the  case,  error  message  number  1121 
will  be  written  and  the  subroutine  will 
return  to  the  calling  program.   On  out- 
put PH  contains  the  rejuvenated  5-year  age 
distribution  of  males. 

Total  male  populations  after  rejuvenation. 

The  number  of  male  migrants  by  5-year  age 
groups.   There  can  be  a  maximum  of  17  age 
groups  with  the  last  one  being  the  open- 
ended  age  group. 


On  input  PF  contains  t 
distribution  of  female 
There  can  be  a  maximum 
with  the  last  age  grou 
ended  age  group.   All 
greater  than  or  equal 
not  the  case,  error  me 
be  written  and  the  sub 
the  calling  program, 
the  rejuvenated  5-year 
females. 


he  5- year  age 

s  to  be  rejuvenated. 

of  17  age  groups 
p  being  the  open- 
age  groups  must  be 
to  0.9.    If  this  is 
ssage  number  1121  will 
routine  will  return  to 
On  output  PF  contains 

age  distribution  of 


Total  female  population  after  rejuvenation. 

The  number  of  female  migrants  by  5-year  age 
groups.   There  can  be  a  maximum  of  17  age 
groups  with  the  last  one  being  the  open- 
ended  age  group. 

The  5-year  survival  rates  for  males. 

There  can  be  a  maximum  of  17  survival  rates 

for  males.   Each  survival  rate  must  be  less 

than  one  and  greater  than  or  equal  to  zero. 

If  this  is  not  the  case,  error  message 

number  1122  will  be  written  and  the  subroutine 

will  return  to  the  calling  program. 

The  5-year  survival  rates  for  females. 
There  can  be  a  maximum  of  1 7  survival  rates 
for  females.   Each  survival  rate  must  be 
less  than  one  and  greater  than  or  equal  to 
zero.   If  this  is  not  the  case,  error  message 
number  1122  will  be  written  out  and  the  sub- 
routine will  return  to  the  calling  program. 

PPAR  contains  some  of  the  basic  parameters  of 
the  population.   They  are  as  follows: 
PPAR(1)  -  Rate  of  growth 
PPAR (2)  -  Rate  of  natural  increase 
PPAR  (3)  -  Crude  birth  rate 
PPAR  (4)  -  Crude  death  rate 
PPAR  (5)  -  General  Fertility  rate 
PPAR  (6)  -  Hale  life  expectancy  at  birth 
PPAR (7)  -  Female  life  expectancy  at  birth. 


C.   ERROR  MESSAGES 


1121  ***  REVR5  ERROR  NO.  1121  —  INPDT  ERROR  IN  PH  OR  PF 
***  ONE  AGE  GROUP  OF  EITHER  THE  HALE  OR  FEHALE 

POPULATION  IS  LESS  THAN  OR  EQUAL  TO  0.9. 

1122  ***  REVR5  ERROR  NO.  1122  —  INPUT  ERROR  IN  SXH  OR 
***  AN  INTERMEDIATE  SURVIVAL  RATE  FOR  EITHER  HALES 

OR  FEHALES  IS  LESS  THAN  OR  EQUAL  TO  ZERO  OH 
GREATER  THAN  1. 
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V.       PROGRAM      AND       RESULTS 

A.       COMPUTER    LISTING    FOR    MAIN    PROGRAM 

c _ 

c _ . . 

C MAIN    PROGRAM    FOR    REVR5 

c _ . 

c . 

c THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  SEVEN 

C READ  STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

c__ STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  BEAD  THE  LABEL  TO 

c BE  OSED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  (1)THE 

c INDICATOR (NXT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER  DATA  SET 

C FOLLOWING  THIS  ONE,  (2) THE  DATE (DAY, TMO, YEAR)  FOR  WHICH  THE 

c POPULATION  DISTRIBUTION  IS  GIVEN,  (3)  THE  YEAR(NDAT2)  TO  WHICH  THE 

C- POPULATION  IS  TO  BE  REJUVENATED, 

C (4)  THE  MORTALITY  INDICATOR  (KODE)  USED  TO  SPECIFY  WHETHER  AGE 

C SPECIFIC  SURVIVAL  RATES  ARE  TO  BE  GIVEN  OR  A  REGIONAL  MODEL 

c — _ —  LIFE  table  IS  TO  BE  USED,  (5)THE  DATE  (DAY1 ,TM01 , YEAR1)  TO  WHICH 

C THE  FIRST  SET  OF  MORTALITY  DATA  APPLIES  (THE  LATER 

c DATE),  AND(6)THE  DATE(DAY2,  TM02,  YEAR2)  TO  WHICH  THE 

C SECOND  SET  OF  MORTALITY  DATA  APPLIES  (THE  EARLIER  DATE). 

C- NXT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  1 

c INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER  NUMBER 

c PUNCHED  IN  COLUMN  1  INDICATES  THERE  IS  ANOTHER  SET  OF  DATA 

c ._        FOLLOWING  THIS  ONE. 

C DAY   IS  COLUMNS  3-4  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED  AS  XX 

C SO  THAT  IT  ENDS  IN  COLUMN  4,  I.E.  IF  IT  IS  THE  FIRST  DAY  OF 

c THE  MONTH  IT  WOULD  BE  ENTERED  AS  01. 

c TH0   IS  IN  COLUMNS  5-6  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED  SO 

c THftT  IT  ENDS  IN  COLUMN  6. 

C — YEAR   IS  IN  COLUMNS  7-10  OF  THIS  CARD. 

C NDAT2   IS  IN  COLUMNS  11-14  OF  THIS  CARD.   NDAT2  SHOULD  BE  THE 

c TEAK  T0  vjhicH  THE  POPULATION  IS  TO  BE  REJUVENATED. 

c IT  BUST  BE  S0ME  MULTIPLE  OF  FIVE  LESS  THAN  YEAR  AND  NOT 

c H0RE  THAN  FIFTEEN  YEARS  LESS  THAN  YEAR. 

C KODE   IS  IN  COLUMNS  21-22  OF  THIS  CARD.   IF  BOTH  THE  LATER 

C AND  EARLIER  MORTALITY  DATA  IS  TO  BE  PROVIDED  AS  SURVIVAL 

C RATES  THEN  THE  NUMBER  11  SHOULD  BE  PUNCHED  IN  COLUMNS 

c 21-22.   IF  THE  LATER  SET  OF  MORTALITY  DATA  IS  TO  BE 

c PROVIDED  AS  SURVIVAL  RATES  BUT  THE  EARLIER  SET  IS  TO  BE 

C BASED  ON  A  COALE-DEMENY  REGIONAL  MODEL  LIFE  TABLE  THEN  THE 

c NUMBER  12  SHOULD  BE  PUNCHED  IN  COLUMNS  21-22.   IF  THE  LATER 

C SET  OF  MORTALITY  DATA  IS  TO  BE  BASED  ON  A  COALE-DEMENY 

C REGIONAL  MODEL  LIFE  TABLE  AND  THE  EARLIER  SET  IS  TO  BE  PRO- 

c VIDED  AS  SURVIVAL  RATES  THEN  THE  NUMBER  21  SHOULD  BE  PUNCH- 

C ED  IN  COLUMNS  21-22.   IF  BOTH  SETS  OF  MORTALITY  DATA  ARE  TO 

c BE  BASED  ON  COALE-DEMENY  REGIONAL  MODEL  LIFE  TABLES  THEN 

c THE  SUMBER  22  SHOULD  BE  PUNCHED  IN  COLUMNS  17-18.   ANY 

C OTHER  NUMBER  IS  AN  ERROR  AND  WILL  CAUSE  THE  MAIN  PROGRAM  TO 

C STOP. 

C DAY1       IS    IN   COLUMNS    23-24    OF    THIS  CARD    AND    REFERS   TO    THE   DAY   OF 

c THE    MONTH   FOR   THE   LATER    MORTALITY    DATE   AND    SHOULD    BE 

c ENTERED    SO    THAT    IT   ENDS    IN    COLUMN    24. 

C TM01       IS    IN   COLUMNS    25-26    OF    THIS  CARD    AND    REFERS   TO    THE   MONTH  OF 

c THE   YEAR    OF    THE   LATER   MORTALITY    DATE   AND   SHOULD    BE 

c ENTERED    SO   THAT    IT   ENDS    IN    COLUMN    26. 

C YEAR1       IS    IN   COLUMNS    27-30    OF    THIS  CARD   AND    REFERS   TO    THE   YEAR 

c T0    hhTCH    THE   LATER    MORTALITY   SET    APPLIES. 

C DAY2       IS    IN   COLUMNS    31-32    OF    THIS   CARD    AND    REFERS   TO   THE   DAY    OF 

c. THE    MONTH    FOR    THE    EARLIER   MORTALITY    DATE    AND   SHOULD   BE 

c ENTERED    SO    THAT    IT    ENDS    IN    COLUMN   32. 

C TM02       IS    IN   COLUMNS    33-34    OF    THIS   CARD    AND    REFERS   TO   THE   MONTH 

c OF    THE    YEAR    OF   THE    EARLIER    MORTALITY    DATE    AND    SHOULD    BE 

c ENTERED    SO    THAT    IT    ENDS    IN    COLUMN    34. 
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TEAR2   IS  IN  COLO  HNS  35-38  OF  THIS  CARD  AND  IS  THE  YEAR 
FOR  WHICH  THE  EARLIER  MORTALITY  SET  IS  GIVEN. 

THE  THIRD  READ  STATEMENT  OSES  TWO  DATA  CARDS. 

THE  PORPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  MALE 

POPOLATION  AGE  DISTRIBUTION  (PMI)  IN  FIVE  YEAR  AGE  GROUPS. 

PHI   VALOES  ARE  ENTERED  ON  TWO  CARDS.   FOR  EACH  PMI  VALUE  EIGHT 
COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS 
OF  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  PMI  VALUES  CAN  APPEAR 
ON  THE  FIRST  CARD  SO  THAT  THE  VALUES  END  IN  COLUMNS  8,  16, 
24,  ...,  72,  AND  80.   THE  SECOND  CARD  CAN  CONTAIN  A  MAXIMUM 
OF  SEVEN  PMI  VALUES  AND  THE  VALUES  SHOULD  BE  ENTERED  IN  THE 
SAME  MANNER  AS  ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALOE 
ON  THE  SECOND  CARD  WILL  END  IN  COLOHN  56.   IF  LESS  THAN 
SEVENTEEN  VALOES  ARE  TO  BE  GIVEN,  TWO  CARDS  MUST  STILL  BE 
USED  WITH  DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECESSARY  FOR 
THE  NUMBER  OF  PHI  VALUES. 

THE  FOURTH  READ  STATEMENT  USES  TWO  DATA  CARDS. 

THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  FEMALE 
POPULATION  DISTRIBUTION (PFI)  IN  FIVE  YEAR  AGE  GROUPS. 
PFI   VALUES  ARE  CONTAINED  ON  TWO  CARDS  AND  HAVE  THE  SAME 
REQUIREMENTS  AS  PMI  VALUES. 


THE  FIFTH  READ  STATEHENT  USES  ONE  DATA  CARD.  THE  PURPOSE  OF  THE 
FIFTH  READ  STATEMENT  IS  TO  READ  IN  THE  TOTAL  NUMBER  OF  MIGRANTS 
(PMMT)  FOR  EACH  FIVE  YEAR  REJUVENATION  PERIOD. 

PMMT   IS  CONTAINED  ON  ONE  CARD.  THERE  ARE  AS  MANY  PMMT  VALUES  AS 
THERE  ARE  REJUVENATION  PERIODS  TO  A  MAXIMUM  OF  10. 
THE  FIRST  PMMT  CONTAINS  THE  TOTAL  NUMBER  OF  MIGRANTS  FOR 
THE  FIRST  REJUVENATION  PERIOD.  FOB  EACH  PHHT  VALUE,  EIGHT 
DIGITS  ARE  ALLOWED  WITH  THE  FIRST  NUMBER  ENDING  IN 
COLUMN  8. 

THE  SIXTH  READ  STATEHENT  USES  FOUR  TIMES  AS  MANY  CARDS  AS 
THE  NUMBER  OF  REJUVENATION  PERIODS. 

THE  PURPOSE  OF  THE  SIXTH  READ  STATEMENT  IS  TO  READ  IN  THE 
PERCENT  DISTRIBUTION  OF  MALE  AND  FEMALE  MIGRANTS  (PMMA  AND  PMFA) 
IN  FIVE  YEAR  AGE  GROUPS.  THE  TOTAL  HALE  AND  FEMALE  MIGRANTS  ADDS 
TO  1.00.   THERE  ARE  TWO  CARDS  FOR  MALE  MIGRANT  VALUES  (PMMA) 
FOLLOWED  BY  TWO  CARDS  FOR  FEMALE  MIGRANT  VALUES  (PMFA)  FOR  EACH 
REJUVENATION  PERIOD. 

PMMA   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  THERE  ARE  EIGHT  DIGITS 
ALLOWED  FOR  EACH  PMMA  VALUE  WITH  THE  DECIMAL  POINT  IN 
COLUMN  1,9,17,  ...65  AND  73.  THUS,  THERE  ARE  TEN  VALUES 
ON  THE  FIRST  CARD.  THE  SECOND  CARD  CONTAINS  SEVEN  VALUES 
WITH  THE  LAST  VALUE  IN  COLUMN  49-56. 
PMFA   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  PHFA  VALUES  HAVE  THE 
SAHE  REQUIREMENTS  AS  PMHA  VALUES. 

THE  SEVENTH  READ  STATEMENT  USES  BETWEEN  TWO  AND  EIGHT  DATA  CARDS. 
THE  PURPOSE  OF  THE  SEVENTH  READ  STATEMENT  IS  TO  READ  IN  THE 
MORTALITY  DATA.   THIS  CAN  BE  READ  IN  FOUR  ALTERNATIVE  WAYS.   THE 
ALTERNATIVE  TO  BE  USED  DEPENDS  ON  THE  MORTALITY  INDICATOR 
(KODE)  READ  BY  THE  SECOND  READ  STATEHENT. 

ALTERNATIVE  1,  KODE  =  11,  I.E.  COLUMNS  21  AND  22  OF  CARD  2 
CONTAIN  11,  SURVIVAL  RATES  (SRX)  ARE  TO  BE  READ  FOR 
BOTH  THE  LATER  AND  EARLIER  DATES  OF  THE  REJUVENATION 
PERIOD. 

SRX   VALUES  ARE  CONTAINED  ON  EIGHT  CARDS,  FOUR  CARDS  FOR 
THE  LATER  DATE  (DAY1 ,TM01 , YEAR1)  ,  AND  FOUR  CARDS 
FOR  THE  EARLIER  DATE (DAY2 ,TH02, YEA R2) .   FOR  THE 
LATER  DATE,  THERE  ARE  TWO  CARDS  ALLOWED  FOR  THE 
SURVIVAL  RATES  FOR  EACH  SEX.   FIRST  THERE  ARE 
TWO  CARDS  FOR  THE  HALE  SURVIVAL  RATES  FOLLOWED 
BY  TWO  CARDS  FOR  THE  FEHALE  SURVIVAL  RATES.   FOR 
EACH  FIVE  YEAR  SURVIVAL  RATE,  EIGHT  DIGITS  ARE 
ALLOWED  WITH  A  DECIHAL  POINT  IN  COLUMNS  1,  9,  17, 
...,  65,  AND  73.   THUS,  THERE  ARE  TEN  SURVIVAL 
RATES  FOR  MALES  ON  THE  FIRST  CARD.   THE  SECOND  CARD 
CAN  CONTAIN  A  MAXIMUM  OF  SEVEN  SURVIVAL  RATES  FOR 
HALES  ENTERED  IN  THE  SAME  MANNER  AS  ON  THE  FIRST 
CARD.   THE  LAST  RATE  THAT  CAN  BE  ON  THE  SECOND  CARD 
IS  IN  COLUMNS  49-56  WITH  A  DECIMAL  POINT  IN  COLUMN 
49.   IF  LESS  THAN  SEVENTEEN  RATES  ARE  TO  BE  GIVEN, 
TWO  CARDS  MUST  STILL  BE  USED  WITH  DATA  ONLY  IN  THE 


444       DOCUMENTATION 


C NDHBER   OF   COLUMNS    NECESSARY   FOR    THE    NUMBEB    OF   MALE 

C SBBVIVAL    RATES  GIVEN.       THE    THIBD   AND   FOURTH   CABDS    ABE 

C FOR   FEMALE   SURVIVAL    RATES    FOR   THE    LATER    DATE   AND 

C HAVE    THE    SAME    REQUIREMENTS    AS    THE    FIRST    TWO    CARDS 

C WHICH    HERE    FOR   MALES.       CARDS   FIVE   THROUGH    EIGHT    ABE 

C FOB    THE    EARLIER    DATE    AND    SHOULD    HAVE    THE   DATA 

C ENTERED    IN    THE    SAME    MANNER    AS   THE   FIRST   FOUR   CABDS. 

C AS    THE    FIRST    FOUR  CARDS. 

C ALTERNATIVE    2,     KODE   =    12,    I.E.    COLUMNS    21    AND   22    OF    CARD    2 

c CONTAIN    12,    SURVIVAL    RATES     (SRX)     ARE    TO    BE   READ    FOR  THE 

c LATER    DATE     (DA Y1  ,TN01,YEAR1)  ,    AND   COALE-DEMENY    REGIONAL 

c MODEL   LIFE   TABLES    ARE    TO   BE   USED    FOB   THE   EABLIER    DATE 

C- (DAY2,TM02,YEAR2,)     SO    THAT   LIFE    EXPECTANCIES    AT    BIRTH 

c (E0)     &RE    NEEDED    FOR    EACH    SEX    AND    A    REGION (NREG)     MUST    BE 

c INDICATED.       FIVE   CARDS    ARE    NEEDED    FOR    THIS    ALTERNATIVE. 

C SRX      VALUES    ARE   CONTAINED    ON    THE   FIRST   FOUB    CABDS 

C— AND   SHOULD    BE   THE   SAME   AS    SPECIFIED    IN 

C ALTEBNATIVE    1. 

C EO      VALUES   ARE   CONTAINED   ON    THE    FIFTH    CARD.      ONE 

C VALUE    MUST    BE    GIVEN    FOB    EACH    SEX    WITH    SIX 

C COLUMNS    ALLOWED   FOR    EACH    VALUE.      THE    VALUE    FOR- 

C MALES    IS    IN    COLUMNS    1-6    WITH    A    DECIMAL    POINT    IN 

C COLUMN    3.       THE    VALUE    FOR    FEMALES    IS    IN    COLUMNS 

C-- 7-12    WITH   THE    DECIMAL   POINT    IN    COLUMN    9. 

C NREG       IS    PUNCHED    IN    COLUMN    13    OF   THE    FIFTH    CARD    OF 

C THE   MORTALITY    DATA.       A    VALUE    OF    1,    2,    3,    OR    4 

C PUNCHED    IN    COLUMN    13    INDICATES   REGIONS    WEST, 

C NORTH,    EAST,    OB    SOUTH,    BESPECTIVELY . 

C ALTERNATIVE    3,    KODE    =    21,    I.E.    COLUMNS    21    AND    22    OF   CABD    2   CON- 

c TAIN   21,    COALE-DEMENY    BEGIONAL    MODEL    LIFE    TABLES 

C ARE    TO    BE   USED    FOR    THE    LATER    DATE (DAY  1, TM01, YEAR1)     SO 

c THAT   LIFE   EXPECTANCIES    AT    BIRTH  (EO)    ARE   NEEDED    FOR   EACH    SEX 

c. AND    A    REGION (NREG)     MUST   BE    INDICATED,    AND    SDBVIVAL 

C RATES(SRX)     ARE   TO    BE   READ   FOR   THE    EABLIER    DATE  (DAY2,TM02 , 

c YEAR2) .       FIVE    CARDS    ABE    NEEDED    FOR    THIS    ALTEBNATIVE. 

C EO      VALUES    ARE    CONTAINED    ON    THE    FIBST   CABD    OF    THIS 

C GROUP.       EXCEPT    FOR    BEING    ON    THE   FIRST  CABD    THEY 

C SHOULD    BE   ENTEBED    IN    THE    SAME    MANNER    AS 

C SPECIFIED    IN    ALTERNATIVE    2. 

C— NREG      IS    CONTAINED    ON   THE    FIRST   CARD  AND   EXCEPT    FOR 

C THAT    FACT   SHOULD    BE    ENTERED    IN   THE    SAME   MANNER 

C AS    SPECIFIED    IN    ALTERNATIVE   2. 

C SRX       VALUES    ARE    CONTAINED    ON    FOUR   CARDS.       IN    THIS 

C CASE    ON    CARDS    TWO    THROUGH    FIVE    AND    SHOULD    BE 

C ENTERED    IN    THE    SAME    MANNER    AS    THE    FIRST   FOUR 

C CARDS    IN    ALTERNATIVE    1. 

C ALTERNATIVE   4,    KODE   =    22,    I.E.    COLUMNS    21    AND    22    OF    CARD    2   CON- 

c TAIN    22,    COALE-DEMENY    REGIONAL    MODEL    LIFE    TABLES 

C ARE    TO    BE   USED    FOR    BOTH    THE  LATER    AND    EARLIER    DATES. 

c THUS,    LIFE    EXPECTANCIES    AT    BIRTH (EO)     ARE   NEEDED    AND   A 

C REGION  (NREG)     MUST    BE    INDICATED.       TWO    CARDS    ARE    NEEDED    FOR 

c THIS    ALTERNATIVE    AND    MUST    BOTH    BE    SPECIFIED    IN    THE    SAME 

C MANNER    BUT    WITH    DATA    SUPPLIED    FOB    THE    TWO    DIFFERENT    DATES. 

c THE    MORTALITY    DATA    FOR   THE    LATER    DATE    IS    SUPPLIED   ON    THE 

c FIRST   CARD    AND    THE    MORTALITY    DATA    FOR    THE    EARLIER    DATE    IS 

C ON    THE    SECOND    CARD. 

c THUS,    TWO    CARDS    MUST    BE   COMPLETED   AS    INDICATED    BELOW. 

C EO      VALUES    MUST    BE    ENTEBED    AS   GIVEN   FOB    CARD   FIVE    OF 

C ALTERNATIVE    2. 

C NREG       MUST    BE    ENTERED    AS    GIVEN    FOR    CARD    FIVE    OF 

C ALTERNATIVE    2. 

c 

c _ 

DIMENSION  PMI(17)  ,PFI  (17)  ,  SRX  (17,2,2)  ,CDMLT(18,8) 
*,PPAR  (7)  ,SXF(17)  ,SXM(17)  ,E0(U),SM1  (17)  ,SM2(17)  ,SF1(17)  ,SF2(17)  , 
*PMMT(10)  ,PMMA(17,10)  ,PMFA  (17,10)  ,PHM(17)  #PMF  (17)  ,PM  (17)  ,PF{17) 

NREAD  =  1 

NPRNT  =  15 

C 

c 

C READ  IN  THE  DATA 

c 

C 

10  READ(NREAD,11) 

11  FORMAT(1X,52H  ) 
READ (NREAD, 22) N XT, DAY, TMO, YEAR, NDAT2, KODE, DA Y1,TM01, YEAB1,DAY2, TMO 

*2,YEAR2 
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22    FORMAT (11, 1X, 2F2. 0,F4. 0, 14, 6X, 12, 2 (2F2 . 0, F4. 0) ) 

READ(NREAD,33)      (PHI (I)  , 1=1 ,  17) 
33    FORMAT (10F8.0) 

READ(NREAD,33)      (PFI  (I)  ,  1=1  ,  17) 


CALCULATE    THE    NUMBER    OF    TIMES    TO    READ    THE    FERTILITY    AND    MORTALITY 


NDAT1    =    YEAR 

ITT   =     (NDAT1-NDAT2)    /    5 

IF     (ITT)     1040,24,20 
20    CONTINUE 

IF     (ITT    -    10)     24,24,1040 
24    DATM   =    YEAR    +     ( .08  33*  (TMO-1  .))  +  (•  0027*  (DAY-1 .) ) 

READ(NREAD,33)      (PMMT  (I)  ,1=1  ,ITT) 

DO    25    J=1,ITT 

READ(NREAD,77)      (PMMA(I,J)  ,  1=1,  17) 

READ  (NREAD,77)      (PMFA  (I,  J)  ,1  =  1,  17) 


25   CONTINUE 


DETERMINE    HOB    THE    MORTALITY    DATA    IS    TO    BE    READ    AND   OBTAIN 
SURVIVAL    RATES    IF    LIFE    EXPECTANCY    AT    BIRTH    IS    GIVEN 


IF     (KODE   -    11)     1010,30,50 
30    DO    40    K   =    1,2 

DO    40    J   =    1,2 

READ(NREAD,77)  (SRX  (I ,  J,K)  ,1  =  1,17) 
40  CONTINUE 
77  FORMAT(10F8.7) 

GO  TO  200 
50  CONTINUE 

IF  (KODE  -  12)  1010,60,130 
60  DO  70  J  =  1,2 

READ(NREAD,77)  (SRX  (I,J,1)  ,1=1,  17) 
70  CONTINUE 

READ(NREAD,88)  EO  (3) ,EO (4)  , NREG 
88  FORMAT(2F6.3,I1) 


TEST  EO  VALUES  AND  NREG  FOR  APPROPRIATE  VALUES 


72  JI  =  3 

KI  =  4 

K  =  2 
75  DO  90  I  =  JI,KI 

IF  (EO(I)-20.0)  1020,90,80 
80  CONTINUE 

IF  (EO(I)-80.0)  90,90,1020 
90  CONTINUE 

IF  (NREG-  1)  1030,110,100 
100  CONTINUE 

IF  (NREG  -  4)  110,110,1030 
110  CALL  MLT(EO(JI)  ,  1 ,  NREG,  CDMLT) 

DO  120  I  =  1,17 
120  SRX(I,1,K)  =  CDMLT  (1,6) 

CALL  MLT(EO (KI) ,2, NREG, CDMLT) 

DO  125  I  =1,17 
125  SRX  (I, 2, K)  =  CDMLT  (1,6) 

IF  (KODE  -22)  200,180,200 
130  CONTINUE 

IF  (KODE  -  21)  1010,140,160 
140  READ(NREAD,88)  EO  ( 1)  ,  EO  (2)  ,  NREG 

DO  150  J  =  1,2 

READ(NREAD,77)   (SRX(I,J,2) ,1=1,17) 
150  CONTINUE 

JI  =  1 

KI  =  2 

K  =  1 

GO    TO    75 
160    CONTINUE 

IF     (KODE    -    22)     1010,170,1010 
170    READ(NREAD,88)     EO  (1)  ,  EO  (2)  ,  NREG 

NCONT   =    1 
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JI    =    1 

KI   =   2 

K    =    1 

GO    TO    75 
180    CONTINUE 

IP    (NCONT    -    1)     200,190,200 
190    NCONT    =    2 

READ(NREAD,88)     EO  (3)  ,EO  (4)  ,  NREG 

JI    =    3 

KI    =   4 

GO    TO    72 
C 
c 

C CALCULATE    TOTAL   MALE    AND    FEMALE    POPULATION    AND    CLEAR    OUT 

C POPULATION    PARAMETERS    FOR    FIRST    WRITE 

c 

C 

200    DATE  =    0.0 

TB   =    0.0 

TD   =    0.0 

DO    220    I    =    1,7 
220    PPAR(I)     =   0.0 

DO    240    I    =    1,17 

SXM  (I)     =0.0 
240    SXF(I)     =    0.0 

NDAY   =    DAY 

NYEAR    =    YEAR 

NHO   =    TMO 

WRITE (NPRNT, 111) 
111    F0RHAT{1H1) 

WRITE(NPRNT,11) 

WRITE (NPRNT, 222) NDAY, NMO,  NYEAB 
222    F0BMAT(/, 1 X, 55HPOP0LATION    AT   THE    BEGINNING    OF   THE   BEJUVENATION    PES 
*IOD    ,2  (12,  1X)  ,14) 

DO    245    1=1,17 

PM(I)     =    PHI  (I) 

PF(I)  =  PFI  (I) 
245  CONTINUE 

CALL  PREVR(PM,TPM,PF,TPF,SXM,SXF,PPAR,DATB) 

C 

c 

C REJUVENATION    LOOP 

c . 

C 

DO    250    I   =    1,17 
SM1(I)     =    SRX(I,1,1) 
SH2  (I)    =   SRX(I,1,2) 
SF1  (I)    =    SRX(I,2,1) 
250    SF2  (I)    =    SRX(I,2,2) 

DATA   =    YEAR1    +     (.0833* (TM01-1.) ) +     (. 0027* (DAY1-1 .) ) 
DATC  =    YEAR2   +     (.  0833*  (TM02-1  .)  )  +    (.  0027*  (DAI2-1 .)  ) 
NYR   =    YEAR 
ITT   =     (NYR    -    NDAT2)    /    5 


300    DO    999  IT  =    1,ITT 

DATB   =  DATM    -   IT    *    5.    +2.5 

DO    310  1=1,17 

PMM  (I)  =    PMHA(I,IT)     *    PHMT{IT) 

310    PHP  (I)  =    PHFA  (I, IT)     *    PMMT(IT) 
C 

c _ 

C INTERPOLATE   FOB   SURVIVAL    RATES 

c 

C 

CALL   ABREV(2,SM1,SM2,M) 

CALL  ABREV  (2, SF1  ,SF2,  N) 

CALL  INTRP  (2, 0,H, DATA, DATB, DATC, SM1,SM2,SXB) 

CALL  INTRP  (2, 0,N, DATA, DATB, DATC, SF1,SF2,SXF) 

C 

c 

C REJUVENATE  THE  POPULATION 

c 

C 

CALL  REVR5  (PM,TPM,PHM,PF,TPF,PMF,SXM, SXF,PPAB) 

NYEAR  =  NYEAR  -  5 

WBITE (NPRNT, 1 11) 

WRITE  (NPBNT,  11) 

WBITE (NPRNT, 333)  NDAY, NMO, NYEAR 
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333    FORMAT  {/,  1X,  2<4H  POPULATION    REVERSED    TO       ,  2  (12,  1X)  ,  14) 

CALL    PEEVE (PM,TPH, PF, TPF, SXM, SXF, PPAB, DATB) 
999   CONTINUE 

IF     (NXT)     10,1000,10 

C 

c . 

C — -_-  ERROBS  IN  INPOT  DATA  FOR  THE  MAIN  PROGBAM 

c _ 

C 

1010  WRITE(NPBNT,111) 
WBITE(NPBNT,1011) 

1011  FORMAT  {/,1X,95H***  ERROR  IN  INPOT  FOB  HAIN  PBOGBAM  —  KODE,  YOO  SH 
*OOLD   CHECK    ALL    OF    YOUB    INPUT    DATA    CABEFULLY.) 

GO    TO    1000 

1020  WBITE(NPBNT,111) 
IEITE  (NPRNT,1021) 

1021  FORMAT (/,1X,71H***  EEBOB  IN  INPUT  FOB  HAIN  PBOGBAM  —  EO  IS  NOT  BE 
♦TWEEN  20.0  AND  80. 0. ,/, 5X, 50HYOU  SHOULD  CHECK  ALL  OF  YOUB  INPUT  DA 
*TA    CABEFULLY.) 

GO    TO    1000 

1030  WRITE{NPRNT,111) 
WRITE  (NPRNT,1031) 

1031  FOBMAT(/,1X,65H***    EREOR    IN    INPUT    FOR    MAIN    PROGRAM    —    NEEG   IS    NOT 
*1,    2,    3,    OR    t.,/, 5X,50HYOU    SHOULD    CHECK    ALL    OF    YOUR   INPUT    DATA    CAR 
*EFULLY.) 

GO    TO    1000 

1040  WRITE  (NPRNT, 1041) 

1041  FORMAT  {/,1X,92H***  EBBOR  IN  INPUT  FOR  HAIN  PROGRAM  —  DIFFERENCE  I 
*N  YEAR  AND  NDAT2  IS  NOT  BETWEEN  0  AND  10.) 

1000  CONTINUE 
STOP 
END 


B.   COMPUTEB  LISTING  FOR  SUBROUTINE 

SUBROUTINE  BEVB 5  (PH,TPM , PHH, PF,TPF,PMF, SXM, SXF, PPAB) 

c 

c 

C PBOGBAM  NO.  1120 

c 

C — SXM,  SXF,  PHH,  AND  PHF  ABE  INPUT  ABGUMENTS  ONLY. 

C PM  AND  PF  ABE  BOTH  INPUT  AND  OUTPUT  ABGUMENTS.   ON 

C INPUT  THEY  PEBTAIN  TO  THE  POPULATION  BEFORE  THE  REJUVENATION.   ON 

C OUTPUT  THEY  PERTAIN  TO  THE  POPULATION  AFTER  THE  REJUVENATION. 

C TPM,  TPF  AND  PPAR  ABE  OUTPUT  ARGUMENTS  ONLY. 

C PH   is  THE  MALE  POPULATION  DISTRIBUTION  IN  FIVE  YEAR  AGE  GROUPS. 

C TPH  IS  THE  TOTAL  MALE  POPULATION  AFTEB  THE  BEJUVENATION . 

C PHM  IS  THE  MALE  MIGRANTS  BY  FIVE  YEAR  AGE  GROUPS 

c pp   IS  THE  FEMALE  POPULATION  DISTBIBUTION  IN  FIVE  YEAB  AGE 

C GROUPS. 

C TPF    IS   THE  TOTAL    FEMALE    POPULATION    AFTEB   THE   REJUVENATION. 

C PHF    IS   THE   FEMALE    HIGRANTS    BY    FIVE   YEAR    AGE    GROUPS 

C SXM      IS    THE   FIVE    YEAB    SUBVIVAL    BATES    FOB    MALES. 

C SXF      IS    THE    FIVE    YEAB    SUBVIVAL    BATES    FOE    FEMALES. 

C PPAB       CONTAINS    THE    FOLLOWING    POPULATION    PABAMETEBS    -     {1)BATE   OF 

C GROWTH,      (2)  RATE    OF    NATURAL    INCREASE,      (3)CRUDE    BIRTH    BATE, 

c (4) CRUDE    DEATH    BATE,     (5) GENEBAL    FEBTILITY    BATE, 

c (6) MALE    LIFE   EXPECTANCY    AT    BIBTH,     AND 

c (7) FEMALE   LIFE    EXPECTANCY    AT   BIBTH. 

c 

c 

DIMENSION  PH(17)  ,PF(17)  ,  SXM  (17)  ,  SXF  (17)  ,BF1  (7)  ,PPAB  (7)  , 
*PHH  (17)  ,PMF(17) 
NPBNT  =  15 
C 
c 

C VERIFY  INPUT  ABGUMENT  VALUES 

c 

c 

100  NERE  =  0 
N  =  0 
H  =  0 
NT  =  0 
HT  =  0 
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TH    =    0.0 

TPH   =    0.0 

TPF   =0.0 

DO    104    1=1,17 

IF     (PH(I)-0.9)     112,112,101 
101    H   =    H+1 

TPH   =    TPH    *    PH(I) 
10  2    CONTINUE 

IF     (PF(I)-0.9)     114,114,103 

103  N    =    N    +    1 

TPF   =    TPF    +    PF(I) 

104  TH   =   PHM(I)     +    PHF{I)     +    TH 
IF     (H)     107,107,105 

105  CONTINUE 

IF     (HT)     107,107,106 

106  CONTINUE 

IF     (H-(HT-1))     110,107,110 

107  CONTINUE 

IF     (N)     110,110,108 

108  CONTINUE 

IF     (NT)     116,116,109 

109  CONTINUE 

IF     (N-(NT-1))     110,116,110 

110  WRITE     (NPRNT,  111) 

111  FORHAT  (/,52H  ***  REVR5  ERROR  NO.  1121  —  INPUT  ERROR  IN  PH  OR  PF, 
*/89H  ***  ONE  AGE  GROUP  OF  EITHER  THE  HALE  OR  FEHALE  POPULATION  IS 
♦LESS  THAN  OR  EQUAL  TO  ZERO.) 

NERR  =  1 
GO  TO  116 

112  CONTINUE 

IF     (HT)     113,113,102 

113  HT    =    I 

GO    TO    102 

114  CONTINUE 

IF     (NT)     115,115,104 

115  NT    =    I 

GO    TO    104 

116  HT    =   0 
NT   =   0 
N    =    0 
H   =    0 

DO    122    I   =    1,  17 

IF     (SXH  (I) -.000001)     131,131,117 

117  CONTINUE 

IF     (SXH(I)-1.)     118,131,131 

118  H    =    H    +1 

119  CONTINUE 

IF     (SXF  (I) -.000001)     133,133,120 

120  CONTINUE 

IF     (SXF(I)-1.)     121,133,133 

121  N   =    N    +    1 

122  CONTINUE 

IF    (H)     130,130,125 

125  CONTINUE 

IF     (HT)     127,127,126 

126  CONTINUE 

IF     (H-(HT-1))     130,127,130 

127  CONTINUE 

IF     (N)     130,130,128 

128  CONTINUE 

IF     (NT)     130,220,129 

129  CONTINUE 

IF  (N-(NT-1))  130,220,130 

130  WRITE  (NPRNT, 222) 

222  FORHAT  (/, 55H  ***  REVR5  ERROR  NO.  1122  —  INPUT  ERROR  IN  SXH  OR  SX 
*F.,/103H  ***  AN  INTERHEDIATE  SURVIVAL  RATE  FOR  EITHER  HALES  OR 
*  FEHALES  IS  LESS  THAN  ZERO  OR  GREATER  THAN  1.) 

NERR  =  1 

GO  TO  220 

131  CONTINUE 

IF     (HT)     132,132,119 

132  HT   =    I 

GO    TO    119 

133  CONTINUE 

IF     (NT)     134,134,122 

134  NT   =   I 

GO    TO     122 
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220    CONTINUE 

IF     (NERR)     230,300,230 
230    HRITE     (NPRNT,444)     PM, PMM, PF, PMF, SXM, SXF 
444    FORMAT     (/26H    ***    REVR5    INPUT    ARGUMENTS 

*  /    5H    PM=    ,9F12.0    /9X,8F12,0   /6H    PHM=    , 9F12. 0,/, 5X, 8F12 . 0 

*  /    5H    PF=    ,9F12.0   /9X,8F12.0   /6H    PMF=    ,9F12. 0,/,5X,8F12. 0 

*  /6H    SXM=    ,9F12.5    /10X,8F12.5 

*  /6H   SXF=    ,9F12.5   /10X,8F12.5    ) 
TPH  =   0.0 

TPF=   0.0 

TM    =    0.0 

TB=    0.0 

TD=    0.0 

DO    240    1=1,17 

PM(I)     =    0.0 

PF(I)     =0.0 

240    CONTINUE 

GO    TO    1000 

C 

c 

C INITIALIZE  REJUVENATION  VARIABLES  

c 

C 

300  T1=  TPM+TPF 
TTM  =0.0 
TPM=  0.0 
TPF=  0.0 
DO  305  1=1,7 

305  RF1  (I)     =    PF{I+3) 
C 

c 

C ADJUST  POPULATION, PM, OR  SURVIVAL  RATES, SX,  TO  COMPATIBLE  NUMBER 

C OF  AGE  GROUPS, NG, AND  MAKE  SURE  THAT  THE  MIGRATION  ARRAY  IS 

C NOT  LARGER  THAN  NG . 

c 

C 

CALL    ABREV     (1,PM,PF,NG) 
CALL    ABREV (2, SXM, SXF, NG) 
CALL    ABREV     (3  ,  PM,  SXM,  NG) 
CALL    ABREV     (3,PF,SXF, NG ) 
IF     (NG    -    17)     306,308,308 

306  NGP1    =    NG    +    1 

DO    307    J=NGP1,17 

PMM(NG)     =    PMM  (NG)     +    PMM  (J) 

307  PMF  (NG)     =    PMF(NG)     +    PMF  ( J) 

308  NGM1=    NG-1 
NGM2    =    NG    -   2 

C 

c _ 

C CALCULATE    RATIO    OF    LAST    TWO    AGE    GROUPS     (AM    AND    AF),    AND    

C TOTAL    BIRTHS     (TB)     

c _ _ 

c 

AM=    PM(NG) /(PM(NGM1) +PM  (NG)  ) 

AF=    PF(NG)/(PF(NGM1) +PF(NG)  ) 

TB=  (PM  (1)-.25*PMM  (1)*(1.+SXM(2))  )/SXM(1)  +  (PF(1)  - 
*.25*PMF(1)  *  (1.+SXF  (2)  )  )/SXF  (1) 
C 
c 

C REJUVENATE    POPULATION    

c 

C 

PM  (NG)     =PM(NG)     -    .  25*PMM  (NG) *(1.+SXM (NG) ) 
PF(NG)     =    PF(NG)     -    .25*PMF  (NG)  *  (1  .+SXF  (NG)  ) 
DO    310    I=1,NGM2 
PM  (I)     =     (PM{I+1)     -.25    *    PMM  (I)     * 

*  (1.  +  SXM(I+1))-.25*PMM  (1  +  1)  *(1.+SXM(I  +  2)  )) /SXM  (1+1) 
PF  (I)     =     (PF(I+1)     -.25*PMF(I)     * 

*  (1.+SXF  (1+1)  )-.25*PMF  (1+1)  *(1.+SXF(I  +  2)  )  ) /SXF  (1  +  1) 
TTM    =    PMM  (I)     +    PMF(I)     +    TTM 

TPH    =    TPM    +    PM(I) 
310    TPF   =    TPF    +    PF(I) 

TTM    =    TTM    +    PMM(NG)     +    PMF(NG)     +    PMM(NGM1)     +    PMF(NGM1) 

PM  (NGM1)  =  (PM(NG)-  (.  25*PMM  (NGM  1)  +.  25+PMM  (NG)  )  *(1.+SXM  (NG)  )  )/SXH  (NG) 

PF(NGMl)  =  (PF(NG)-(.25*  (PMF  (NGM1)  +PMF  (NG)  )*  (1  ,+SXF  (NG)  )  )  )/SXF(NG) 

TPM    =    TPM    +    PM (NGM1) 

TPF    =    TPF    +    PF(NGM1) 
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PM(NG)     -    PM(NGM1)     *    AM 

PF(NG)     *    PF(NGM1)     *    AF 

PM(NGM1)     =    PM{NGM1)     -    PM (NG) 

PF(NGM1)     =    PF(NGM1)     -    PF  iNG) 

T2    =   TPM    +    TPF 

TD   =   T2    -    T1    +   TB    +   TTM 
C 
c _ _ _ 

C CALCULATE    CRUDE    VITAL    RATES     (CBR    AND    CDR)  , 

C AND    GROWTH    RATES     (RNG    AND    RG) 

c _ 

C 

TMID=     (T1  +  T2)*2.5 

PPAR(3)  =    TB/TMID 

PPAR{4)     =    TD/TMID 

PPAR(2)  =    PPAR(3)     -    PPAR(4) 

PPAR(1)=     (T1-T2)/TMID 
C 
c 

C CALCULATE    TOTAL    AND    GENERAL    FERTILITY    RATES     (TFR    AND    GFR) 

c ,___ _ _ „. . ,__. 

C 

RF=    0.0 
TFR=    0.0 
DO    315    1=1,7 
315    RF=    RF  +  RF1  (I) +PF(I  +  3) 
PPAR(5)=    TB/(RF*2.5) 

C 

c_. . _ 

c CALCULATE  LIFE  EXPECTANCY  AT  BIRTH  (EOM  AND  EOF) 

c ,_ 

C 

RM=  5.0 
EOM=  0.0 
DO  325  1=1,16 

IF     (SXM  (1  +  1)  -0.001)     330,320,320 
320    RM=    RH*SXM  (I) 
325    EOM=    EOM+RM 

1=    17 
330    EOH=    EOM+(  (RH*SXM(I)  ) /(1  .O-SXM(I)  )  ) 
RF=   5.0 
EOF=   0.0 
DO    350    1=1,16 

IF     (SXF  (I+1)-0.001)     360,340,340 
340    RF=    RF*SXF  (I) 
350    EOF=    EOF+RF 

1=    17 
360    EOF=    EOF+(  (RF*SXF  (I)  ) /{1 .  0-SXF  (I)  )  ) 
PPAR(6)     =    EOM 
PPAR(7)     =    EOF 
C 
c 

C RETURN    TO    CALLING    PROGRAM 

c 

c 

1000  RETURN 
END 
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RVFWD 


I.  DESCRIPTION       OF       PROGRAM 

A.  PURPOSE 

To  obtain  an  estimate  of  the  under enumeration  of  the  age  group  0-4 
in  a  population  census,  under  the  assumption  that  fertility  has  remained 
constant  during  the  past  10  or  15  years.   This  subroutine  uses  a  population 
distribution  by  sex  and  5-year  age  groups,  5-year  survival  rates  for  each 
sex,  migrants  by  sex  and  5- year  age  groups,  and  the  sex  ratio  at  birth.   If 
there  are  no  migrants,  the  variable  representing  them  is  zero. 

B.  DATA    NEEDED 

1.  The  male    population   distribution  by  5-year   age   groups. 

2.  The   female  population   distribution  by   5-year  age   groups. 

3.  The  male  migrants  by   5-year   age   groups. 

4.  The   female   migrants   by  5-year   age   groups. 

5.  The   male  survival   rates   by   5-year   age   groups. 

6.  The  female  survival    rates   by   5-year  age   groups. 

7.  The   sex   ratio  at   birth. 

8.  A   selector   used    to   determine   whether   the  correction  should 
be  based  on   the   past    10   or    15   years. 

II.  METHODOLOGY 

A.       MATHEMATICAL    DERIVATION 

The   population  by   5-year   age   groups   for  each   sex   at   time  t   is 
rejuvenated   by   using   the   survival    rates   and  migrants    (if   any)    as   was 
explained  in   the   subroutine   HEVB5.       This   process   is  again  repeated  for 
another   5-year   interval.      The  second  rejuvenation    process   gives   the 
number  of   births   during   the    period   t-10,t-5   —   those  who   were  age   5-9 
in   year   t.      Osing  the   number   of    births  and   the   female  population    in   ages 
15-49  at   time  t-10  to   t-5,    the   average  number   of  births   per   woman  is 
calculated  as  follows: 


F=  2  B^W 


5    (     FPt_1°  +      FPt_5) 
0   V35     15  3?   15 


where 

B    '      are  the  estimated  births  for  the  period  t-10, t-5  based  on 
the  population  5-9  at  time  t  and 

,,-FP)5    and  ,-FP.^   are  the  female  population  at  ages  15-49  at  time  t-10 

and  t-5  respectively. 

The  average  number  of  births  per  woman  in  childbearing  ages  is  used 
as  an  estimate  of  the  age-specific  fertility  rate  for  all  females  during  the 
time  period  t-5,t. 

The  process  of  obtaining  the  births  during  t-5, t  and  projecting  them 
to  time  t  is  made  by  using  the  subroutine  PROJ5.   PBOJ5  takes  the  estimated 
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number  of   births   for   the   period   t-5,t,    and   separates  the   births   into    males 
and   females    by    using   the   given  sex   ratio   at  birth  and   then   projects   them  to 
year   t   to  obtain   an   estimate   of   the   population  at   age  0-4. 

The  same   procedure  can   be  made  by   estimating   the   total  number   of   births 
at   the   period   t-15,t-10,    based  on   the  age   group    10-14  at   time  t   and   three 
rejuvenation   process. 

The   subroutine  always   rejects  the  actual   population  at   age   0-4,   for 
time  t. 

B.       COMMENTS 

The  main  program  uses  the  subroutine  MOBDJ  to  calculate  the  survival  rates 
for  the  midpoints  of  the  rejuvenation  intervals  beyond  the  first.  This  sub- 
routine adjusts  the  survival  rates  by  assuming  that  during  the  past  the  sur- 
vival rates  changed  in  the  same  proportion  as  two  different  sets  of  survival 
rates  from  two  Coale-Demeny  Regional  Model  Life  Tables  with  the  same  life 
expectancies  at  birth.  For  a  detailed  explanation  of  this  procedure  see  the 
Subroutine  MOBDJ. 

III.M  A  I  N   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1 .   CALL  statement 

Once  the  main  program  has  obtained  the  data  reguired  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  RVFWD(NT,SRB,SRM,SRF,DATB,PH,PF,PMM,PMF) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  the  variable  names  SRM ,SRF,PM,PF,PMM,  and  PMF  in 
the  argument  string  are  arrays.   The  following  dimension  statement  must 
be  included  in  any  main  program  using  this  subroutine. 

DIMENSION  SRM  (17,3),SRF  (17,3)  ,  PM  (17)  ,  PF  (17)  ,PMM  (17,3)  , PMF  (17,3) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  HITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 
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1. 


Subroutines 

from 

this 

package 

a. 

ABREV 

b. 

MORDJ* 

c. 

HLT* 

d. 

ELT* 

e. 

PRO  J  5 

f . 

REVR5 

q. 

PREVR 

h. 

PPROJ 

i. 

GTCON* 

*    These  subroutines  are  not  called  by  the  subroutine  RVFWD.   They  are 
used  only  by  the  main  program. 

2.  Library  functions 

ABS  (absolute  value) 

3.  Card  Diagram  of  main  program  and  subroutines. 


/  CARDS  INDICATING  END  OF  DECK      / 

/ / 

/  INPUT  DATA  /| 

/ /  I 

/  COMPUTER   CONTROL   CARDS  /|     | 

/  SUBROUTINE~GTCON—  /|     |     |    / 

/ /    III/ 

/  SUBROUTINE  PPROJ  /III/ 

/ . /  III/ 

/  SUBROUTINE    PREVR  /III/ 

/ „ /    III/ 

/  SUBROUTINE    PROJ5  /III/ 

/ „ /    III/ 

/  SUBROUTINE    REVR5  /III/ 

/ /    III/ 

/  SUBROUTINE   ELT  /III/ 

/ /    III/ 

/  SUBROUTINE    HLT  /III/ 

/__ 


/  III/ 

/  SUBROUTINE  HORDJ       /III/ 

/  "         "subroutine  ABREV"   /|  |  J  / 

/ /  III/ 

/  SUBROUTINE    RVFWD  /III/ 

/ /    III/ 

/  HAIN    PROGRAM  /III/ 

/ /    III/ 

/                        COMPUTER   CONTROL    CARDS        /III/ 
/ /    III/ 


C.      FORMAT    REQUIREMENTS    FOR   CARD   INPUT   DATA   FOR   THE    HAIN    PROGRAM    GIVEN    II 
SECTION    V.A. 

The  card   format   requirements  for   the   main    program   included   with   this 
publication   are  as  given  below.      The  data   should  be   punched  in    the 
columns   specified.      For    a  more  detailed    description  of    the   input  data, 
see   the  description   of   arguments  in  section  IV.  B.    See  example,  section  V.C. 


Variable 
Card  Columns        Name 


Definition 


1 
2-53 
54-80 


I 

| Blank 

I 

I  Label  used  to  identify  the  output 

I 

(Blank 

I 
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1  INXT 


2 
3-4 

5-6 

7-10 

11-14 
15-20 

21 


22 
23 

24-80 
1-8 
9-16 

73-80 
1-8 
9-16 

• 

49-56 
57-80 


DAY 


TMO 


YEAR 


SRB 


KODE 


NT 


PM 


PH 


The   code   indicating  if   there   is 

another    data  set    following  this    one. 

A   zero  punched  in   column    1    indicates  this 

is   the   last   set   of    data.      Any  other   digit 

punched   in   column    1    indicates   another  set 

of   data   follows   this  one. 

Blank 

Day  of  the  month  for  which  the 

population  distribution  is  given. 

It  should  be  entered  so  it  ends 
in  column  4. 

Month  of  the  year  for  which  the 
population  distribution  is  given. 
It  should  be  entered  so  it  ends 
in  column  6. 

Year  for  which  the  population 
distribution  is  given. 

Blank 

Sex   ratio  at  birth.      The  decimal  point 
should   be   in  column   16. 

Mortality  indicator  used   to  specify 
whether  age-specific   survival   rates 
are  to  be   given   or  a  Coale-Demeny 
Regional   Model   Life  Table   is  to  be 
used   for   the  middle  of   the   first 
rejuvenation  period.      A    1    punched   in 
column  21   indicates  age-specific   survival 
rates  are  to  be  used  for   the  first 
rejuvenation  period.       A  2   punched   in 
column   21  indicates  a   Coale-Demeny 
regional   model   life  table  is  to   be  used 
for   the   first  rejuvenation    period. 

Blank 

The  number  of  times  the  population  is 

to  be  rejuvenated  before  being  projected. 

Column  23  should  be  either  2  or  3. 

Blank 


The  male  population  0-4.   The  value 
should  end  in  column  8. 

The  male  population  5-9.   The  value  should 
end  in  column  16. 


The  male  population  45-49.   The  value 
should  end  in  column  80. 

The  male  population  50-54.   The  value 
should  end  in  column  8. 

The  male  population  55-59.   The  value 
should  end  in  column  16. 


The  male  population  80+. 
end  in  column  56. 

Blank 


The   value  should 


The   variable    PM   always  requires   two  cards.      The   first 
card    (card   no.    3)    must  always  contain   data,    whereas  the 
second  card    (card  no.    4)    can  be   all  zeroes   depending 
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on  the  number  of   age    groups    given.      The   last   age  group 
given  oust  always   be  the  open-ended  age  group. 


1-8 
9-16 

• 

73-80 
1-8 
9-16 

49-56 
57-80 


PF 


PF 


The   female    population    0-4.      The   value 
should   end    in  column  8. 

The   female   population   5-9.      The   value 
should  end   in  column    16. 


The   female   population   45-49.      The    value 
should  end   in  column   80. 

The   female    population    50-54.      The  value 
should  end   in  column  8 . 

The   female   population   55-59.      The   value 
should  end   in  column    16. 


The   female   population   80+. 
should  end  in  column  56. 

Blank 


The    value 


The   variable   PF  always  requires    two   data  cards.      The 
first  card    (card   no.    5)    must  always  contain   data,    whereas 
the  second  card    (card  no.    6)    can   be  all   zeroes  depending 
on   the  number  of   age   groups   given.      The  last  age   group 
given   must  always  be   the  open-ended  age   group. 


1-8 


9-16 


17-24 


25-80 


1-8 


9-16 


73-80 


1-8 


49-56 


PPHT 


PHH 


PUN 


The   total   number   of  migrants  for   the 

first  rejuvenation   period.      The    value  should 

end   in  column  8. 

The  total  number  of  migrants  for  the 

second  rejuvenation  period.   The  value  should 

end  in  column  16. 

The  total  number  of  migrants  for  the 
third  rejuvenation  period.   The  value  should 
end  in  column  24.   If  the  value  for  NT  in 
column  23  of  card  2  is  2,  then  these  columns 
will  be  blank. 

Blank 


The  proportion  of  the  total  migrants  for 
the  first  rejuvenation  period  that  are  males 
0-4.   The  decimal  point  is  in  column  1. 

The  proportion  of  the  total  migrants  for 
the  first  rejuvenation  period  that  are  males 
5-9.   The  decimal  point  is  in  column  9. 


The  proportion  of  the  total  migrants  for 
the  first  rejuvenation  period  that  are  males 
45-49.   The  decimal  point  is  in  column  73. 


The  proportion  of  the  total  migrants  for  the 
first  rejuvenation  period  that  are  males  50-54. 
The  decimal  point  is  in  column  1. 


The  proportion  of  the  total  migrants  for  the 
first  rejuvenation  period  that  are  males  80+. 
The  decimal  point  is  in  column  49. 
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|     57-80    | 


I  Blank 


Two  cards  must  always  be  provided  for  the  variable  PHM 
for  each  5-year  rejuvenation  period.   Values  are  provided 
only  for  age  groups  in  which  there  were  migrants.   The 
last  group  given  is  not  assumed  to  be  the  open-ended 
age  group  unless  it  is  the  seventeenth  value  or  is  the 
same  number  of  age  groups  as  given  for  the  population 
distribution. 


10 


11 


1-8 


9-16 


73-80 


1-8 


49-56 


57-80 


PMF 


PHF 


The  proportion  of  the  migrants  for  the 
first  rejuvenation  period  that  are  females 
0-4.   The  decimal  point  is  in  column  1. 

The  proportion  of  the  migrants  for  the 
first  rejuvenation  period  that  are  females 
5-9.   The  decimal  point  is  in  column  9. 


The  proportion  of  the  migrants  for  the 
first  rejuvenation  period  that  are  females 
45-49.   The  decimal  point  is  in  column  73. 


The  proportion  of  the  migrants  for  the 
first  rejuvenation  period  that  are  females 
50-54.   The  decimal  point  is  in  column  1. 


The  proportion  of  the  migrants  for  the 
first  rejuvenation  period  that  are  females 
80+.   The  decimal  point  is  in  column  49. 

Blank 


The  reguirem 
The  sum  of  t 
for  each  5-y 
For  each  5-y 
male  migrant 
proportion  o 
for  the  same 
are  four  car 
two  cards  fo 
migrants. 


ents  for  PHF  are  the 
he  proportion  of  PHM 
ear  rejuvenation  per 
ear  rejuvenation  per 
s  by  5-year  age  grou 
f  female  migrants  by 
5- year  rejuvenation 
ds  for  each  5-year  r 
r  male  migrants  and 


same  as  for  the  PHH. 

and  PHF  for  all  ages 

iod  must  add  to  1.00. 

iod  the   proportion   of 

ps  is  followed   by   the 

5-year  age  groups 

period.      So,    there 
ejuvenation   period — 
two  cards   for   female 


The   next    groups  of   cards   depends   on  the  value  given 
for    KODE   in   card    2. 

If   K0DE=1,   i.e.    column   21   of   card   2   contains    a    1,    survival   rates   are   read   for 
the  mid-point   of    the   first   rejuvenation   period.      J   is   the  number  of 
rejuvenations   minus   1    multiplied   by   4. 


12+J 


13+J 


1-8 


9-16 


73-80 


1-8 


49-56 


SRH 


SRH 


The  survival  rate  for  males  surviving  from 
birth  to  0-4.  The  decimal  point  should  be 
in  column    1. 

The   survival  rate  for   males   0-4   surviving   to 
5-9.      The   decimal   point   is   in  column  9. 


The   survival  rate   for    males   40-44    surviving 
to   45-49.      The   decimal    point  is   in   column   73. 


The    male   survival   rate   for    males   45-49    surviving 
to   50-54.      The   decimal    point  is  in   column    1. 


The   survival  rate   for   males  75+   surviving   to 
80+.      The   decimal    point   is   in  column  49. 
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I  I 

|     57-80    | 


I 


Blank 


The   variable   SRH   always   requires    two   data   cards.      The   first 
card    (card  no.    12+J)    must   always   contain  data,    whereas   the 
second  card (card    no.    13+J)    can   be   all   zeroes   depending   on 
the   number  of  age   groups   given.      The  last   age  group   given 
must   always   be   the   open-ended  age   group. 


14+j 


15+J 


1-8 


9-16 


73-80 


1-8 


49-56 


57-80 


SRF 


SRF 


The   survival   rate   for   females  surviving   from 
birth  to    0-4.      The   decimal    point   is   in 
column    1. 

The   survival  rate   for    females  surviving   from 
0-4   to   5-9.      The   decimal   point    is    in  column   9. 


The   survival  rate   for    females   40-44   surviving 
to  45-49.      The   decimal    point  is   in   column   73. 


The   survival  rate   for   females  45-49.      The 
decimal    point  is  in  column    1. 


The   survival   rate   for   females  75+   surviving 
to   80*.      The  decimal   point    is   in  column   49. 

Blank 


The   variable   SRP  always   requires   two   data   cards.      The  first 
card    (card   no.    14+J)    must  always   contain   data,    whereas   the 
second  card    (card  no.    15+J) can  be  all   zeroes  depending   on 
the  number  of  age   groups   given.       The   last  age   group   given 
must   always   be  the  open-ended  age   group. 

If    K0DE=2,   i.e.    column   21   of   card   2   contains  a   2,    Coale-Demeny   Regional 
Hodel    Life  Tables  are  to  be   used   for   the  first   rejuvenation   period. 


13+J 


1-6 


7-12 


13 


I 
EQH  | The   male  life  expectancy  at  birth   for  the 

I  mid-point  of   the   first    rejuvenation   period.      The 

| decimal   point   is   in   column    3. 

I 
EOF  | The   female   life   expectancy   at  birth   for   the 

| mid-point  of   the   first   rejuvenation   period. 

I 
NREG  | The   region   of  the  Coale-Demeny  Regional    Hodel 

| Life   Tables    which   most   closely   resembles   the 

| pattern  of    mortality.        A    1,    2,    3,    or   4   in 

| column   13   indicates  west,    north,    east,    or 

| south   region,   respectively. 


14-80    |  |  Blank 

If    K0DE=1,    then    1=16.       If    K0DE=2,    X=14. 


X+J 


1-6 


7-12 


13 


14-80 


I 
EON  | The    male   life  expectancy   at   birth   for   the 

| mid-point   of    the   second   rejuvenation   period. 
| The   decimal    point   is  in  column   3. 

I 
EOF  | The   female    life   expectancy   at   birth   for   the 

| mid-point   of   the   second   rejuvenation  period. 
| The   decimal   point   is  in  column   9. 

I 
NREG  | The   region  of  the  Coale-Demeny   Regional   Hodel 

| Life    Tables   which    most   closely   resembles   the 
| pattern   of  mortality.         A    1,    2,    3,    or   4   in 
Icolumn   13   indicates  west,    north,    east,   or 
| south   region,   respectively. 

I 

| Blank 
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If   NT=3,    i.e.    column   23   of  card   2   contains  a    3,    then  another 
card  containing   the  same  items  of   information  as   the  above  card 
is  required    with   the    information   supplied  being   for  the   third 
rejuvenation   period. 

I?.    SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  RVFHD (NT, SRB, SRH, SBF, DATB,PH,PF, PHH,PMF) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


NT 


How  Obtained   Definition 


SRB 


SRH 


SRF 


DATB 
PH 


PF 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 
Transferred  In 


Transferred  In 


The  number  of  5-year  periods  the  population 
is  to  be  rejuvenated  before  being  pro- 
jected.  NT  must  equal  2  or  3.   If  NT  equals 
any  other  value,  the  subroutine  will 
write  out  error  no.  1151  and  return  to 
the  calling  program. 

The  sex  ratio  at  birth.   The  sex  ratio  at 
birth  must  be  between  .9  and  1.1.   If 
it  is  any  other  value,  the  subroutine 
will  write  out  error  message  1152  and 
return  to  the  calling  program. 


The  5-year  survival  ra 
for  the  mid -point  of  e 
period.   The  first  sur 
birth  surviving  to  0-4 
vival  rate  is  for  the 
group.   There  must  be 
vival  rates  given  and 
be  between  0.0  and  1.0 
12  survival  rates  are 
is  not  between  0.0  and 
routine  will  write  out 
no.  1153  and  return  to 


tes  for  males 
ach  rejuvenation 
vival  rate  is  for 

The  last  sur- 
open -ended  age 
at  least  12  sur- 
the  values  must 
If  less  than 
given  or  any  value 
1.0,  the  sub- 
error  message 
the  calling  prograi 


The  5-year  survival  rates  for  females 
for  the  mid-point  of  each  rejuvenation 
period.   The  first  survival  rate  is  for 
birth  surviving  to  0-4.   The  last  sur- 
vival rate  is  for  the  open-ended  age 
group.   There  must  be  at  least  12  sur- 
vival rates  given  and  the  values  must  be 
between  0.0  and  1.0.   If  less  than  12 
survival  rates  are  given  or  any  value  is 
not  between  0.0  and  1.0,  the  subroutine 
will  write  out  error  message  no.  1153 
and  return  to  the  calling  program. 

The  date  of  the  population  distribution. 

The  male  population  distribution  in  5- 
year  age  groups.   There  must  be  at  least 
11  age  groups  and  no  intermediate  value 
can  be  less  than  one.   If  there  are  less 
than  11  age  groups  given  or  an  inter- 
mediate value  is  less  than  one,  the  sub- 
routine will  write  out  error  message 
no.  1154  and  return  to  the  calling  program. 

The  female  population  distribution  in  5- 
year  age  groups.   There  must  be  at  least 
11  age  groups  and  no  intermediate  value  can 
be  less  than  one.   If  there  are  less  than  11 
age  groups  given  or  an  intermediate  value 
is  less  than  one,  the  subroutine  will 
write  out  error  message  no.  1154  and  return 
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1 
JPMM 

I 
I 
JPMF 

I 


| to   the  calling    program. 

I 
Transferred   In    |The   male  migrants   by   5-year  age   groups 
| for   each   rejuvenation    period. 

I 
Transferred    In    | The    female    migrants   by   5-year  age 

| groups   for   each    rejuvenation  period. 


C.       EBROR    MESSAGES 

1151  ***    RVFWD    ERROR    NO.     1151    —    INPUT    ERROR    IN    NT 

***    NUMBER    OF    REJUVENATION    PERIODS    MUST    BE    EQUAL    TO    2    OB    3. 

1152  ***    RVFWD   ERROR    NO.     1152    --    INPUT    ERROR    IN    SRB 

***    SEX    RATIO    AT    BIRTH    MUST    BE    BETWEEN    0.9    AND    1.1. 

1153  ***    RVFWD    ERROR    NO.     1153    --    INPUT    ERROR    IN    SRM    OR    SEF 

***    AN    INTERMEDIATE    SURVIVAL    RATE    IS    LESS    THAN    0.0    OB    GREATER    THAN    1.0, 

***    OR    THERE   ARE   LESS    THAN    TWELVE    SURVIVAL   RATES    FOR    EITHER    MALES   OR    FEMALES 

1154  ***    RVFWD    ERROR    NO.     1 1 54    —    INPUT    ERROR    IN    PM    OR    PF 

***    AN    INTERMEDIATE    AGE    GROUP   FOR    EITHER    MALES   OR   FEMALES    IS   LESS    THAN    ONE, 
***    OR    THERE    ARE    LESS    THAN    ELEVEN    AGE    GROUPS    FOR    ONE    SEX. 

V.       PROGRAM      AND       RESULTS 

A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 


MAIN  PROGRAM  FOR  RVFWD 


THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  EIGHT  READ 
STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 
STATEMENTS  AS  FOLLOWS. 

THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 
BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 
THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ABE  BEING  ANALYZED  AND 
GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 
ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 
2-53  OF  THIS  CARD. 

THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 
THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  (1)THE 
INDICATOR (NXT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER  DATA  SET 
FOLLOWING  THIS  ONE.  (2)THE  DATE  (DAY , TMO, YEAR)  FOB  WHICH  THE 
POPULATION  DISTRIBUTION  IS  GIVEN,  (3)THE  SEX  RATIO  AT  BIRTH(SRB), 
(4)THE  MORTALITY  I NDICATOR  (KODE)  USED  TO  SPECIFY  WHETHER  AGE 
SPECIFIC  SURVIVAL  RATES  ARE  TO  BE  GIVEN  OR  A  REGIONAL  MODEL 
LIFE  TABLE  IS  TO  BE  USED  FOR  THE  MIDDLE  OF  THE  FIRST  REJUVENATION 
PERIOD,  AND  (5) THE  NUMBER  OF  5-YEAR  PERIODS (NT)  THE  POPULATION 
IS  TO  BE  REJUVENATED. 

NXT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  1 
INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER  NUMBER 
PUNCHED  IN  COLUMN  1  INDICATES  THERE  IS  ANOTHER  SET  OF  DATA 
FOLLOWING  THIS  ONE. 
DAY   IS  PUNCHED  IN  COLUMNS  3-4  OF  THIS  CARD.   IT  SHOULD  BE 

ENTERED  AS  XX  SO  THAT  IT  ENDS  IN  COLUMN  4,  I.E.  IF  IT  IS 
THE  FIRST  DAY  OF  THE  MONTH  IT  WOULD  BE  ENTERED  AS  01. 
TMO   IS  PUNCHED  IN  COLUMNS  5-6  OF  THIS  CARD.   IT  SHOULD  BE 

ENTERED  SO  THAT  IT  ENDS  IN  COLUMN  6. 
YEAR   IS  PUNCHED  IN  COLUMNS  7-10  OF  THIS  CARD. 
SRB   IS  IN  COLUMNS  15-20  OF  THIS  CARD.   IT  SHOULD  BE  ENTERED 

WITH  THE  DECIMAL  POINT  IN  COLUMN  16. 
KODE   IS  IN  COLUMN  21  OF  THIS  CARD.   IF  THE  BEGINNING  MORTALITY 
DATA  IS  TO  BE  PROVIDED  AS  SURVIVAL  RATES,  A  1  SHOULD 
BE  PUNCHED  IN  COLUMN  21.   IF  THE  BEGINNING  MORTALITY  IS  TO 
BE  BASED  ON  THE  COALE-DEMENY  REGIONAL  MODEL  LIFE  TABLE  A 
2  SHOULD  BE  PUNCHED  IN  COLUMN  21.   ANY  OTHER  NUMBER  PUNCH- 
ED IN  COLUMN  21  IS  AN  ERROR  AND  WILL  CAUSE  THE  MAIN  PROGBAH 
TO  STOP. 
NT   IS  IN  COLUMN  23  OF  THIS  CARD.   IT  IS  THE  NUMBER  OF  5-YEAR 
PERIODS  THE  POPULATION  IS  TO  BE  REJUVENATED  BEFORE  BEING 
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c PROJECTED.       EITHER    A    2   OR    A    3    SHOULD    BE   PUNCHED    IN    COLUMN 

c 23    TO    INDICATE    2   OR    3    5-YEAR    REJUVENATION    PERIODS, 

C RESPECTIVELY. 

C 

C THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS. 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  MALE 

c POPULATION  AGE  DISTRIBUTION (PM)  IN  5-YEAR  AGE  GROUPS. 

c PM   VALUES  ARE  ENTERED  ON  TWO  CARDS.   FOR  EACH  PH  VALUE  EIGHT 

C COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS 

C OF  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  PM  VALUES  CAN  APPEAR 

c ON  THE  FIRST  CARD  SO  THAT  THE  VALUES  END  IN  COLUMNS  8,  16, 

c 24,  ...,  72,  AND  80.   THE  SECOND  CARD  CAN  CONTAIN  A  MAXIMUM 

C OF  SEVEN  PM  VALUES  AND  THE  VALUES  SHOULD  BE  ENTERED  IN  THE 

C SAME  MANNER  AS  ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALUE 

C ON  THE  SECOND  CARD  HILL  END  IN  COLUMN  56.   IF  LESS  THAN 

C SEVENTEEN  VALUES  ARE  TO  BE  GIVEN,  TWO  CARDS  MUST  STILL  BE 

C USED  WITH  DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECESSARY  FOR 

c THE  DUMBER  OP  PM  VALUES. 

C 

C THE   FOURTH    READ    STATEMENT    USES    TWO   DATA   CARDS. 

C THE    PURPOSE   OF   THE    FOURTH    READ    STATEMENT   IS    TO    READ    IN    THE   FEMALE 

C POPULATION    DISTRIBUTION (PF)     IN    5-YEAR    AGE    GROUPS. 

c PF      VALUES    ARE    CONTAINED    ON    TWO    CARDS    AND    HAVE    THE   SAME 

C REQUIREMENTS    AS    PM    VALUES. 

C 

C THE  FIFTH  READ  STATEMENT  USES  ONE  DATA  CARD.  THE  PURPOSE  OF  THE 

C FIFTH  READ  STATEMENT  IS  TO  READ  IN  THE  TOTAL  NUMBER  OF  MIGRANTS 

c (PMMT)  FOR  EACH  5-YEAR  REJUVENATION  PERIOD. 

c pHMT   IS  CONTAINED  ON  ONE  CARD.  THERE  ARE  AS  MANY  PMMT  VALUES  AS 

c THERE  ARE  REJUVENATION  PERIODS  TO  A  MAXIMUM  OF  3. 

c THE  first  PMMT  CONTAINS  THE  TOTAL  NUMBER  OF  MIGRANTS  FOR 

c THE  first  REJUVENATION  PERIOD.  FOR  EACH  PMMT  VALUE,  EIGHT 

C DIGITS  ARE  ALLOWED  WITH  THE  FIRST  NUMBER  ENDING  IN 

C COLUMN  8. 

C 

C THE  SIXTH  READ  STATEMENT  USES  THE  NUMBER  OF  CARDS  THAT  ARE 

C EQUIVALENT  TO  FOUR  TIMES  THE  NUMBER  OF  REJUVENATION  PERIODS. 

C THE  PURPOSE  OF  THE  SIXTH  READ  STATEMENT  IS  TO  READ  IN  THE 

c PERCENT  DISTRIBUTION  OF  THE  MIGRANTS  (PMM  AND  PMF)  IN  5-YEAR  AGE 

C GROUPS.  THE  TOTAL  MIGRANTS  PMM  AND  PMF  ADDS  TO  1.00.   THERE  ARE 

C TWO  CARDS  FOR  MALE  MIGRANTS  (PMM)  VALUES  FOLLOWED  BY  TWO  CARDS 

C FOR  FEMALE  MIGRANTS  (PMF)  VALUES  FOR  EACH  5-YEAR  REJUVENATION 

C PERIOD. 

C PMM   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  THERE  ARE  EIGHT  DIGITS 

C ALLOWED  FOR  EACH  PMM  VALUE  WITH  THE  DECIMAL  POINT  IN 

C COLUMN  1,9,17,  ...65  AND  73.  THUS,  THERE  ARE  TEN  VALUES 

c ON  THE  FIRST  CARD.  THE  SECOND  CARD  CONTAINS  SEVEN  VALUES 

c wrrH  THE  LAST  VALUE  IN  COLUMN  49-56. 

c pMF   VALUES  ARE  CONTAINED  ON  TWO  CARDS.  PMF  VALUES  HAVE  THE 

C SAME  REQUIREMENTS  AS  PMM  VALUES. 

C 

C THE  SEVENTH  READ  STATEMENT  USES  BETWEEN  ONE  AND  FOUR  DATA  CARDS. 

C THE  PURPOSE  OF  THE  SEVENTH  READ  STATEMENT  IS  TO  READ  IN  THE 

C MORTALITY  DATA.   THIS  CAN  BE  READ  IN  TWO  ALTERNATIVE  WAYS.   THE 

C ALTERNATIVE  THAT  IS  TO  BE  USED  DEPENDS  ON  THE  MORTALITY  INDICATOR 

C KODE  READ  BY  THE  SECOND  READ  STATEMENT. 

C ALTERNATIVE  1,  KODE  =  1,  I.E.  COLUMN  21  OF  CARD  2  CONTAINS  A  1, 

C SURVIVAL  RATES  (SRM,SRF)  ARE  TO  BE  READ  FOR  THE  MIDPOINT 

C OF  THE  FIRST  REJUVENATION  PERIOD. 

C SRM   VALUES  ARE  CONTAINED  ON  TWO  CARDS  FOR  THE  FIRST 

C REJUVENATION  PERIOD.   THESE  TWO  CARDS  CONTAIN  THE 

C 5-YEAR  SURVIVAL  RATES  FOR  MALES.   FOR  EACH 

C SURVIVAL  VALUE,  EIGHT  DIGITS  ARE  ALLOWED  WITH  A 

C DECIMAL  POINT  IN  COLUMNS  1,  9,  ...,65,  AND  73.   THUS, 

C THERE  ARE  TEN  SURVIVAL  VALUES  FOR  MALES  ON  THE 

C FIRST  CARD.   THE  SECOND  CARD  CAN  CONTAIN  SEVEN 

C SURVIVAL  VALUES  FOR  MALES  ENTERED  IN  THE  SAME 

C MANNER  AS  ON  THE  FIRST  CARD.   THE  LAST  VALUE  THAT  CAN 

C BE  ON  THE  SECOND  CARD  IS  IN  COLUMNS  49-56  HITH  A 

C DECIMAL  POINT  IN  COLUMN  49.   IF  LESS  THAN  SEVENTEEN 

C VALUES  ARE  TO  BE  GIVEN,  TWO  CARDS  MUST  STILL  BE  USED 

C WITH  DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECESSARY  FOR 

C FOR  THE  NUMBER  OF  MALE  SURVIVAL  RATES  GIVEN. 

C SRF   VALUES  ARE  CONTAINED  ON  CARDS  THREE  AND  FOUR.   THEY 

C ARE  THE  FEMALE  SURVIVAL  BATES  FOR  THE  FIRST 

C REJUVENATION  PERIOD  AND  HAVE  THE  SAME  REQUIREMENTS 

C AS  THE  SURVIVAL  RATES  FOR  MALES  ON  THE  FIRST  TWO 
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CARDS. 
ALTERNATIVE  2,  KODE  =  2,  I.E.  COLUMN  21  OF  CARD  2  CONTAINS  A  2, 
COALE-DEMENY  REGIONAL  MODEL  LIFE  TABLES  ARE  TO  BE  USED 
FOR  THE  FIRST  REJUVENATION  PERIOD.   THUS,  LIFE 
EXPECTANCIES  AT  BI RTH (EOM, EOF)  ARE  NEEDED  AND  A 
REGION  (NREG)  MUST  BE  INDICATED.  ONE  CARD  IS  NEEDED  FOR 
THIS  ALTERNATIVE  AND  MOST  BE  COMPLETED  AS  INDICATED  BELOW. 
EOM   IS  THE  LIFE  EXPECTANCY  AT  BIRTH  FOR  MALES.   IT 
IS  IN  COLUMNS  1-6  OF  THIS  CARD  WITH  A  DECIMAL 
POINT  IN  COLUMN  3. 
EOF   IS  THE  LIFE  EXPECTANCY  AT  BIRTH  FOR  FEMALES. 
IT  IS  IN  COLUMNS  7-12  OF  THIS  CARD  WITH  A 
DECIMAL  POINT  IN  COLUMN  9. 
NREG   IS  IN  COLUMN  13  OF  THIS  CARD.   NREG  CAN  HAVE  A 
VALUE  OF  1,  2,  3,  OR  4  INDICATING  WEST,  NORTH, 
EAST,  OR  SOUTH,  RESPECTIVELY. 

THE  EIGHTH  READ  STATEMENT  READS  IN  ONE  CARD  FOR  EACH  REJUVENATION 

PERIOD  AFTER  THE  FIRST. 

THE  PURPOSE  OF  THIS  READ  STATEMENT  IS  TO  READ  IN  (1)THE  ESTIMATED 

LIFE  EXPECTANCIES  AT  BIRTH  (EOM, EOF)  FOR  THE  MIDPOINT  OF  THE 

REJUVENATION  PERIODS  BEYOND  THE  FIRST  AND  (2) THE  COALE-DEMENY 

REGION (NREG)  WITH  THE  MORTALITY  PATTERN  MOST  CLOSELY  RESEMBLING 

THE  MORTALITY  PATTERN  OF  THE  AREA  BEING  ANALYZED. 

EOM   MUST  BE  ENTERED  AS  GIVEN  IN  ALTERNATIVE  2  ABOVE. 

EOF   MUST  BE  ENTERED  AS  GIVEN  IN  ALTERNATIVE  2  ABOVE. 

NREG   MUST  BE  ENTERED  AS  GIVEN  IN  ALTERNATIVE  2  ABOVE. 


DIMENSION  PM(17),PF(17)  ,CDMLT  ( 18,  8)  ,  EOM  (3)  ,EOF(3) 
*,SRM{17,3)  ,SRF(17,3)  ,  PMMT  (3)  ,PMH  (1  7,3)  ,PMF(17,3) 
NREAD  =  1 
NPRNT  =  15 


READ  IN  THE  DATA 


10  READ(NREAD,11) 

11  FORMAT(1X,52H 

READ (NREAD, 22) NXT, DAY, TMO, YEAR, SRB, KODE, NT 
2  2    FORMAT(I1,1X,2F2.0,F4.0,4X,F6.4,I1,1X,I1) 
IF     (NT    -    1)     1040,1040,12 

12  CONTINUE 

IF     (NT    -    3)     13,13,1040 

13  CONTINUE 

READ(NREAD,33)      (PM  (I)  ,1  =  1 ,  17) 
33    FORMAT  (10F8.0) 

READ(NREAD,33)      (PF  (I)  ,1=1  ,  17) 
READ(NREAD,44)      (PMMT (I) ,1=1 ,3) 
DO    14    J=1,NT 

READ  (NREAD,  55)      (PMM  (I  ,  J)  ,  1=1 ,  17) 
READ(NREAD,55)      (PMF  (I,  J)  ,  1=1,  17) 

14  CONTINUE 

44    FORMAT  (3F1  0.0) 

55    FORMAT  (10F8.7,/,7F8.7) 


DETERMINE    HOW   THE    MORTALITY    DATA    IS    TO    BE   READ    AND   OBTAIN 
SURVIVAL    RATES   IF    LIFE    EXPECTANCY   AT    BIRTH    IS   GIVEN 


IF    (KODE   -    1)     1010,30,50 
30    READ(NREAD,77)      (SRM  (1,1 )  ,  1=1,  17) 

READ(NREAD,77)      (SRF  (I  ,  1 )  ,1=1 ,  17) 

RM   =   5.0 

EOM  (1)     =    0.0 

DO    37    1=1,16 

IF  (SRM(I+1,1)  -  0.001)  40,35,35 
35  RM  =  RM  *  SRM  (1,1) 
37  EOM  (1)  =  EOH(1)  +  RM 

I  =  17 
40  EOM(1)  =  EOM(1)  +  ((RM*SRH  (I,1))/(1.0  -  SEN  (1,1) ) ) 

RF  =  5.0 

EOF(1)  =  0.0 

DO  45  1=1,16 

IF  (SRF(I+1,1)  -  0.001)  47,43,43 
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43    RF    =    RF    *    SRF(I,1) 
45    EOF  (1)    a   EOF(1)    +    RF 

I   =    17 
47    EOF(1)     =   EOF(1)     ♦     { (RF*SRF  (I,  1)  )  /  ( 1.0    -    SRF(I,1))) 
77    FORHAT(10F8.0) 

GO    TO    126 
50    CONTINUE 

IF     (KODE   -    2)     1010,60,1010 
60    READ(NREAD,88)     EOM  (1)  ,  EOF(  1)  ,  NREG 
88    FORMAT  (2F6.3,I1) 

C 

c 

C  — TEST  EO  VALOES  AND  NREG  FOR  APPROPRIATE  VALUES 

c_... . 

C 

IF     (EOM(1)  -20.0)     1020,85,80 
80    CONTINUE 

IF     (EOH  (1) -80.0)    85,85,1020 
85    CONTINUE 

IF     (EOF(1)     -    20.0)     1020,90,90 
90   CONTINUE 

IF     (EOF(1)    -    80.0)    95,95,1020 
95   CONTINUE 

IF     (NREG    -    1)     1030,110,100 
100    CONTINUE 

IF     (NREG    -    4)     110,110,1030 

110  CALL    MLT  (EOM  (1)  ,1,  NREG, CDMLT) 
DO    120    I    »    1,17 

120    SRM(I,1)    =    CDMLT    (1,6) 

CALL  MLT (EOF (1) ,2, NREG, CDMLT) 
DO  125  I  =1,17 

125  SRF(I,1)  =  CDMLT  (1,6) 

126  CONTINUE 

DO    140    I   -   2, NT 

READ(NREAD,88)     EOM  (I)  ,EOF (I) ,NREG 

J    =    I    -    1 

DO    135    K=1,17 

SRM(K,I)     =    SRM(K,J) 

SRF  (K,I)    =    SRF(K,J) 
135    CONTINUE 

CALL    MORDJ  (EOM (J)  , EOM (I) , 1 , NREG, 0, SRH  (1,1)) 

CALL    MORDJ  (EOF  (J)  ,EOF  (I)  ,  2,  NREG,  0,  SRF  ( 1,1)  ) 

140    CONTINUE 

C 

c_ 

C WRITE   OUT   IDENTIFICATION 

c — „ 

C 

200    DATM   -    YEAR    +     (.0833*  (TMO-1  .)  )     +     (.0027*  (DAY-1.  ) ) 
WRITE  (NPRNT,  111) 

111  FORMAT(1H1) 
WRITE (NPRNT, 11) 
DATB  =    DATM 

C 

c__ 

C- CALCULATE    NUMBER    OF    MIGRANTS    BY    AGE    AND    SEX    FOR    EACH    REJUVENATION 

c 

C 

DO   300    1=1  ,3 

DO    300    J=1,17 

PMM(J,I)     =    PMM(J,I)     *    PMMT(I) 
300    PMF(J,I)    a    PMF(J,I)     *    PMMT(I) 
C 
c . . _ 

C-- REJUVENATION    LOOP 

c . 

C 

CALL   RVFWD(NT,SRB, SRM, SRF, DATB, PM,PF, PMM,PHF) 

IF     (NXT)     10,1000,10 
C 
C- 

C ERRORS    IN    INPUT    DATA    FOR    THE    MAIN    PROGRAM 

c 

c 

1010  IRITE(NPRNT,111) 
WRITE (NPRNT, 101 1) 

1011  FORMAT (/,1X,95H***    ERROR    IN    INPUT    FOR    MAIN    PROGRAM    —    KODE,    YOD    SH 
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♦OULD  CHECK    ALL    OF   YOUR    INPUT   DATA    CAREFULLY.) 
GO    TO    1000 

1020  WRITE(NPRNT,  111) 
WRITE  (NPRNT, 1021) 

1021  FORMAT (/,1X,71H***  ERROR  IN  INPUT  FOR  MAIN  PROGRAM  —  EO  IS  NOT  BE 
♦TWEEN  20.0  AND  80. 0. ,/, 5X, 50H YOU  SHOULD  CHECK  ALL  OF  YOUR  INPUT  DA 
*TA    CAREFULLY.) 

GO    TO    1000 

1030  WRITE  (NPRNT,1 11) 
WRITE (NPRNT, 1031) 

1031  FORMAT (/, 1X,65H***  ERROR  IN  INPUT  FOR  MAIN  PROGRAM  —  HREG  IS  NOT 
*1,  2,  3,  OR  4.,/,5X,50HYOU  SHOULD  CHECK  ALL  OF  YOUR  INPUT  DATA  CAR 
*EFULLY.) 

GO  TO  1000 

1040  WRITE  (NPRNT, 111) 
WRITE  (NPRNT, 1041) 

1041  FORMAT (/,1X,80H***   ERROR   IN    INPUT    FOR    MAIN    PROGRAM   ~    NT    IS    NOT    2 
♦OR    3.       NT    IS   ASSUMED    TO   BE    2.) 

NT   =    2 

IF     (NXT)     1050,13,1050 

1050  WRITE  (NPRNT,  1051) 

1051  FORMAT (/, 1X,95H***  THIS  IS  THE  LAST  DATA  SET  THAT  CAN  BE  RUN  DUE  T 
*0  POSSIBLE  ERROR  IN  INPUT  FOR  FURTHER  CASES.) 

NXT  =  0 
GO  TO  13 
1000  CONTINUE 
STOP 
END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  RVFWD (NT, SRB, SRM , SRF,DATB, PM,PF, PMM,PMF) 

c 

c . 

C PROGRAM    NO.     1150 

c 

c 

C NT,    SRB,    SRM,    SRF,     PMM,     PMF,     AND    DATB    ARE    INPUT    ARGUMENTS 

C 

C PM    AND    PF    ARE    BOTH    INPUT    AND    OUTPUT    ARGUMENTS. 

C NT      IS    THE    NUMBER    OF    5-YEAR    PERIODS    THE   POPULATION    IS    TO    BE 

C REJUVENATED. 

C SRB       IS    THE    SEX    RATIO    AT    BIRTH. 

c 0F    THE   REJUVENATION    PERIODS   EXCEPT   THE    FIRST. 

C SRM      CONTAINS    THE    SURVIVAL    RATES    FOR    MALES    FOR    THE 

c REJUVENATION    PERIODS. 

c SBp       CONTAINS    THE    SURVIVAL    RATES    FOR    FEMALES    FOR    THE 

c REJUVENATION    PERIODS. 

C PMM      IS    THE    DISTRIBUTION    OF    MALE    MIGRANTS. 

C PMF       IS    THE    DISTRIBUTION    OF    FEMALE    MIGRANTS. 

C DATB       IS    THE    DATE    THAT    CORRESPONDS    TO    THE    DISTRIBUTION. 

C PM      IS    THE    POPULATION    DISTRIBUTION    FOR    MALES 

C PF       IS    THE    POPULATION    DISTRIBUTION    FOR    FEMALES 

c 

c 

DIMENSION    PM(17) ,PF(17) ,SXM(17) ,SXF(17) 

DIMENSION    SRM(17,3)  ,SRF(17,3) 

DIMENSION    ASFR1  (7)  ,ASFR2  (7)  ,PPAR (8) 

DIMENSION    PMM (17,3) , PMF  (17,3)  ,RPMM  (17)  ,RPMF(17) 

NPRNT=     15 
C 
c 

C VERIFY    INPUT    ARGUMENT    VALUES 

c 

c 

100    NERR=    0 

NTX=    NT 

IF     (NTX   -    2)     110,130,105 
105    CONTINUE 

IF     (NTX   -    3)     130,130,110 

110  WRITE     (NPRNT,  111) 

111  FORMAT  (/,46H  ***  RVFWD  ERROR  NO.  1151  —  INPUT  ERROR  IN  NT 
*/54H  ***  NUMBER  OF  REJUVENATION  PERIODS  MUST  EQUAL  2  OR  3.) 

NERR=  1 
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NTX=    2 
130    CONTINUE 

IF     (SRB    -    0.9)     135,165,133 
133    CONTINUE 

IF    (SRB    -    1.1)     165,165,135 
135    WRITE     (NPRNT,333) 

333    FORMAT     (/,47H    ***    RVFWD    ERROR    NO.     1152    —   INPOT   ERROR    IN    SBB 
*/51H    ***    SEX    RATIO    AT    BIRTH    HOST    BE   BETWEEN    0.9    TO    1.1) 

*) 

NEBR=    1 
165    CONTINUE 

DO     191    J=1,NT 

N=0 

NT1=0 

M    =    0 

MT    =   0 
170    DO    190    1=1,  17 

IF     (SRM(I,J)     -    0.1)     296,175,173 
173    CONTINUE 

IF     (SRM(I,J)     -    1.0)     175,175,296 
175    H    =    M    +    1 
180    CONTINUE 

IF     (SRF(I,J)     -    0.1)     290,285,183 
183    CONTINUE 

IF     (SRF(I,J)     -    1.0)     185,185,290 
185    N   =    N    +    1 

190  CONTINUE 

191  CONTINUE 

IF     (M-12)     200,192,192 

192  CONTINUE 

IF  (MT)  193,194,193 

193  CONTINUE 

IF    (M-(MT-1))     200,194,200 

194  CONTINUE 

IF    (N-12)     200,195,195 

195  CONTINUE 

IF     (NT1)     200,220,196 

196  CONTINUE 

IF     (N-(NT1-1))     200,220,200 
200    WRITE     (NPRNT,  555) 

555    FORMAT     (/,54H    ***    RVFWD    ERROR    NO.     1153    —    INPUT    ERROR    IN    SRM    OR   SR 
*F,      /72H    ***    AN    INTERMEDIATE    SURVIVAL    RATE   IS   LESS   THAN    0.0  OB    GRE 

♦  ATER   THAN     1 .0, ,/, 1X,77H***    OR    THERE   ARE    LESS    THAN    TWELVE    SURVIVAL 
♦RATES    FOR    EITHER    MALES    OR    FEMALES.) 

NERR=    1 
220    M    =   0 

MT   =   0 

N   =    0 

NT1    =    0 

DO    250    1=1,17 

IF     (PM(I)-0.9)     285,285,225 
225    M   =    M    +    1 
230    CONTINUE 

IF     (PF(I)-0.9)     275,275,240 
240    N=N+1 
250   CONTINUE 

IF     (M-11)     265,252,252 

252  CONTINUE 

IF    (MT)    265,254,253 

253  CONTINUE 

IF     (M-(MT-1))     265,254,265 

254  CONTINUE 
IF(N-11)  265,255,255 

255  CONTINUE 

IF  (NT1)  265,270,260 
260    CONTINUE 

IF(N-(NT1-1))     265,270,265 
265    WRITE    (NPRNT, 666) 

666    FORMAT     (/,52H    ***    RVFWD    ERROR    NO.    1154    —    INPUT    EBBOR    IN    PM   OB    PF, 
*/,76H    ***    AN    INTERMEDIATE    AGE    GROUP    FQR    EITHER    MALES    OB   FEMALES    IS 

*  LESS    THAN    ONE, ,/, 1X, 57H***    OR    THERE   ARE    LESS   THAN    ELEVEN    AGE    GBOU 
*PS    FOR    ONE    SEX.) 

NERR=    1 
270   CONTINUE 

IF     (NERR)    900,300,900 
275   CONTINUE 

IF(NT1)     280,280,250 


RVFWD        477 


280    NT1=I 

GO    TO    250 

285  CONTINUE 

IF    (HT)     286,286,230 

286  HT    =   I 

GO    TO    230 
290   CONTINUE 

IF     (NT1)    295,295,190 

295  NT1    =    I 
GO    TO    190 

296  CONTINUE 

IF     (MT)     297,297,180 

297  MT    =   I 

GO    TO    180 

C 

c 

c PRINT  ORIGINAL  POPULATION  AND  SURVIVAL  RATES 

c 

C 

300  WRITE  (NPRNT,777) 

777    FORHAT     (//33H   ORIGINAL    POPULATION    DISTRIBUTION      ) 

TPH   =    0.0 

TPF    =    0.0 

DO    305    J=1,17 

TPJf   =    TPH    +    PH(J) 

TPF   =    TPF    +    PF(J) 

SXM  (J)     =    SRH(J,1) 

SXF  (J)    =    SRF(J,1) 

RPHM  (J)     =   PHH(J,1) 
305    RPMF(J)     =    PMF  (J,1) 

DO    310    1=1,7 
310    PPAR  (I)  =    0.0 

CALL    PREVR    (PH,  TPH,  PF, TPF, SXM  , SXF,  PPAR  ,DATB) 
C 
c 

C REJUVENATION    PERIODS 

c 

C 

DO    315    1=1, NTX 

CALL    REVR5     (PH, TPH, RPMH , PF, TPF, RPHF, SXM, SXF, PPAR) 

IF     (I    -    NTX)     312,312,315 

312  DO    313    J=1,17 
K    =   I    +    1 

SXH  (J)  =  SRH(J,K) 
SXF  (J)  =  SRF  (J,K) 
RPHM(J)    =    PHH(J,K) 

313  RPHF(J)    =    PMF(J,K) 
315   CONTINUE 

C 

c 

C CALCULATE    GFR 

c 

C 

DO    370    1=1,7 

ASFR1(I)=    PPAR  (5) 
370    ASFR2  (I)=    PPAR  (5) 
C 
c 

C PROJECTION    CYCLES 

c 

C 

DO    390    1=1, NTX 

K    =    NTX    +1-1 

DO    385    J=1,17 

SXH  (J)     =    SRH(J,K) 

SXF  (J)     =    SRF(J,K) 

RPHH(J)    =    PHH  (J,R) 
385    RPHF  (J)    =    PHF(J,K) 

CALL   PROJ5     (PH, TPH, RPHM, PF, TPF, RPHF, SXM, SXF, ASFR 1, ASFR2,SHB,PPAB) 
390    CONTINUE 
C 
c 

C PRINT    ADJUSTED   POPULATION 

c . . . ._ 

C 

DATB  ■  DATE  -  2.5 
WRITE     (NPRNT,888) 
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888    FORMAT     (//33H    ADJUSTED    POPULATION    DISTRIBUTION    ) 

CALL   PPROJ     (PM,TPM,PF,TPF,SXM,SXF,SRB,ASFB1,ASFR2,PPAR,DATB) 
GO    TO    1000 

C 

c 

c ERROR=    PRINT   INPUT,    ZERO    OUTPUT    ARGUMENTS 

c _ 

C 

900    WRITE     (NPRNT,999)     SRB,DATB, NT,PH,  PF 
999    FORMAT     (//26H  RVFWD    INPUT    ARGUMENTS 

*/10H  SRB=    ,F5.3    /1 1 H  DATB=    ,F7.2 

*/    9H  NT=    ,16,/, 9H  PM=    , 9F12.0, /9X,8F12. 0 

*/   9H  PF=    ,9F12.0   /9X,8F12.0) 

DO    1500    1=1, NTX 

WRITE     (NPRNT,1111)      (SRM  (J, I)  ,  J=1,  17)  ,  {  SRF  (J,  I)  ,  J=  1,  17)  , 
*(PMM(J,I)  ,J=1,17)  ,  (PMF  (J, I)  ,J=1,17) 
1500    CONTINUE 
1111    FORMAT     ( 

*/10H              SRM=    ,9F12.5   /10X,8F12.5 
*/10H              SRF=    ,9F12.5    /10X,8F12.5 
*/10H              PHM=    ,9F12.0,/,10X,8F12.0 
*/10H              PMF=    ,9F12.0,/,10X,8F12.0) 
C 
c 

C RETURN    TO    CALLING    PROGRAM 

c 

C 

1000    RETURN 
END 
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I.  DESCRIPTION      OF       PROGRAM 

A,  PURPOSE 

To  smooth  a  population  distribution  of  5-year  aqe  groups.   The  subroutine 
first  qroups  the  5-year  aqe  qroups  into  10-year  aqe  qroups,  then  separates  the 
10-year  aqe  qroups  into  5-year  aqe  qroups  under  three  different  assumptions. 

B.  DATA    NEEDED 

The   aqe   distribution   in   5-year    aqe   qroups. 

II.  METHODOLOGY 

A,   MATHEMATICAL  DERIVATION 

1,   The  Carrier- Farraq  ratio  method  assumes  that  there  is  a  relationship 
between  quinary  aqe  qroups  as 


P  =  K  •  Jr> 
5  x     5  x+5 


where 

rPx    is    population   in  the    aqe   group    x, x+4   and   K    is   the   ratio   of   two 
consecutive  aqe   qroups.      Then,    a       10-year    aqe   qroup   would   be 


10Px  -  5Px  +  5Px+5  =  K  *  5V5  +  5^5  =  5V*  *  (1  +  K) 


x+5 


Kence, 


10Px 


5Px+5  ""       1+K 


and 


5**  ~  10x  "  5  x+5 


Assuminq   that   the    four    5-year    aqe   qroups  between   aqes   x-10   and 
x+10   have  the  same  averaqe   rate   K,    the    estimation   of   K   is  made    as    follows 


10Px+10 
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2.   The  second  assumption  of  a  quadratic  relationship  between  each  three 
5-year  aqe  qroups  qenerates  the  followinq  formula 


P   -  —1—    P   H —  (       V  _    P     ) 

5x"  2  10  x   16  MO  x-10   10  x+10y 


and 


P    =   p  _  p 
5  x+5   10  x   5  x 


3.  Breakinq  down  the  ten  into  5-year  aqe  qroups  can  also  be  made  by 
usinq  the  osculatory  interpolation  of  Spraque.  Two  polynomials  are  used. 
&  third  deqree  polynomial  is  used  for  breakinq  down  the  two  first  and  two 
last  10-year  aqe  qroups.  For  intermediate  io-year  aqe  qroups,  a  fourth 
deqree  polynomial  is  used.  It  assumes  that  the  curves  are  joined  so  that 
they  have  a  common  ordinate,  tanqent  and  radius  of  curvature  for  a  certain 
pivotal  point. 

For  instance,  for  a  central  aqe  qroup  the  formula  is 


5Px  "  °1  '  10Px-20  +  C2  '  10Px-10  +  C3  '  10x 


+  f  •   p    +  r,    •      p 
U     10  x+10   u5  10  x+20 


For  the  first  aqe  qroup  the  formula  is 

5P0  =  V  10P0  +  E2  *  10P10  +  E3  *  10P20  +  \  '   10P30 

where 

Cj  and  E;  are  the  coefficients  for  central  and  extreme  aqe  qroups, 

These  coefficients  are: 

For  the  first  two   10 -year  aqe  qroups: 

TEN   YEAR   AGE   GROUP 


To  Obtain 

x,x+9 

x+10,x+19 

x,20,x+29 

x+30,x+39 

5-Year  Aqe 

Group: 

x.x+4 

.7266 

-.3672 

.1797 

-.0391 

x+5,x+9 

.2734 

.3672 

-.1797 

.0391 

x+10,x+14 

.0391 

.5703 

-<,  1328 

.0234 

x+15,x+19 

-.0391 

.4297 

.  1328 

-.0234 

For  the  last  two   10-year  aqe  qroups  these  coefficients  are  reversed. 

For  any  central   10-year  aqe  qroup  the  coefficients  are: 

TEN   YEAR   AGE   GROUP 


To  Obtain 

x-20,x-11 

x-10,x-1 

x,x*9 

x+10,x+19 

r+20,x 

5-Year  Aqe 

Group 

, 

x,  x+5 

-.0117 

.0859 

.5000 

-.0859 

.0117 

x+5,x+9 

.0117 

-.0859 

.5000 

.0859 

-.0117 
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B.   COMMENTS 

These  methods  adjust  the  aqe  distribution  of  a  population  for  age  mis- 
reportinq  within   10-year  aqe  qroups.   No  adjustment  is  made  for  aqe  mis- 
reportinq  across   10-year  aqe  qroups.   For  each  method  the  oriqinal 
population  is  first  smoothed  beqinninq  with  aqe  qroup  0-9.   The  oriqinal 
population  is  then  smoothed  aqain  beginninq  with  aqe  qroup  5-14.   As  a 
result,  two  smoothed  populations  are  obtained  under  each  method. 

This  subroutine  prints  out  the  results  of  its  calculations.   The 
results  are  not  transferred  back  to  the  main  proqram  through  the  arqu- 
ment  string.   Therefore  the  results  of  this  subroutine  cannot  be  used 
as  input  to  another  subroutine  called  subsequently. 

III.M  AIN   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
proqram  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  proqram  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  SMOTH (P5) 


For  the  purpose  of  emphasizing  the  input  arquments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  sinqle-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  proqram. 

For  this  subroutine  variable  name  P5  in  the  arqument  strinq  is  an  array. 
The  follow inq  DIMENSION  statement  must  be  included  in  any  main  proqram  usinq 
the  subroutine. 

DIMENSION  P5(17) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  packaqe 
None 

2.  Library  functions 
SQRT (square  root) 
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3.   Card  diagram  of  main  program  and  subroutines. 


/  / 

/    CARDS  INDICATING  END  OF  DECK    / 
/ / 

/  /I 

/  INPUT  DATA  /  | 

/ _ /   I 

/  /I   I   / 

/     COMPUTER  CONTROL  CARDS         /  |   |  / 
/ /   I   1/ 

/  /I   I   / 

/  SUBROUTINE  SMOTH       /  |   |  / 

/          MAIN  PROGRAM  /  |   |  / 

/ /   I   1/ 

/  /I   I   / 

/       COMPUTER  CONTROL  CARDS       /J   |  / 
/ __ /   I   I  / 

I   / 


BEGINNING  OF  DECK 


I  / 

1/ 

/ 


/ 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  reguirements  for  the  main  program  included  with  this 
subroutine  package  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV.  B.  See  example  section  V.C. 


Variable 
Card  Columns   Name    Definition 


1 

2-53 
54-80 


2-80 

1-8 
9-16 

73-80 


NXT 


P5 


I  Blank 
I 

| Label  used  to  identify  the  output 

I 

I  Blank 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I Blank 

I 

I 


The  code  indicating  whether  or  not  another 
set  of  data  follows  this  one.   A  zero 
punched  in  column  1  would  indicate  that 
this  is  the  last  set  of  data.   Any  other 
digit  punched  in  column  1  would  indicate 
that  another  set  of  data  follows  this  one. 


The  population  in  age  group  0-4. 
The  population  in  age  group  5-9. 


|The  population  in  age  group  45-49, 
I 
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1-8 

• 

(♦1-48 
19-56 
57-80 


P5  |The    population    in   aqe    qroup    50-54. 

I 
I 
I 
|The    population   in   aqe   qroup   75-79 

I 

|The  population  in  aqe  qroup  80+ 

I 

(Blank 


Cards  3  and  4  read  in  the  P5  values. 

Ten  P5  values  will  appear  on  the  first  card  and  seven  P5  values  will 

appear  on  the  second  card.   For  each  P5  value  eiqht  columns  are  allowed 

The  values  should  be  entered  so  that  they  end  in  columns  8, 16, 24, . . . 72, 

80. 

IV.  SUBROUTINE 

A.   SUBEOUTINE  STATEMENT 

All  external  subroutines  beqin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  arqument  strinq  enclosed  in 
parentheses.   This  subroutine  beqins  as  follows: 

SUBEOUTINE  SMOTH(P5) 


B.   DESCRIPTION  OF  ARGUMENTS 


Name    How  Obtained   Definition 

I 

P5    ITransferred  In  |Population  distribution  in  5-year 

|aqe  qroups  0-4, 5-9, ...  75-79,80  +  .   A 
(minimum  of  12  aqe  qroups  must  be  qiven. 
| A  maximum  of  17  aqe  qroups  can  be  qiven. 
|The  population  in  all  aqe  qroups  (excapt 
|the  final  open-end  aqe  qroup)  must  be 
Iqreater  than  zero.   If  any  of  these  con- 
ditions are  not  met,  error  messaqe  number 
|1181  will  be  written  out  and  the  sub- 
routine will  return  to  the  callinq  proqram, 

C.   ERROR  MESSAGES 

1181  ***  SMOTH  ERROR  NO.  1181  —  INPUT  ERROR  IN  P5, 

***  AN  INTERMEDIATE  AGE  GROUP  IS  LESS  THAN  ONE, OR  THERE  ARE 

NOT  ENOUGH  AGE  GROUPS. 
***  MINIMUM  NUMBER  IS  12 


V.   PROGRAM   AND   RESULTS 

A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 

c 

c 

C MAIN  PROGRAM  FOR  SMOTH 

c _ 

c 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  THREE  READ 

C STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C  — THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  THE 

C INDICATOR  (NXT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER  DATA  SET 

C FOLLOWING  THIS  ONE. 
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C NXT       IS    IN    COLUMN    1    OF    THIS    CARD.       A    ZERO    IN    COLOHN    1    INDICATES 

c THIS    Is    THE    LAST    DAT&    SET.       &NY    OTHER    NUHBER    IN    COLUMN    1 

c INDICATES    THERE    IS    ANOTHER    SET    OF    DATA    FOLLOWING    THIS    ONE. 

C 

C THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS. 

C THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE 

C POPULATION  DISTRIBUTION (P5)  IN  FIVE  YEAR  AGE  GROUPS. 

c p5   VALUES  ARE  ENTERED  ON  THO  CARDS.   FOR  EACH  P5  VALUE,  EIGHT 

c COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS 

C OF  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  P5  VALUES  CAN  APPEAR 

C ON  THE  FIBST  CARD  SO  THAT  THE  VALUES  END  IN  COLUMN  8,  16, 

c 24,  ...,  72,  AND  80.   THE  SECOND  CARD  CAN  CONTAIN  A  MAXIMUM 

c — _ —       OF  SEVEN  P5  VALUES  AND  THE  VALUES  SHOULD  BE  ENTERED  IN  THE 

C SAME  MANNER  AS  ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALUE 

c ON  THE  SECOND  CARD  HILL  END  IN  COLUMN  56.   IF  LESS  THAN 

C SEVENTEEN  VALUES  ARE  TO  BE  GIVEN,  THO  CARDS  MUST  STILL  BE 

C USED  HITH  DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECESSARY  FOR 

c THE  NUMBER  OF  P5  VALUES. 

C ■ 

c 

DIMENSION  P5(17) 
NREAD  =  1 
NPRNT  =  15 

10  READ(NREAD,11) 

11  F0RMAT(1X,52H  ) 
READ (NREAD, 22) NXT 

22  FORMAT  (11) 

READ(NREAD,33)  (P5  (I)  ,1  =  1 , 17) 
33  FORMAT(10F8.0) 

WRITE(NPRNT,4U) 
HH    FORMAT  (1H1) 

HRITE(NPRNT,11) 

CALL  SMOTH(P5) 

IF  (NXT)  10,20,10 
20  CONTINUE 

STOP 

END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  SHOTH(P5) 

c . 

c _ _ 

C PBOGRAM  NO.  1180 

c 

c 

C P5  IS  AN  INPUT  ARGUMENT. 

c P5  IS  THE  AGE  DISTRIBUTION  TO  BE  SMOOTHED. 

c „ 

c 

DIMENSION  PCF(17)  ,PQI(17)  ,POI(17)  ,DCF(18)  ,DQI(18)  ,  DO  I  (18)  ,  AR  (1  7)  ,P 
♦  10(8)  ,P5(17) 

NROH  =  0 

M  =  0 

NPRNT  =  15 
C 
c . . . . 

C NROH  IS  USED  TO  DETERMINE  THE  NUMBER  OF  FIVE  YEAR  AGE  GROUPS  IN 

c THE  INPUT  ARRAY  P5„ 

c . 

C 

DO  15  I  =  1,17 

IF  (  P5(I)-.9  )  96,96,10 
10  NROH  =  NROH  +  1 
15  CONTINUE 
8  0  CONTINUE 

IF  (NROH-12)  90,90,85 

85  CONTINUE 

IF  (M)  90,87,86 

86  CONTINUE 

IF  (NROH  -  (M-1))  90,87,90 
90  WRITE (NPRNT, 222) 
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222  FORMAT(/, 1X,U6H***  SHOTH  ERROR  NO.  1181  —  INPUT  ERROR  IN  P5,/,1X, 
*83H***  AN  INTERMEDIATE  AGE  GROUP  IS  LESS  THAN  ONE,  OR  THERE  ARE  NO 
*T  ENOUGH  AGE  GROUPS.  ,/,  1X,  25H***  MINIMUM  NUMBER  IS  12, 
*//»^X,18HSMOTH  INPUT  VALUES) 
WRITE  (NPRHT, 224)   (P5  (I)  ,  1=1  ,  17) 
224  FORMAT (/,5X,5HP5  =  , 1 0 (F8.  0, 2X)  /, 10X,  7 (F8.  0,2X)  ) 
GO  TO  10(M) 

96  CONTINUE 

IF  (M)  97,97,15 

97  M  =  I 

GO  TO  15 
87  DO  3<*0  NGRUP  =  1,2 
M  =  NROW  -  NGRUP 
MJ  =  NGRUP  /  2  *  5 
NJ  =  MJ  +  9 
100  DCF(18)  =  0.0 
DQI{18)  =  0.0 
DOI(18)  =  0.0 
K  =  NGRUP 

C 

c 

C THE  VARIABLE  L  IS  THE  NUMBER  OF  TEN  YEAR  AGE  GROUPS 

c 

C 

L  =  (  M  +  2  )  /2-1 

C 

c _ 

C FORM  TEN  -  YEAR  AGE  GROUPS 

c 

C 

DO  110  I  =  1 ,L 

P10(I)  =  P5(K)  *  P5(K+1) 
110  K  =  K  ♦  2 

MM  =  NROH  -  3 

DO  120  K  =  1.MM 
120  AR(K+1)  =  (  2.0  *  P5(K*1))  /  (P5  (K)  +  P5(K  +  2)) 

C 

c . _ _ 

c OSCULATORY  INTERPOLATION 

c „ „ , ,__ — 

C 

c _ 

C FIRST    TWO    AND    LAST   TWO    AGE    GROUPS 

c ___ 

C 

K    =    NGRUP 

J    =    1 

N    =    1 

JK   =    2 

JL   =    3 

MM    =    4 

DO    130    I    =    1,2 

POI(K)    =    0.7266*P10(N)-0.3672*P10(JK)     +0. 1797*P10  (JL)    - 

*  0.0391    *    P10(MM) 
JJ   =    K    +    J 

POI  (JJ)    =    P10(N)     -    POI(K) 

K   =    K    ♦    2*3 

POI(K)    =    0.0391*P10(N)     +    0.5703*P10(JK)       -    0.  1328*P10  (JL)    + 

*  0.  0234    *    P10(MM) 
JJ    =    K    +    J 

LL   =    N    +    J 

POI  (J J)    =    P10(LL)     -    POI(K) 
J    =   -1 

K    =    2*L    ♦    NGBUP   /   2 
N    =    L 
JK   =    N    -    1 
JL    =    N    -    2 
130    MM   =    N    -    3 
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c - - 

c 

C MIDDLE    AGE    GROUPS 

j  =  1 

K    =    NGRUP    +    2 
NN=(M+1)/2-3 
140    K    =    K+2 

IF(   J   -    L   +    4    )     150,150,160 
150    POI(K)    =    -0.0117*P10(J)+0.0859*P10(J+1)  +  0.  5*P10  ( J+2)  - 
*           0.0859*P10(J*3)  +0.0117*P10<J*4j 
POI(K-H)     =    P10(J*2)    -    POI(K) 
J    =   J    +    1 
GO   TO    mo 
c 
c „ 

c — CARRIER    FARAG    METHOD 

c 

C 

160    L    =    L    -    1 

K    =    NGRUP 

DO    170   I    =   2,L 

K   =    K   ♦    2 

PCF(K*    1)    =    P10(I)     /    (    1.0    +  SQRT(SQRT(P1 0(1-1)    /    P10  (1+    1)))) 

PCF(K)    -    P10(I)    -    PCF(K+1) 
C 

C - 

C DEVIATIONS 

c . 

C 

DCF(K)     =((P5(K)     -    PCF(K))     /    P5(K))*    100.0 

DCF(K  +  1)     =({P5(K+1)     -    PCF(K+1))     /   P5(K+1)     )*    100.0 

DCF(18)       =    DCF(18)     ♦    ABS  (DCF  (K)     )     +    ABS  (    DCF(K*    1    )) 

C 

c „ 

C QUADRATIC    METHOD 

c 

C 

PQI(K)    =         Pl0(I)/2.0   +     (    P10(I-1)     -    P10(I*1)     )     /    16.0 

PQKK+1)     =    P10(I)     -    PQI(K) 
C 

c - - - — 

C DEVIATIONS    FOR    BOTH    QUADRATIC    AND    OSCULLATORY    INTERPOLATION 

c-> . _ 

C 

DQI(K)  =((  P5(K)  -  PQI(K))  /  P5(K))*  100.0 
DQI(K+1)  =({P5(K+  1)  -  PQKK+1))  /  P5(K+1))  *  100.0 
170  DQI(18)  =  DQI(18)  +  ABS  (  DQI  (K)  )  +  ABS  (  DQI(K+1)  ) 
K1  =  NROH/2 
K2  =  (NROW+1)/2 
IF  (K2-K1)  176,176,175 

175  K  =  NROH  -3  +  2/NGRUP 
GO  TO  177 

176  K  =  NROW  -  3  ♦  NGRUP 

177  DO  180  I  =  NGRUP, K 

DOI(I)  =((  P5(I)  -  POI(I)  )  /  P5(I)   )  *  100.0 
180  DOI(18)  =  DOI(18)  ♦ '  ABS(DOI(I)  ) 
C 
c 

C PRINT    RESULTS 

c_. 

c 

VRITE(NPRNT,666) MJ,NJ 
666    FORMAT    (/, 1X,56H    POPULATION    SMOOTHED    BEGINNING    WITH   TEN    YEAR    AGE    G 
♦ROUP       ,I2,2H   -,I2,///,14JC,8HORIGINAL,4X,3HAGE, 

♦7X.21HC&RRIER    FARRAG    METHOD, 7X,20HQUADR ATIC    GRADUATION, 6X,21H0SCUL 
*AT0RY    GRADUATION, /,UX, 3HAGE, 18X, 5HRATIO, 3 (7X, 19HSMOOTHED  PERCEN 

*T) ,/,30X,3(18X,9HDEVIATION) ,/,lX) 
240    RH    =     (    L    -    1    )     *    2 

DCF(18)     =    DCF(18)    /   RM 
DQI(18)    =   DQI(18)    /   RM 
DOI<18)     =    DOI(18)     /    (K-NGRUP    +    1) 
JK   =    0 
JL   =    4 

IF    (    NGRUP    -    2    )     260,250,260 
250    WRITE (NPRNT, 777) JK,JL,P5(1) 
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777    FORMAT     (1X,I2,2H   - , 13. 1X, 2X, F11. 0) 

GO   TO    270 
260    HRITE (NPRNT, 888) JK,JL,P5 (1) ,  POI (1) ,DOI(1) 
888    FORMAT(1X,I2,2H    -, 13, 3X,F1 1 . 0,66 X,F1 1 . 0,4X,F6. 2) 
270    N    ■    NGRUP    +    1 

DO    280    I    =    2,N 

JK   =    5    *     (1-1) 

JL   =    JK    +    4 

28  0    WRITE  (NPRNT, 999 )  JK,JL,P5  (I)  ,AR(I)  ,POI  (I)  ,D0I(I) 

999    FORMAT    (1X,I2,2H    - ,13,1 X,2X, F1 1 . 0,2 X,F6. 2 ,58X,F1 1 . 0,4X ,F6. 2) 
NN    =    N  +  1 

N    =    NGRUP    -    1    +    2    *    L 
KC1    =     (NGRUP    +    NROH)/2 
KC2   =     (NGRUP    ♦    NROH    +1)     /2 
DO    290    I    =    NN,N 
JK   =    5    *     (    I    -    1    ) 
JL   =    JK    +    4 

29  0    HRITE (NPRNT,  1 1 1 1)  JK,  JL,  P5  (I)  ,AR  (I)  ,PCF(I)  ,DCF(I)  ,PQI  (I)  ,DQI  (I)  ,POI 

*(I).DOI(I) 
1111  F0RBAT(1X,I2,2H  -,I3,1X,2X,F11.0,2X,F6.2,4X,F11.0,4X,F6.2,2(6X,F11 
*.0,4X,F6.2) ) 
IF  (KC1-KC2)  295,320,295 
295  JM  =  NROH  -  3 
JN  =  NROH  -2 
JK  =JK  +  5 
JL  =  JK  +  4 

HRITE(NPRNT,99  9)  JK,JL,P5(JM)  ,AR(JM)  ,  POI(JM)  ,DOI  (JM) 
JK  =JK  +  5 
JL  =  JK  +  4 
305  HRITE  (NPRNT,  999)  JK,JL,P5(JN)  ,AR(JN)  ,POI  (JN)  ,DOI  (JN) 
310  JK  =  JK  +  5 

JL  =  JK  +   4 
315  HRITE (NPRNT, 777) JK,JL,P5 (JN+1) 

GO  TO  330 
320  JM  =  NROH-2 

JN  =  NROH  -  1 
JK  =JK  +  5 
JL  =  JK  ♦  4 

HRITE  (NPRNT,  999)  JK  ,JL,P5(JM)  ,AR  (JM)  ,  ?OI(JM)  ,DOI(JM) 
JK  =JK  ♦  5 
JL  =  JK  ♦  4 
325  HRITE(NPRNT,888) JK,JL,P5 (JN) ,POI (JN) ,D0I(JN) 
330  JK  =  JK  +  5 

335  HRITE(NPRNT,2222)JK,P5(NROH) 
2222  F0RMAT(1X,I2,2H  +,6X,F11.0) 

340  HRITE(NPRNT,3333)  DCF(18)  ,DQI  (18)  ,D0I  (18) 
3333  FORMAT (/, 1X. 19HAVERAGE  OF  ABSOLUTE,/, 1X, 20HVALUES  OF  DEVIATIONS, 27 

*X,3(F7.2,20X)//) 
1000  RETURN 
END 
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SPP 


I.  DESCRIPTION      OP      PROGRAM 

A.  PURPOSE 

To  generate  a  stable  population  distribution  and  its 
parameters  from  the  5L   column  of  a  life  table  and  an 
intrinsic  growth  rate. 

B.  DATA  NEEDED 

1.   The  source  of  the  mortality  data.   It  can  be  from  one  of  the 
Coale-Demeny  Regional  Model  Life  Tables,  an  empirical  life  table  or  a  United 
Nations'  Model  Life  Table. 

2.  An  intrinsic  growth  rate. 

3.  A  set  of  rL   from  a  life  table. 

5  x 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

According  to  stable  population  theory,  the  intrinsic  crude  birth  rate  is: 


b  = 


1 


f 

JO 


-r  •  x  , 
1  •  e     dx 
x 


where 


b   is  the    intrinsic  crude  birth  rate. 

x   is  the  age. 

e  is  the  base  of  the  natural  logarithm. 

1   is  the  small  1   from  a  life  table  whose 

X  X 

radix  is  1  (one) . 
w  is  the  oldest  age. 
r  is  the  intrinsic  growth  rate. 

In  discontinuous  notation: 


b  = 


where 


E   _L  .e-r'(^2-5) 
x=0,5  5  x 


rL     is   the    rL      in  the   life  table. 

5  x  5   x 
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After  obtaining   the   intrinsic   crude   birth   rate,    the  age  distribution   of 
the  stable   population   is   found   by: 


C(x,^)  =  b.5Ve-r-  (xf2'5) 


where 


C(x,x+4)  is  the  proportion  of  the  population  in  the 
age  group  x, x+«*. 

The  cumulative  proportion  is  calculated  as: 


x 

C(0,x+4)  =  X  C(j,j+4) 
5=0,5 


where 

C(0,x+U)  is  the  cumulative  portion  of  the  population 
from  age  0  to  age  x+4  or,  in  other  words,  the  proportion 
of  the  population  under  age  x+5. 

The  intrinsic  crude  death  rate  is: 

d  =  b  -  r 

The  average  age   is: 


w 
A=   .5  C(0,1)  +  3  C(1,4)  +     L      (x+2.5)  •  C(x,x+4) 

x=5,5 


The   proportion   15-<*9   is: 

45 

C  (15,49)  =      S      C(x,x+4) 
x=15,5 


The   ratio  of   births  to   the  population    15-49   is 


u15,49        C  (15,49) 

The  ratio  of  the  population  under  5  to  the  population  15-49  is: 

_   C(O.A) 
"0,4/15,49    C(15,49) 

The  ratio  of  the  population  5-9  to  the  population  20-51  is: 

c(5,9) 


"5,9/20,54    C(20,54) 
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The  ratio  of    the   population    5-14     to   the   population    5   and  over  is: 

10 

X!     C(x,xU) 


5,14/5+  w 

XI     C(x,x+4) 

3^5,5 


The   dependency   ratio   is: 


DR  = 


10  w 

E     C(x,x+4)  +      Xi      C(x,x+4) 

x=0.5 a£65,5 

60 

X     C(x,x+4.) 

x=15,5 


Given   the  age-specific   fertility   rate   patterns  for    particular   mean 
ages   of   mothers,    the   gross   reproduction  rate  can   be   calculated.      For 
the   Regional   Model   Life   Tables,    Coale-Demeny   gave   four   age-specific 
fertility   rates.      For   stable   populations  constructed   on  the   basis  of 
the   Regional    Model    Life   Tables,    the   gross    reproduction  rate   for   each 
pattern   of  age-specific   fertility  rates   can  be   calculated   as: 


GRR(5) 


*^5  5  *     5     x 


where 

GRR  (m)  is  the  gross  reporduction  rate  for  a  particular 
pattern  of  fertility  rates  which  pertain  to  a  Bean 
age  of  mothers 

m  is  the  mean  age  of  mothers,  rPti     is  a  fertility 
pattern. 

The  four  fertility  patterns  are  for  the  mean  age  of  mothers  27,  29,  31, 
and  33  and  the  subroutine  gives  four  gross  reproduction  rates,  one  for  each 
mean  age. 

B.   COMMENTS 

Gross  reproduction  rates  are  calculated  only  for  the  Coale-Demeny  Models 
since  the  fertility  patterns  apply  only  to  those  models. 

In  order  to  have  the  results  of  this  subroutine  written  out,  the 
subroutine  PSPP  must  be  called  after  this  subroutine. 

III.  MAIN   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  reguired  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
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and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 


The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 
CALL  SPP (NREG, RNG, BIGLX, SP,CUMSP,CSP) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in 
the  above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to 
a  group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then 
the  variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
greater  than  the  variable  name  is  dimensioned  in  any  subroutine  called  by  the 
main  program. 

The  variables  in  the  argument  string  that  are  arrays  are  BIGLX,  SP,  CUHSP 
and  CSP.   The  following  dimension  statement  must  be  included  in  any  main 
program  using  this  subroutine: 

DIMENSION  BIGLX  (18)  ,SP(18)  ,CUMSP(18)  ,CSP("J8) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other 
subroutines  or  functions  provided  by  this  publication  or  by  a  fortran  library. 

1.  Subroutines  from  this  package 
PSPP* 

♦The  subroutine  PSPP  is  needed  by  the  main  program  to  write  out 
the  results  obtained  by  SPP.   This  subroutines  is  not  called  by  the 
subroutine  SPP  and  is  used  only  by  the  main  program.   SPP  can  be  used 
without  PSPP  if  it  is  not  necessary  to  write  out  the  results  of  SPP. 

2.  Library   functions 

a.  SQRT{Sguare    Root) 

b.  EXP (Exponential) 

3.  Card   diagram   of    main   program  and    subroutines. 


/ 

/  CARDS  INDICATING  END  OF  DECK 

/ 
/ 
/ 

/ 
/              INPUT  DATA            / 
/                                   / 

/I 
1 
1 

/                                   /I 

/          COMPUTER  CONTROL  CARDS    /  | 

/                                     /   I 

1 

1  / 
1/ 

/                                     /I   I 

/             SUBROUTINE  PSPP        /  |   | 

/                                   /   1   1/ 

/ 
/ 

/                                   /I   1   / 
/             SUBROUTINE  SPP         /  |   |  / 
/                                   /   1   1/ 

/                                   /I   1   / 
/          MAIN  PROGRAM               /  |   |  / 
/..,..                              /   1   1/ 
/                                     /I   1   / 
/       COMPUTER  CONTROL  CARDS       /  |   |  / 

/   1   1/ 

BEGINNING   OF    DECK 


I       / 
I    / 
1/ 
/ 
/ 
/ 
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C. 


FORMAT    REQUIREMENTS    FOB    THE    INPUT    DATA    CARD    FOR    THE    MAIN    PROGRAM    GIVEN    IN 
SECTION    V.A. 


The   card   format   requirements    for  the   main   program   included    with    this 
publication  are  as   given   below.      The  data  should   be   punched  in   the  columns 
specified.      For  a   more   detailed    description  of  the  input    data,    see  the 
description   of  arguments   in   section   IV. B.    See  examnle,   section  V.c. 

Variable 
Card  Columns        Name        Definition 


1 
2-53 
54-80 

1 


2 
3-9 

10 
11-15 

16 
17 


18 
19 


20-80 


1-8 


9-16 


72-80 


1-8 


NBEG 


BNG 


EO 


NSEX 


NXT 


BIGLX 


BIGLX 


Blank 

Label  used    to  identify   the   output 

Blank 


X  column.   A  one,  two, 
in  column  1  indicates 
Demeny  Regional  Model 
west,  north,  east  and 
A  five  punched  in 

source  was  an  empir- 
x  punched  in  column  1 
as  a  United  Nations' 


The  source  of  the  BIGL 
three  or  four  punched 
the  source  as  a  Coale- 
Life  Table  for  region 
south,  respectively, 
column  1  indicates  the 
ical  life  table.   A  si 
indicates  the  source  w 
Life  Table. 

Blank 


Intrinsic  growth  rate.   It  should  be 
entered  so  that  the  decimal  point  is  in 
column  3. 

Blank 

Life  expectancy  at  birth  pertaining  to  the 
given  BIGLX.  It  should  be  entered  so  that 
the  decimal  is  in  column  13. 

Blank 

Sex  to  which  the  BIGLX 's  pertain.   A  one 
punched  in  column  17  indicates  males,  a  two 
punched  in  column  17  indicates  females  and 
a  three  punched  in  column  17  indicates  both 
sexes. 

Blank 

The  code  indicating  if  there  is  another 
data  set  following  this  one.   A  zero  punched 
in  column  19  indicates  that  this  is  the 
last  set  of  data.   Any  other  number  punched 
in  column  19  indicates  another  set  of  data 
follows  this  one. 

Blank 


The  iLo  value  from  a  life  table  for  age 
0-1. 

The  4^  value  from  a  life  table  for  age 
1-4.  ' 


The  qLv  value  from  a  life  table  for  age 

40-44V 


The  rL   value  from  a  life  table  for  age 

45-4?. 
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9-16 


57-64 


65-80 


IThe^Lx  value  from  a  life  table  for 

| age    50-54. 

I 

I 


(The    i-Lx    value  from  a   life   table   for  age 
|  80+. 


I 

|  Blank 

I 


The  variable    BIGLX   is  contained   on  two   cards   and  both  cards 
3  and   4   must   contain   values.      A   minimum   of    5   and   a  maximum 
of   8   BIGLX   values   can   appear  on   the  second   card    (card   4) . 
The   last   value   given   on   the  second  card  must   be   for  an 
open-ended   age   group. 


IV. 


SUBROUTINE 


A.  Subroutine  statement 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  SPP (NREG, RNG, BIGLX, SP,CUMSP,CSP) 

B.  DESCRIPTION    OF    ARGUMENTS. 


Name 


NREG 


RNG 


BIGLX 


SP 


How   Obtained 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 


CUM  SP I  Transferred  Out 


Definition 

Source  of  the  mortality  data  as  indicated 
by  one  of  the  following:   A)  one  of 
Coale-Demeny  Model  Regional  Life  Tables 
indicated  by  1,2,3,  and  4  for  West, 
North,  East,  and  South,  respectively; 

B)  an  empirical  life  table,  NREG=5;  or 

C)  a  United  Nations'  model,  NREG=6. 
For  any  other  value  of  NREG,  it  is 
assumed  that  the  rLx  values  came  from  an 
empirical  life  table.   A  warning 
message  is  written  out  to  indicate 

this  and  the  subroutine  continues  its 
calculations. 

Intrinsic  growth  rate.   The  acceptable 
range  is  between  -  0.01  and  0.05. 
If  RNG  is  outside  this  range  or  is  not 
specified,  error  message  number  1211 
will  be  written  out  and  the  subroutine 
will  return  to  the  calling  program. 

Contains  the  tjLx  values  from  a  life  table 
corresponding  to  0-1,  1-4,  5-9,  ...» 
75-79,  and  80+.   At  least  the  first 
fifteen  values  must  be  provided.   If 
between  15  and  17  values  are  given, 
the  subroutine  extrapolates  to  obtain 
the  rest  of  the  values  through  18. 
If  less  than  15  values  are  given,  the 
subroutine  will  write  out  error 
message  number  1212  and  return  to 
the  calling  program.   If  any  value  of 
BIGLX  is  less  than  or  egual  to  zero,  the 
subroutine  will  write  out  error  message 
1213  and  return  to  the  calling  program. 

SP  contains  the  stable  population 
distribution  for  the  18  age  groups 
0-1,  1-4,  5-9,  ...,  75-79,  and  80+ 
calculated  by  SPP. 

Contains  the  values  of  the  cumulative 
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CSP 


Transferred  Out 


age  distribution  for  the  stable  pop- 
ulation for  ages  1,  5,  10,  15,  .  .., 
7  5,  and  80+.   The  last  cumulative  age 
group  (80+)  should  be  1.0. 

An  array  of  13  stable  population 

parameters  and  summary  ratios 

calculated  by  SPP: 

CSP  (1) -The  intrinsic  crude  birth  rate 

CSP  (2) -The  intrinsic  crude  death  rate 

CSP (3) -The  average  age  of  the  stable 
population 

CSP  (4) -The   proportion   of  the   popula- 
tion age    15-49 

CSP (5) -The   ratio   of   the  births   to 
the  population    15-49 

CSP  (6) -The   ratio   of  the   population 
under    5    years   of   age   to  the 
population   15-49 

CSP (7) -The  ratio  of  the  population 
age  5-9  to  the  population  20-54 

CSP  (8) -The  ratio  of  the  population 
age  5-14  to  the  population  age 
5  and  over 

CSP (9) -The  ratio  of  the  population 
0-14  plus  the  population  age  65 
and  over  to  the  population  15-64 

CSP  (10) -CSP  (13)  are  gross  reproduc- 
tion rates  which  are  calculated  only 
for  those  cards  «hen  the  source 
i-L   is  the  Coale-Demeny  Regional 
Moftel  Life  Tables.   CSP(10)- 
CSP  (13)  correspond  to  mean  ages 
at  childbearing  of  27,29,31,  and 
33,  respectively. 


C.   ERROR  MESSAGES 

1211  ***  SPP  ERROR  NO.  1211  --  INPUT  ERROR  IN  VARIABLE  RNG 

***  INTRINSIC  GROWTH  RATE  MUST  BE  WITHIN  RANGE  -0.01  TO  0.05. 

1212  ***  SPP  ERROR  NO.  1212  —  INPUT  ERROR  IN  VARIABLE  BIGLX 

***  THE  NUMBER  OF  CAPITAL  L  VALUES  MUST  BE  BEWTEEN  15  TO  18. 

1213  ***  SPP  ERROR  NO.  1213  --  INPUT  ERROR  IN  VARIABLE  BIGLX 
***  ALL  CAPITAL  LX  VALUES  MUST  BE  GREATER  THAN  ZERO. 

1214  ***  SPP  ERROR  NO.  1214 

***  AN  EXTRAPOLATED  SURVIVAL  RATIO  IS  NOT  WITHIN 
PERMISSABLE  RANGE  0.0  TO  1.0. 

1215  ***  SPP  ERROR  NO.  1215  --  ERROR  IN  VARIABLE  BIGLX (18) 
***  ESTIMATED  CAPITAL  L  FOR  AGE  80+  IS  LESS  THAN  ZERO 

POSSIBLE  ERROR  IN  PATTERN  OF  MORTALITY. 


PROGRAM       AND      RESULTS. 
A.       COMPUTER    LISTING    FOR    MAIN    PROGRAM 


c . 

I _ „ ______ 

C MAIN  PROGRAM  FOR  SUBROUTINES   SP?   AND   PSPP 

| _ . 

c_ 

I THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  BY  THREE 

C READ  STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS, 

C 

I THE  piBST  READ  STATEMENT  USES  ONE  DATA  CARD. 

I THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

I T0  BE  USED  T0  IDENTIFY  THE  OUTPUT.   THIS  LABEL  WOULD  USUALLY 

C CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING 

C ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

§ THE  TYPE  OP  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 

I IN  COLUMNS  2-53  OF  THE  CARD. 

C 
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C- THE  SECOND  HEAD  STATEMENT  OSES  ONE  DATA  CARD. 

C- THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  (1)  THE 

C — ---SOURCE  OF  THE  MORTALITY  DATA  (NREG) ,  (2)  INTRINSIC  GROWTH  RATE 

C (RNG)  ,  (3)  THE  LIFE  EXPECTANCY  AT  BIRTH  (EO)  ,     (4)  THE  CODE 

C— - — (NSEX)  INDICATING  THE  SEX  OF  THE  POPULATION  ,  AND  (5)  THE  CODE 
C  —  --(NXT)  INDICATING  IF  THERE  IS  ANOTHER  DATA  SET  FOLLOWING  THIS  ONE. 

C- NREG  IS  LOCATED  IN  COLUMN  1.   A  ONE,  TWO,  THREE,  OR  FOUR  PUNCHED 

c in  COLUMN  1  INDICATES  THE  WEST,  NORTH,  EAST,  AND  SOUTH 

q„„, REGION  FROM  THE  COALE-DEMENY  MODEL  LIFE  TABLE  SYSTEM 

c___„_        RESPECTIVELY.   A  FIVE  PUNCHED  IN  COLUMN  1  INDICATES  AN 

C EMPIRICAL  LIFE  TABLE  AND  A  SIX  PUNCHED  IN  COLUMN  1 

c _        INDICATES  A  UNITED  NATIONS  MODEL  LIFE  TABLE. 

C- RNG   IS  LOCATED  IN  COLUMNS  3-9,  WITH  THE  DECIMAL  POINT  IN 

c_  —  —        COLUMN  4. 

C-____E0      is    LOCATED    IN    COLUMNS    11-15    WITH    THE    DECIMAL    POINT    IN 

c___ —  COLUMN    13. 

C NSEX  is   LOCATED  IN  COLUMN  17.  A  ONE  PUNCHED  IB  COLUMN  17 

c INDICATES  A  MALE  POPULATION,  A  TWO  PUNCHED  IN  COLUMN  17 

c — ___        INDICATES  A  FEMALE  POPULATION  AND  A  THREE  PUNCHED  IN  COLUMN 

c 17  INDICATES  BOTH  SEXES. 

C NXT   IS  LOCATED  IN  COLUMN  19.   A  ZERO  PUNCHED  IN  COLUMN  19  INDI- 

C CATES  THIS  IS  THE  LAST  SET  OF  DATA.   ANY  OTHER  NUMBER 

c PUNCHED  IN  COLUMN  19  INDICATES  ANOTHER  SET  OF  DATA  FOL- 

C LOWS  THIS  ONE. 

C 

C THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS. 

C— — -THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  EIGHTEEN 

C CAPITAL  L   VALUES  (BIGLX)  FROM  THE  APPLICABLE  LIFE  TABLE.   THE 

C FIRST  TWO  VALUES  REFER  TO  AGE  GROUPS  0-1  AND  1-4.   THE  LAST  VALUE 

C REFERS  TO  THE  OPEN-ENDED  AGE  GROUP.   THE  INTERVENING  VALUES  ALL 

C REFER  TO  FIVE  YEAR  AGE  GROUPS.   A  MINIMUM  OF  15  VALUES  AND  A 

C MAXIMUM  OF  18  VALUES  MUST  BE  GIVEN.   IF  FEWER  THAN  18  VALUES  ARE 

C- KNOWN  THE  REMAINING  VALUES  MUST  BE  READ  IN  AS  ZEROS.   FOB  EXAMPLE, 

C IF  FIFTEEN  VALUES  ARE  KNOWN,  BIGLX  (15)  WILL  REFER  TO  THE 

C- OPEN-ENDED  AGE  GROUP  65+,  AND  BIGLX(16),  BIGLX{17),  AND  BIGLX  (18) 

C-- MUST  ALL  EQUAL  ZERO. 

C-- BIGLX  IS  CONTAINED  ON  TWO  CARDS.   EACH  VALUE  OF   BIGLX   MUST  BE 

C ENTERED  WITHIN  EIGHT  COLUMNS,  STARTING  WITH  THE  FIRST  EIGHT 

c COLUMNS.   TEN   BIGLX   VALUES  WILL  APPEAR  ON  THE  FIRST  CARD, 

c ENDING  IN  COLUMNS  8,  16,  24,  ...  ,80.   A  MINIMUM  OF  FIVE 

c_ VALUES  AND  A  MAXIMUM  OF  EIGHT  VALUES  CAN  APPEAR  ON  THE 

C SECOND  CARD,  ENTERED  IN  THE  SAME  WAY  AS  ON  THE  PREVIOUS 

C CARD. 

q . _ 

c _ . . 

DIMENSION  BIGLX  (18)  ,SP(18)  ,CUMSP(18)  ,CSP  (13) 

NREAD=1 

NPRNT=15 

3  READ(NREAD,5) 

READ (N READ, 1)     N REG, RNG, EO, NSEX, NXT 

READ(NREAD,2)     BIGLX 

WRITE (NPRNT,6) 

WRITE(NPRNT,5) 

CALL  SPP  (NREG, RNG, BIGLX, SP,CUMSP,CSP) 

CALL  PSPP (NREG, RNG, SP,CUMSP,CSP, NSEX, EO) 

IF  (NXT)  4,4,3 

4  STOP 

1  FORMAT  (11, 1X,F7.5,1X,F5.2,1X,I1,1X,I1) 

2  FORMAT  (10F8.0/8F8.0) 

5  FORMAT  (1X,52H  ) 

6  F0RMAT(1H1) 
END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  SPP  (NREG, RNG, BIGLX, SP,CUMSP,CSP) 
c 

C PROGRAM  NO.  1210 

c _ 

C THE    INPUT    ARGUMENTS    TO    THIS    SUBROUTINE    ARE      NREG,       RNG,       AND 

C BIGLX. 

C THE   OUTPUT    ARGUMENTS    FROM    THIS    SUBROUTINE   ARE      SP,      CUMSP,      AND 

C CSP. 

C NREG   IS  THE  SOURCE  OF  THE  MORTALITY  DATA.   NREG  =  1,2,3,  OR  4 
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C 


INDICATES  A  REGION  FBOH  THE  COALE-DEHENY  MODEL  LIFE  TABLE 
SYSTEM,  NfiEG  =  5  INDICATES  AN  EBPIBICAL  LIFE  TABLE,  AND 
NBEG  =  6  INDICATES  A  UNITED  NATIONS  HODEL  LIFE  TABLE. 

-BNG   IS  THE  INTRINSIC  GROWTH  BATE. 

-BIGLX   IS  THE  CAPITAL  L  VALUES  FBOH  THE  APPLICABLE  LIFE  TABLE. 

THE  FIRST  TWO  VALUES  BEFEB  TO  AGE  GROUPS  0-1  AND  1-4.   THE 
LAST  VALUE  REFERS  TO  TBE  OPEN  AGE  GBOUP.   THE  INTERVENING 
VALUES  ALL  REFER  TO  FIVE  YEAR  AGE  GROUPS. 

-SP   IS  THE  AGE  DISTRIBUTION  OF  THE  STABLE  POPULATION  GIVEN  AS 
OUTPUT. 

-CUHSP   IS  THE  CUHULATIVE  AGE  DISTRIBUTION  OF  THE  STABLE  POPULA 
TION  GIVEN  AS  OUTPUT. 

-CSP   IS  THE  PARAHETERS  OF  THE  STABLE  POPULATION  GIVEN  AS  OUTPUT. 


DIMENSION  BIGLX  (18),  SP(18),  CUMSP(18),  CSP  (13) 

DIMENSION  P(7,4),  X(18),  AGE(18) 

NPRNT=15 


-COUNTING  OF  THE   BIGLX   VALUES 


DO  1  1=1,18 

J  =  19-I 

IF  (BIGLX  (J) -.00001)  1,1,2 
2  N=J 

GO  TO  3 
1  CONTINUE 


•VERIFICATION  OF  INPUT  ARGUMENTS 


3  NERR=0 

IF  (RNG  +  0.01)  10,21,9 
9  CONTINUE 

IF  (RNG  -  0.05)   21,21,10 
10  WRITE (NPRNT, 20) 

20  FORMAT (  /55H  ***  SPP  ERROR  NO.  1211  --  INPUT  ERROR  IN  VARIABLE   RN 
*G,/,64H  ***  INTRINSIC  GROWTH  RATE  MUST  BE  WITHIN  RANGE   -0.01   TO 
*  0.5.) 

NEBR=1 

21  CONTINUE 

IF  (N  -  15)  23,25,25 

23  WRITE(NPRNT,24) 

24  FORMAT  (  /57H  ***  SPP  ERROR  NO.  1212  --  INPUT  EBROR  IN  VARIABLE   BI 
*GLX,/, 62H  ***  THE  NUMBER  OF   CAPITAL  L   VALUES  MUST  BE  BETWEEN  15 
♦TO  18) 

NERR=1 

25  DO  27  1  =  1,  N 

IF  (BIGLX  (I)-. 00001)  26,26,27 

27  CONTINUE 
GO  TO  30 

26  WRITE (NPRNT, 28) 
NERR=1 

28  FORMAT  (  /57H  ***  SPP  ERROR  NO.  1213  --  INPUT  ERROR  IN  VARIABLE   BI 
*GLX,/,53H  ***  ALL   CAPITAL  L   VALUES  MUST  BE  GBEATER  THAN  ZERO) 

30  CONTINUE 

IF  (NREG  -  1)  40,55,35 
35  CONTINUE 

IF  (NREG  -  6)  55,55,40 
40  WRITE  (NPRNT, 50) 

50  FORMAT (  /49H  ***  SPP  WARNING  —  INPUT  ERROR  IN  VARIABLE   NREG,/, 
♦104H  ***  REGION  CODE  WAS  NOT  WITHIN  RANGE   1   TO   6,  MORTALITY  IS 
♦ASSUMED  TO  BE  FROM  AN  EMPIRICAL  LIFE  TABLE) 
NREG  =  5 
55  CONTINUE 

IF(NERR)  58,58,170 
C 
c 

C EXTRAPOLATION  TO   18   BIGLX   VALUES  IF  LESS  THAN  18  ARE  GIVEN 

c 


58  CONTINUE 

IF  (N-18)  56,60,60 
56  TEMP=BIGLX(N) 
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SUM=0.0 

SRl=BIGLX(N-1)/BIGLX(N-2) 
SR2=BIGLX (N-2) /BIGLX (N-3) 
EAT  10=  (1.0-SR1)/(1.0-SR2) 
SR=SR1 

DO    57    J=N,17 

BIGLX(J)=BIGLX(J-1)*(1.0-  (RATIO*  ( 1.0-  SR)  )) 
SR= BIGLX (J) /BIGLX (J-1) 
IF    (SR    -    0.00001)     59,57,565 
565    CONTINUE 

IF     (SR    -    0.99999)     57,57,59 
57    SUM=SUM+BIGLX(J) 
BIGLX  (18)=TEMP-S0M 
IF(BIGLX  (18)  )    62,60,60 

62  WRITE  (NPRNT,63) 

63  FORMAT(    /, 55H    ***    SPP    ERROR    NO.    1215    —    ERROR    IN    VARIABLE      BIGLX(1 
*8),/,96H    ***   ESTIMATED      CAPITAL    L      FOR    AGE    80+    IS   LESS    THAN    ZERO, 
♦POSSIBLE    ERROR    IN    PATTERN    OF    MORTALITY) 

BIGLX  (N)=TEMP 
GO    TO    170 

59  CONTINUE 
WRITE (NPRNT,61) 

61  FORMAT (/,23H  ***  SPP  ERROR  NO.  1214,/, 

*84H  ***  AN  EXTRAPOLATED  SURVIVAL  RATIO  IS  NOT  WITHIN  PERMISSIBLE  R 
*ANGE  OF   0.0   TO   1.0) 

BIGLX  (N)=TEHP 

GO  TO  170 

C 

c 

C FILL   VALUES    OF      AGE       WITH    MID-INTERVAL    AGES 

c 

C 

60  AGE  (1)     -    .5 
AGE(2)     =    3.0 
AGE  (3)     =7.5 
DO    70    1=4,17 

70    AGE  (I)    =    AGE(I-1)     +    5.0 
C 
c 

C ESTIMATE    AVERAGE    AGE    OF    80+    GROUP 

c 

C 

SL80    =     (-3.725    +    SQRT     (13.875625    +    .00025   *    BIGLX  (1 8)  ))/. 000125 

EX80  =    BIGLX{18)    /    SL80 

AGE(18)     =   80.92    +    .6    *    EX80 

GO    TO     (80,80,80,80,90,90) ,NREG 
C 
c 

C DATA    FOR    THE   CALCULATION    OF    THE    GRR    IS    PUT    INTO       P 

c 

C 


80    P  (1,1) 

= 

.029 

P  (2,1) 

= 

.055 

P  (3,1) 

= 

.054 

P  (4,1) 

= 

.037 

P(5,1) 

= 

.020 

P  (6,1) 

= 

.004 

P(7,1) 

= 

.001 

P  (1,2) 

= 

.018 

P  (2,2) 

= 

.042 

P(3,2) 

= 

.056 

P  (4,2) 

= 

.044 

P  (5,2) 

= 

.028 

P(6,2) 

= 

.010 

P  (7,2) 

= 

.002 

P(1,3) 

= 

.008 

P  (2,3) 

= 

.032 

P  (3,3) 

= 

.054 

P(4,3) 

= 

.050 

P  (5,3) 

= 

.034 

P(6,3) 

= 

.018 

P(7,3) 

= 

.004 

P (1,4) 

= 

.002 

P (2,4) 

= 

.019 

P  (3,4) 

= 

.047 

P(4#4) 

= 

.056 

P  (5,4] 

= 

.046 
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P<6,4)  =  .025 

P(7,4)  =  .005 
C 
c 

C INITIALIZE  VARIABLES 

c 

C 

90  CSP  (3)  =0.0 

DO    100   1=10,13 
100    CSP  (I)    =   0.0 
RECIP   =    0.0 
C 
c 

c CALCOLATE    RELATIVE    SIZE   OF    STABLE    AGE    GROOPS    FROM   RATE    OF   NATURAL 

C INCREASE,     AVERAGE    AGE,    AND    LIFE    TABLE 

c 

C 

DO    110    1=1,18 

X(I)     =    EXP(-RNG    *    AGE  (I))     *    BIGLX  (I) 
110    RECIP    =    RECIP    +    X(I) 

C 

c 

c CALCOLATE    SCALE    FACTOR 

c 

C 

BX   =    1.0   /    RECIP 

RECIP    =    RECIP  /    100000.0 

C 

c 

C CALCOLATE  STABLE  DISTRIBUTION,  CUMULATIVE  DISTRIBUTION,  AND 

C AVERAGE  AGE 

c 

C 

TEMP   =    0.0 
DO    120    1=1,18 
SP(I)=X(I)  *BX 
CUMSP(I)=   TEMP   ♦    SP(I) 
CSP  (3)     =   CSP  (3)     +    SP(I)       *    AGE(I) 
120   TEMP   =    CUHSP(I) 

C 

c 

C CALCULATE  THE  CRUDE  BIRTH  RATE  AND  THE  CRUDE  DEATH  RATE 

c 

C 

CSP  (1)  =  1.0  /  RECIP 

CSP  (2)  =  CSP(1)  -  RNG 

GO  TO  (130,130,130,130, 160, 160) ,NREG 
C 
c 

C CALCULATE  THE  GROSS  REPRODUCTION  RATE 

c 

C 

130  DO  150  1=1,4 
K  =  I  +  9 
DO  140  J=5,11 
140  CSP(K)  =  CSP(K)  +  X(J)  *  P(J-4,I) 
150  CSP(K)  =  100000.0  /  CSP(K) 
C 
c 

C CALCULATE  REMAINING  STABLE  POPULATION  PARAMETERS 

c 

C 

160   CSP(4)     =    CUHSP{11)     -    CUMSP(4) 

CSP  (5)     =   CSP(1)    /  CSP  (4) 

CSP  (6)     =    CUMSP(2)    /   CSP  (4) 

CSP(8)     =     (SP(3)     +    SP(4))    /     (1.0    -    COHSP     (2)) 

CSP  (9)    =    (1.0    -    CUMSP(14)     ♦   CUMSP(4))     /    (CUMSP(14)     -    CDMSP     (4)) 

CSP  (7)     =   SP  (3)    /    (CUMSP(12)     -    CUMSP(5)) 

GO    TO    1000 
C 
c 

C ZEROING   OUT   OF    OUTPUT    AND    PRINTING   OF    INPUT    BECAUSE   OF    ERROR 

c 

C 

170    DO    180    1=1,13 
SP(I)     =   0.0 
CUHSP(I)    =   0.0 
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180    CSP(I)    =0.0 

DO    190    I    =   1H,18 
SP(I)    =   0.0 
190   COHSP(I)    =    0.0 

HRITE(NPRNT,200)     NREG,RNG, (BIGLX (I) ,1= 1,N) 
200    FORMAT     (//,25H  SPP    INPOT    ARGOHENTS,, 

*//#12H  NREG    =    ,16, 

V,11H  RNG   =    ,F12.  5, 

*/,13H  BIGLX   =    ,9F12.2,/,13X,9F12.2) 

1000    RETURN 
END 
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I.  DESCRIPTION      OF       P    R    0    G    P.    A    H 

A.  PURPOSE 

To  calculate  survival  rates  for  open-ended  age  groups  for  a  period  of 
10  years  --  x  and  over  survivng  to  x  +  10  and  over  —  from  two  population 
distributions  enumerated  or  estimated  10  years  apart. 

B.  DATA  NEEDED 

1.  Population  distribution  by  5-year  age  groups  for  the  earlier 
date. 

2.  Population  distribution  by  5-year  age  groups  for  ten  years 
later. 

II.  MET  H0D0L0GY 

The  following  eguation  is  used  to  calculate  the  open-ended  survival 
rates: 


y    pt+10 

st,t+10  =      .1^5   5  J+1Q 
x+  w 

3=^5  5  x 


where 

S  •      is  the  survival  rate  from  ages 
x 

x  and  over  to  ages  x+10  and  over  from  year  t  to  year  t+10, 
P1  is  the  population  of  age  -j  to  j+4  at  year  t, 
w  is  the  oldest  age. 

III. M  AIN   PPOGRAM 

A.   REQUIREMENTS 

The  main  program  is  reguired  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1 .   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 
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The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 
CALL  SRX10(C,D,NWRIT,S) 

For  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 


2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  the  variables  C,  D,  and  S  are  arrays.   The  following 
dimension  statement  must  be  included  in  any  main  program  using  this  subroutine. 


DIMENSION  C(17)  ,D(17)  ,S  (17) 


B.   OTHER  SUBSOUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.  Subroutines  from  this  package 
None 

2.  Library  functions 
None 

3.  Card  Diagram  of  main  program  and  subroutines. 


/  / 

/    CARDS  INDICATING  END  OF  DECK    / 

/ / 

/  /I 

/  INPUT  DATA  /  | 

/ /   I 

/  /I   I   / 


/     COMPUTER  CONTROL  CARDS 


/I   I  / 

/       I   I/ 

/  /I   I   / 

/  SUBROUTINE  SRX10       /  |  \    / 

/ /   I   I/ 

/  /I   I   / 

/  MAIN  PROGRAM  /  |   |  / 

/ /   I   I/ 

/  /I   I   / 

/       COMPUTER  CONTROL  CARDS       /  |   |  / 

/ /   I   I  / 

I   / 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV.  B.  See  example,  section  V.C. 
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Variable 
Card  Columns   Name    Definition 


1 

2-53 
54-80 

1 


3-80 

1-8 

9-16 

• 

73-80 

1-8 
9-16 

9 

49-56 
57-84) 


NXT 


NWRIT 


Blank 

Label  used  to  identify  the  output 

Blank 


The  code  indicating  if  there  is  another 
set  of  data  following  this  one.   A  zero 
punched  in  column  1  indicates  this  is  the 
last  set  of  data.   Any  other  digit  punched 
in  column  1  indicates  another  set  of  data 
follows  this  one. 

The  write  indicator.   If  a  zero  is  punched 
in  column  2,    the  results  of  the  subroutine 
SRX10  will  not  be  written  out.   If  any 
other  value  is  punched  in  column  2  the 
results  of  the  subroutine  SRX10  will  be 
written  out. 

Blank 


The  population  0-4  for  the  earlier  date. 
The  value  should  end  in  column  8. 

The  population  5-9  for  the  earlier  date. 
The  value  should  end  in  column  16. 


The  population  45-49  for  the  earlier  date. 
The  value  should  end  in  column  80. 


The  population  50-54  for  the  earlier  date. 
The  value  ends  in  column  8. 

The  population  55-59  for  the  earlier  date. 
The  value  ends  in  column  16. 


The  population  80+  for  the  earlier  date. 
The  value  ends  in  column  56. 

Blank 


The  variable  C  always  requires  two  cards.   The  first  card  (card  no.  3) 
must  always  contain  data  whereas  the  second  card  (card  no.  4)  can  be 
all  zeroes  depending  on  the  number  of  age  groups  given.   The  last  age 
group  given  must  always  be  the  open-ended  age  group. 


1-8 
9-16 

73-80 

1-8 
9-16 


I 

I  The  population  0-4  for  the  later  date.   The 

lvalue  ends  in  column  8. 

I 

|The  population  5-9  for  the  later  date.   The 

lvalue  ends  in  column  16. 


|The  population  45-49  for  the  later  date, 
lvalue  ends  in  column  80. 


| The  population  50-54  for  the  later  date. 

I  The  value  ends  in  column  6. 

I 

I  The  population  55-59  for  the  later  date. 

I  The  value  ends  in  column  16. 


The 
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49-56 


57-80 


| The  population  80+  for  the  later  date. 

lvalue  ends  in  column  56. 

I 

| Blank 


The 


The  variable  D  always  raguires  two  cards.   The  first  card  (card  no.  5) 
must  always  contain  data,  whereas  the  second  card  (card  no.  6)  can  be 
all  zeroes  depending  on  the  number  of  age  groups  given.   The  last 
age  group  given  must  always  be  the  open-ended  age  group. 

IV.  SUBROUTINE 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  SRX1 0 (C, D, NWRIT, S) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


How  Obtained   Definition 


NWRIT 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 


The  population  distributio 
age  groups  for  the  earlier 
mum  of  17  and  a  minimum  of 
can  be  given.  If  this  pop 
tribution  has  less  than  tw 
given,  the  subroutine  will 
message  1241  and  return  to 
program.  If  the  populatio 
has  an  intermediate  value 
the  subroutine  will  write 
sage  no.  1242  and  return  t 
program. 


n  in  5-year 
date.   A  maxi- 
2  age  groups 
ulation  dis- 
o  age  groups 
write  out  error 
the  calling 
n  distribution 
of  less  than  one, 
out  error  mes- 
o  the  calling 


The  population  distribution 
age  groups  for  the  later  da 
mum  of  17  and  a  minimum  of 
can  be  given.   If  this  popu 
distribution  has  less  than 
groups  given,  the  subroutin 
out  error  message  1241  and 
calling  program.   If  the  po 
distribution  has  an  interme 
of  less  than  one,  the  subro 
write  out  error  message  no. 
return  to  the  calling  progr 


in  5-year 
te.   A  maxi- 
4  age  groups 
lation 
four  age 
e  will  write 
return  to  the 
pulation 
diate  value 
utine  will 

1242  and 
am. 


The   write   indicator.      If   NWRIT-0,    the 
subroutine   will   not    write  out   the 
results   of   its   calculations.      If   NWRIT 
is   any   other   value,    the   subroutine   will 
write   out   the   results  of   its   calculations. 

The  10-year  survival  rates  for  open-ended 

age    groups   as  calculated   by   the   subroutine. 


C.       ERROR    MESSAGES 

1241  ***  SSX10  ERROR  NO.  1241  —  INPUT  ERROR  IN  EITHER  C  OR  D 
***  INSUFFICIENT  NUMBER  OF  FIVE-YEAR  AGE  GROUPS  GIVEN,  THE 

FIRST  SET  MUST  HAVE  AT  LEAST  TWO  ELEMENTS  AND  THE  SECOND 
***  SET  MUST  HAVE  AT  LEAST  FOUR  ELEMENTS. 

1242  ***  SRX10  ERROR  NO.  1242  --  INPUT  ERROR  IN  EITHER  C  OR  D 
***  AN  INTERMEDIATE  VALUE  OF  ONE  OF  THE  POPULATION  ARRAYS  IS 

LESS  THAN  ONE. 
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V.   PROGRAM   AND   RESULTS 

A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 

MAIN  PROGRAM  FOR  SRX10 

■ THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  FOUR  READ 

STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  BEAD 

STATEMENTS  AS  FOLLOWS. 

THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  WOULD  USUALLY  CONTAIN 

THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 

2-53  OF  THIS  CARD. 

THE    SECOND    READ    STATEMENT    USES    ONE    DATA    CARD. 

THE    PURPOSE    OF    THE    SECOND    READ    STATEMENT    IS    TO    READ     (1)THE 

INDICATOR(NXT)     USED    TO    SIGNAL    IF    THERE    IS    ANOTHER    DATA    SET 

FOLLOWING    THIS    ONE    AND     (2) THE    WRITE    INDICATOR  (NWRIT)     WHICH 

DETERMINES    WHETHER    THE    RESULTS    OF    THE    SUBROUTINE    SRX10    SHOULD       BE 

WRITTEN    OUT. 

NXT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  1 

INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER  NUMBER 

PUNCHED  IN  COLUMN  1  INDICATES  THERE  IS  ANOTHER  SET  OF  DATA 

FOLLOWING  THIS  ONE. 

NWRIT   IS  IN  COLUMN  2  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  2 

INDICATES  THAT  THE  RESULTS  OF  THE  SUBROUTINE  SRX10  ARE  NOT 

TO  BE  PRINTED  OUT.   FOR  ANY  OTHER  DIGIT  PUNCHED  IN  COLUMN  2 

THE  RESULTS  OF  THE  SUBROUTINE  SRX10  WILL  BE  PRINTED  OUT. 

THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS. 

THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  RiiAD  IN  THE  FIVE 

YEAR  POPULATION  AGE  GROUPS(C)  TO  BE  USED  TO  DETERMINE  THE 

POPULATION  AGE  X  AND  OVER. 

C   VALUES  ARE  CONTAINED  ON  TWO  CARDS.   FOR  EACH  C  VALUE 

EIGHT  COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT 

COLUMNS  OF  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  C  VALUES 

CAN  APPEAR  ON  THE  FIRST  CARD  SO  THAT  THE  VALUES  END  IN 

COLUMNS  8,16,21+,.  ..  ,72,  AND  80.   THE  SECOND  CARD  CONTAINS 

SEVEN  C  VALUES  AND  THE  VALUES  SHOULD  BE  ENTERED  THE 

SAME  AS  ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALUE  ON  THE 

SECOND  CARD  WILL  END  IN  COLUMN  56.   IF  LESS  THAN  SEVENTEEN 

VALUES  ARE  TO  BE  GIVEN,  TWO  CARDS  MUST  STILL  BE  USED  WITH 

DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECESSARY  FOR  THE 

NUMBER  OF  C  VALUES  GIVEN. 

THE  FOURTH  READ  USES  TWO  LATA  CARDS. 

THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  FIVE 

YEAR  POPULATION  AGE  GROUPS  (D)  TO  BE  USED  TO  DETERMINE  THE 

POPULATION  AGE  X  ♦  10  AND  OVER.   THE  POPULATION  FOR  THE  FIRST 

FIVE  YEAF  AGE  GROUP  FOR  D  MUST  BE  FOR  THE  SAME  AGE  GROUP  AS 

THE  FIRST  POPULATION  GIVEN  FOR  C. 

D   VALUES  ARE  CONTAINED  ON  TWO  CARDS  AND  HAVE  THE  SAME 

REQUIREMENTS  AS  C  VALUES. 

DIMENSION  C  (17)  ,D(17)  ,S(17) 
NREAD  =  1 
NPRNT  =  15 

10  READ(NREAD,  11) 

11  F0RMAT(1X,52H  ) 
READ  (NREAD, 22) NXT, NWRIT 

22  FORMAT  (211) 

READ(NREAD,33)  (C  (I)  ,.1=1  ,  1  7) 
33  FORMAT(10F8.0) 

READ(NREAD,33)  (D (I) , 1=1 , 17) 

WRITE  (NPRNT, l+«) 
<*4  FORMAT  (1H1) 

WRITE(NPRNT,11) 

CALL    SRX10  (C,D,  NWRIT,  S) 

IF     (NXT)     10,20,10 
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20  CONTINUE 
STOP 
END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  SRX 10 (C, D, NWRIT, S) 

c — 

c . 

C PROGRAM  NO.  1240 

c__ 

C THE  INPUT  ARGUMENTS  TO  THIS  SUROUTINE  ARE  C,  D,  AND  NWRIT 

C- THE  OUTPUT  ARGUMENTS  ARE  S 

C C   IS  THE  POPULATION  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE  EARLIER 

C PERIOD. 

C D   IS  THE  POPULATION  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE  PERIOD  TEN 

c_. YEARS  LATER. 

C— ~ NWRIT   INDICATES  WHETHER  THE  SUBROUTINE  SHOULD  PRINT  OUT  THE 

C RESULTS  OF  IT'S  CALCULATIONS. 

c — . s   IS  THE  SURVIVORSHIP  VALUES  CALCULATED  BY  THIS  SUBROUTINE  FOR 

C AGE  X  AND  OVER  SURVIVING  TO  AGE  X  +  10  AND  OVER. 

C 

C —  THIS  PROGRAM  COMPUTES  TEN-YEAR  SURVIVAL  RATIOS,  USING  ARRAYS  A 

C— AND  B.    A  CONTAINS  THE  EARLIER  FIVE  YEAR  AGE  DISTRIBUTION-AND 

c__~ —  B  THE  LATER.    A  AND  B,  ARE  USED  FOR  CALCULATIONS  IN  THIS 

C  —  —  SUBROUTINE  SO  THAT  C  AND  D  WILL  NOT  BE  CHANGED  BY  THE  SUBROUTINE 

C AND  THE  USERS  INPUT  INFORMATION  WILL  NOT  BE  CHANGED. 

c___ 

c____ , -...—.. — . 


DIMENSION  C(17),  D(17),  S(17),  A(17),  B(17) 

NPRNT  =  15 
NT  =  0 
MT  =  0 
TA  =  0.0 
TB  =  0.0 
a  =   0 
N  =  0 
C 

c — ,_ 

C — ---  CHECK  FOR  INPUT  ERRORS 

q _ . 

C 

DO  40  I  =  1,17 

IF(    C(I)     -    .9    )     107,107,10 
10    M   =    M    +    1 
20    A  (I)    =   C  (I) 

TA   =    TA   +    A  CI) 

IF(  D(I)  -  .9  )  106,106,30 
30  N  =  N  +  1 
35  B(I)  =  D(I) 

TB  =  TB  ♦  E(I) 
40  CONTINUE 

IF  (NT)  42,43,42 

42  CONTINUE 

IF  (N-(NT-1))  95,43,95 

43  CONTINUE 

IF(  N  -  4   )  100,44,44 

44  CONTINUE 

IF  (MT)  45,46,45 

45  CONTINUE 

IF  (M-(MT-1))  95,46,95 
C 
c „ . „ „ . 

C ADJUST  AGE  DISTRIBUTIONS  TO  CORRESPONDING  SIZES 

c 

C 

46  CONTINUE 

IF(  M  +  2  -  N  )  70,110,50 
50  MB  =  M 

6   =  N  -  2 

IF(  H  -  2  )  100,55,55 
55  L  =  M  ♦  1 

DO  60  I  =  L,MM 
60  A(H)  =  A(M)  ♦  A  (I) 
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GO    TO    110 
70    CONTINUE 

IF(    M    -    2    )     100,80,80 
80   L    =    a    +    3 

DO    90    I    =    L,N 
90    B(M*2)     =    B  (M+2)     +    B(I) 
GO    TO    110 
C 
c 

C ERROR  STATEMENTS 

c 

C 

95  WRITE  (NPRNT, 77) 

77    F0RMAT(/,1X,56H***    SRX10    ERROR    NO.    1242    --    INPUT    ERROR    IN    EITHER    C 

*  OR    D,/, 1X,88H***    AN    INTERMEDIATE    VALUE   OF    ONE   OF    THE    POPULATION    A 
*RRAYS    IS    LESS    THAN    OR    EQUAL   TO    ZERO.) 

GO  TO  104 
100  WRITE  (NPRNT,  88) 
88  FORMAT (/1X,49H***  SRX10  ERROR  NO.  1241  —  INPUT  ERROR  IN  C  OR  D,/ 
*1X, 116H***  INSUFFICIENT  NUMBER  OF  FIVE-YEAR  AGE  GROUPS  GIVEN.   THE 

*  FIRST  SET  MUST  HAVE  AT  LEAST  TWO  ELEMENTS  AND  THE  SECOND  /,1X, 
*42H***  SET  MUST  HAVE  AT  LEAST  FOUR  ELEMENTS.  ) 

104  WKITE (NPRNT, 99)  NWRIT 

99  FORMAT(/,5X,21HSRX10  INPUT  ARGUMENTS,/, 5X,8HNWRIT  =  ,11) 
WRITE(NPRNT,111)   (C  (I)  ,1=  1,  17) 

111  FORMAT  (/,5X,4HC  =  ,  10 (F8.  0, 3X)  ,/, 9X, 7 (F8. 0, 3X) ) 
WRITE  (NPRNT,  122)  (D  (I)  ,  1=1 ,  17) 

122  FORMAT(/,5X,4HD  =  , 1 0  (F8 . 0  ,3X) ,/,9 X,7  (F8. 0 ,3X) ) 
DO  105  1=1,17 

105  S  (I)=0.0 
GO  TO  1000 

106  CONTINUE 

IF    (NT)     108,108,35 

107  CONTINUE 

IF    (MT)     109,109,20 

108  NT   =    I 
GO   TO    35 

109  MT   =    I 
GO    TO    20 

C 

c 

C SUBTRACT    POPULATION    BORN    LURING    SURVIVAL    PERIOD 

c 

C 

110  TB   =    TB   -    B  (1)    -    B(2) 
C 

c 

c CALCULATE  SURVIVAL  RATIOS 

c 

C 

IF(  NWRIT  -  1  )  114,114,112 

112  NWRIT  =  1 

114  DO  160  I  =  1,M 

S (I)  =  TB  /  TA 

IF(  S  (I)  -  0.0  )  120,120,140 
120  CONTINUE 

IF(  NWRIT  -  2  )  130,150,150 
130  NWRIT  =  NWRIT  +  2 
140  CONTINUE 

IF(  S(I)  -  1.0  )  150,150,120 

150  TA  =  TA  -  A  (I) 

160  TB  =  TB  -  B  (  I  ♦  2  ) 

C 

c 

C PRINT    RESULTS   IF    NWRIT    IS    NOT    EQUAL    TO    ZERO 

c . 

c 

IF(    NWRIT    -    1    )     1000,170,180 
170    WRITE  (NPRNT, 222) 
222    FORMAT  (/, 1 1X,48HSURVIVORSHIP   AGE    X    AND   DVER    TO    AGE   X*10    AND   OVER, 

*//,4X,4HAGES,3X,14H1ST    POPULATION, 5X, 4 HAGES, 3X, 14 H2ND    POPULATION, 

*3X,4HAGES,3X,14HSURVIVAL    RATIO,/) 
GO   TO    190 
180    WRITE  (NPRNT, 333) 
333    FORMAT (/26X,24HTEN-YEAR    SURVIVAL    RATIOS,//, 1X , 120H****    WARNING:    TH 

*E   FOLLOWING    SURVIVAL    RATIOS   CONTAIN    VALUES    LESS    THAN    ZERO    AND/OR    G 

*REATER   THAN    ONE,    INDICATING   POPULATION,/, 1X,32HDISTRIBUTION   ERROR 


524   DOCUMENTATION 


*OR  MIGRATION. ,//,4X, 4HAGES, 3X, 14H1ST  POPULATION, 5X, 4HAGES, 3X, 1 4 
*H2ND  POPULATION, 3X, 4HAGES, 3X, 1 4HSURVIVAL  RATIO,/) 
190  L  =  M  -  1 

DO  200  I  =  1,L 

J  =  5  *  (  I  -  1  ) 

JJ  =  J  +  10 

K  =  J  +  4 

KK    =    K    +    10 
200    WRITE  (NPRNT, 444)     J,  K,  A  (I)  ,  JJ,  KK,  B  (1+2)  ,  J,  S  (I) 
444    F0RMAT(1X,2  (I3,2H    -,I  3,  1X, F 14.  0, 3X) , 13, 2H    +,2X,F11.5) 

J    =    J    +    5 

JJ    =    J    +    10 

WRITE  (NPRNT,  555)  J,A(H)  ,JJ,B(M+2)  ,J,S(M) 
555  FORMAT  (1X,2  (I3,2H  +  ,  4X , F 14. 0, 3X)  , 13, 2H  +,2X,F11.5) 
1000  RETURN 

END 
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SURVI 


I.  DESCRIPTION      OF      PROGRAM 

A.  PURPOSE 

To   calculate   survival   rates   by    5-year   age   groups   from   two   populations 
enumerated   or   estimated   5,    10,    or    15   years   apart. 

B.  DATA    NEEDED 

1.   An  indicator  denoting  the  time  period  between  the  two  population 
distributions  -  they  must  be  5,  10,  or  15  years  apart. 

2.  The  population  distribution  in  5-year  age  groups  for  the  earlier  year. 

3.  The   population   distribution   in   5-year  age   groups   for   the   later    year. 

II.  METHODOLOGY 

A.       MATHEMATICAL   DERIVATION 

The  survival  rate  for  each   5-year  age   group  for   a  period  of  i    years    is 

pt+i 
st,t+i  _     5rt 
5  x  t 

5  x 

where 

,P     is  the   population  of  age  x  to  x  +  5  at  year   t 
i   is   either   5,    10,    or   15   years. 
For   the   open-ended   age   group,    the   survival   rate   is  calculated   as 

pt+i 
st,t+i  _       x+i+ 
x+  pt 

x+ 


where 

x+  is  the  open-ended  age  group  age  x  and  over. 

All  other  symbols  represent  the  same  concept  as  above. 

B.   COMMENTS 

The   survival   rates   for    this   subroutine   are   calculated   from   population 
distributions   in  two   different   censuses,    the   survival   rates   calculated    pertain 
to  the  time   interval  between  the   two  censuses. 

III.    MAIN      PROGRAM 

A.       REQUIREMENTS 

The  main   program  is  required  to    use  this   subroutine  and  obtain  the  data 
(input)    necessary  for   the   subroutine   to   perform  its  calculations.      A  main 
program  can  use   a   subroutine   alone   or   in   conjunction   with   other   subroutines. 
For   a   detailed   explanation   of   writing  main   programs   using  more  than  one    sub- 
routine  see   the   Appendix. 
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1.   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 


CALL  SURVI(C,D,KT,NWRIT,S) 


For  the  purpose  of  emphasizing  the  input  arguments,  they  are  under- 
lined in  the  above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to 
a  group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then 
the  variable  name  must  be  dimensioned  in  the  main  program  as  the  same  size  or 
qreater  than  the  variable  name  is  dimensioned  in  any  subroutine  called  by  the 
main  program. 

For  this  subroutine  the  variables  C  and  D  in  the  argument  string  are 
arrays.   The  following  dimension  statement  must  be  included  in  any  main 
program  using  this  subroutine: 

DIMENSION  C(17)  ,D(17) 

B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be 
included  in  order  to  run  this  subroutine.   These  can  be  either  other 
subroutines  presented  in  this  publication  or  functions  included  in  the  FORTRAN 
library. 

1.  Subroutines  and  functions  from  this  package 
None 

2.  Library  functions 
None 

3.  Card  diagram  of  main  program,  subroutines,  and  functions. 


/  / 

/      CARDS    INDICATING  END    OF    DECK   / 

/                                INPUT    DATA  /    | 

/___ /       I 

/  /I        I       / 


/  COMPUTER    CONTROL    CARDS 

t 

SUBROUTINE    SURVI 


/. 


/ 
/ 
/ 


MAIN    PROGRAM 

/  I        I/ 

/  /I  I       / 

COMPUTER  CONTROL  CARDS       /    \  |  / 

./I  I/ 

I  / 


/I        I    / 

/  I        I  / 

/I  I       / 

/I  I    / 
__/       I        I/ 

/I        I  / 

/I        1  / 


C.        FORMAT    REQUIREMENTS    FOR    CARD  INPUT    DATA    FOR    THE    MAIN    PROGRAM    GIVEN    IN 
SECTION    V.A. 

The  card   format  requirements  for   the  main   program  included    with   this 

publication   are   as   given  below.  The  data  should   be    punched  in  the  columns 
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specified.      For   a   more   detailed   description   of   the  input   data,    see   the 
description   of   arquments  in   section   IV.  B.    See  example,   section  V.C. 

Variable 
Card   Columns        Name        Definition 
I 


1       I         1 
I 
I       2-53 

I 

I    54-80 


|       1-80 


(3       5       1-8 


I       9-16 


7  2-80 


1-8 


9-16 


49-56 


57-80 


NXT 


NWRIT 


KT 


Blank 

Label   used   to   identify   the   output 

Blank 


The  code  indicating  if  there  is  another 
data  set  following  this  one.   A  zero 
punched  in  column  1  indicates  this  is  the 
last  set  of  data.   Any  other  digit  punched 
in  column  1  indicates  that  another  set  of 
data  follows  this  one. 

The  write  indicator.   If  a  zero  punched  in 
column  2  means  the  results  of  the  subroutine 
SURVI  will  not  be  written  out.   Any  other 
number  punched  in  column  2  will  cause  the 
subroutine  SURVI  to  write  out  the  results  of 
its  calculations. 

Indicates  the  time  interval  between  the 

two  population  distributions.   A  one 

punched   in  column   3   indicates    5-year   survival 

rates  are  to  be  calculated.   A  two  punched 

in  column  3  indicates  10-year  survival  rates 

are  to  be  calculated.   A  three  punched  in 

column   3   indicates    15-year    survival 

rates  will  be  calculated.   Any  other  number 

punched  in  column  3  is  considered  a  mistake 

and  10-year  survival  rates  will  be 

calculated. 

Blank 


The  population  0-4  for  the  earlier  year. 
The  number  should  end  in  column  8. 

The  population  5-9  for  the  earlier  year. 
The  number  should  end  in  column  16. 


The  population  45-49  for  the  earlier  year, 
The  number  should  end  in  column  80. 


The  population  50-54  for  the  earlier  year, 
The  number  should  end  in  column  8. 

The  population  55-59  for  the  earlier  year, 
The  number  should  end  in  column  16. 


The  open-ended  population  80+  for  the 
earlier  year.   The  number  should  end  in 
column  56. 

Blank 


The  variable  C  always  requires  two  cards.   The  first  card 
(card  no.  3)  must  always  contain  data,  whereas  the  second 
card  (card  no.  4)  can  be  all  zeroes  depending  on  the  number 
of  age  groups  given.   The  last  age  group  must  always  be  the 
open-ended  age  group. 

I  I 

1-8   |D  |The  population  0-4  for  the  later  year. 

!  | The  number  should  end  in  column  8. 

I  I 
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9-16 


72-80 


1-8 


9-16 


49-56 


57-80 


|The   population   5-9   for   the   later    year, 
I  The   number   should   end   in  column   16. 


I  The   population   45-49    for  the    later   year. 
! The  number   should    end   in  column   80. 


|The   population   50-54    for   the  later  year. 
|The  number   should   end   in   column  8. 

I 

I  The  population  55-59  for  the  later  year.   The 

I number  should  end  in  column  16. 


|The  open-ended  population  80+  for  the  later 
| year.   The  number  should  end  in  column  56. 

I 

I  Blank 


The   variable   D  always   requires   two   cards.       The  first   card 
(card   no.    5)    must   always   contain   data,    whereas  the  second 
card    (card   no.    6)    can  be   all  zeroes   depending   on   the  number 
of  age  groups  given.      The   last   age   group  must    always   be   the 
open-ended   age   group. 

IV. SUBROUTINE 

A.  SUBROUTINE    STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  SURVI (C,D, KT, NHRIT, S) 

B.  DESCRIPTION  OF  ARGUMENTS 
Name    How  Obtained   Definition 


KT 


NHRIT 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


The  population  distribution  in  5-year 
age  groups  for  the  first  or 
earlier  time  period.   There  can  be  a 
maximum  of  17  5-year  age  groups 
and  a  minimum  of  two  5-year  age 
groups.   If  less  than  two  5-year 
age  groups  are  given,  the  subroutine 
will  write  out  error  number  1271  and 
return  to  the  calling  program. 

The  population  distribution  in  5-year 
age  groups  for  the  second  or 
later  time  period.   There  can  be  a 
maximum  of  17  5-year  age  groups  and  a 
minimum  cf  four  5-year  age  groups. 
If  less  than  four  5-year  age  groups 
are  given,  the  subroutine  will  write 
out  error  number  1271  and  return  to 
the  calling  program. 

The  code  for  the  time  interval  between 
the  two  censuses  or  surveys.   It  must  be 
1  for  5  years,  2  for  10  years,  or  3  for 
15  years.   If  KT  has  any  value  other  than 
1,  2,    or  3,  the  subroutine  will  assume  a 
difference  of  10  years  and  compute  the 
survival  rates  for  10  years  apart. 

The  write  indicator  which  determines 
whether  the  subroutine  will  write  out 
the  results  of  its  calculations.   If 
NHRIT  is  zero,  the  subroutine  will 
not  write  out  the  results  of  its  cal- 
culations.  For  any  other  value,  the 
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| subroutine  will  write  out  the  results 
|o£  its  calculations. 
I 
Transferred  Out|The  calculated  5?  10- or  15~year 
Isurvival  rates  for  5-year 
|age  groups. 

C.   ERROR  MESSAGES 

1271  ***  SURVI  ERROR  NO.  1271  --  INPUT  ERROR  IN  C  OR  D 

***  INSUFFICIENT  NUMBER  OF  FIVE-YEAR  AGE  GROUPS  GIVEN 
FOR  TIME  INTERVAL  CODE.   THE  FIRST  POPULATION  MUST 
HAVE  AT  LEAST 
***  2  AGE  GROUPS  ANJ)  THE  SECOND  MUST  HAVE  AT  LEAST  H    AGE  GROUPS. 

V.   PROGRAM   AND   RESULTS 

A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 


MAIN  PROGRAM  FOR  SURVI 


THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  IS  READ  IN  FOUR  READ 
STATEMENTS.   THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 
STATEMENTS  AS  FOLLOWS. 

THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 
BE  USED  TO  IDENTIFY  THE  OUTPUT.   THE  LABEL  MOULD  USUALLY  CONTAIN 
THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 
GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 
ANALYSIS  THAT  IS  BEING  DONE.   THIS  LABEL  IS  LOCATED  IN  COLUMNS 
2-53  OF  THIS  CARD. 

THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 
THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  (1)THE 
INDICATOR (NXT)  USED  TO  SIGNAL  IF  THERE  IS  ANOTHER  DATA  SET 
FOLLOWING  THIS  ONE,  (2) THE  WRITE  INDICATOR  (NWRIT)  WHICH 
DETERMINES  WHETHER  THE  RESULTS  OF  THE  SUBROUTINE  SURVI  SHOULD   BE 
WRITTEN  OUT,  AND  (3) THE  SURVIVORSHIP  INDICATOR (KT)  WHICH  IS  USED 
TO  DENOTE  WHETHER  FIVE,  TEN,  OR  FIFTEEN  YEAR  SURVIVORSHIP  RATIOS 
ARE  TO  BE  CALCULATED. 

NXT   IS  IN  COLUMN  1  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  1 
INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER  NUMBER 
PUNCHED  IN  COLUMN  1  INDICATES  THERE  IS  ANOTHER  SET  OF  DATA 
FOLLOWING  THIS  ONE. 
NWRIT   IS  IN  COLUMN  2  OF  THIS  CARD.   A  ZERO  PUNCHED  IN  COLUMN  2 
INDICATES  THAT  THE  RESULTS  OF  THE  SUBROUTINE  SURVI  ARE  NOT 
TO  BE  PRINTED  OUT.   IF  ANY  OTHER  DIGIT  IS  PUNCHED  IN  COLUMN 
2  THE  RESULTS  OF  THE  SUBROUTINE  SURVI  WILL  BE  PRINTED  OUT. 
KT   IS  IN  COLUMN  3  OF  THIS  CARD.   A  ONE  PUNCHED  IN  COLUMN  3 
INDICATES  THAT  FIVE  YEAR  SURVIVORSHIP  RATIOS  ARE  TO  BE 
CALCULATED,  A  TWO  PUNCHED  IN  COLUMN  3  INDICATES  THAT  TEN 
YEAR  SURVIVAL  RATES  ARE  TO  BE  CALCULATED,  A  THREE  PUNCHED 
IN  COLUMN  3  INDICATES  THAT  FIFTEEN  YEAR  SURVIVORSHIP  RATIOS 
ARE  TO  BE  CALCULATED.   ANY  OTHER  DIGIT  PUNCHED  IN  COLUMN  3 
WILL  BE  TAKEN  TO  EE  A  MISTAKE  AND  TEN  YEAR  SURVIVAL  RATES 
WILL  BE  CALCULATED. 

THE  PURPOSE  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  FIVE 

YEAR  POPULATION  AGE  GROUPS  (C)  CORRESPONDING  TO  THE  EARLIER 

TIME  PERIOD. 

C      VALUES  ARE  CONTAINED  ON  TWO  CARDS.   FOR  EACH  C  VALUE 

EIGHT  COLUMNS  ARE  ALLOWED  STARTING  WITH  THE  FIRST  EIGHT 
COLUMNS  OF  THE  FIRST  CARD.   A  MAXIMUM  OF  TEN  C  VALUES 
CAN  APPEAR  ON  THE  FIRST  CARD  SO  THAT  THE  VALUES  END  IN 
COLUMNS  8,  16,  24,. ..,72,  AND  80.   THE  SECOND  CARD  CONTAINS 
SEVEN  C  VALUES  AND  THE  VALUES  SHOULD  BE  ENTERED  THE 
SAME  AS  ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALUE  ON  THE 
SECOND  CARD  WILL  END  IN  COLUMN  56.   IF  LESS  THAN  SEVENTEEN 
VALUES  ARE  TO  BE  GIVEN,  BOTH  CARDS  MUST  STILL  BE  USED  WITH 
DATA  ONLY  IN  THE  NUMBER  OF  COLUMNS  NECESSARY  FOR  THE 
NUMBER  OF  C  VALUES  GIVEN. 
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C—  —  THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  FIVE 

C- YEAH  POPULATION  AGE  GROUPS  (D)  CORRESPONDING  TO  THE  LATER  TIME 

C— —  PERIOD. 

c D      VALUES  ARE  CONTAINED  ON  TWO  CARDS  AND  HAVE  THE  SAME 

c_____        REQUIREMENTS  AS  C  VALUES. 

c_- . . ___ 

c___ — _„ _ ,_________„ — __ ____ __ 

DIMENSION  C(17)  ,D(17)  ,SS  (16) 
NPRNT  =  15 
NREAD  =  1 

10  READ(NREAD,11) 

11  F0RMAT(1X,52H 
READ(NREAD,22) NXT,NWRIT,KT 

22  FORMAT  (311) 

R£AD(NREAD,33)  (C  (I)  ,  1=1  ,  1  7) 
33  FORMAT(10F8.0) 

READ(NREAD,33)  (D  (I)  ,  1=1 ,  17) 

WRITE (NPRNT, 44) 
44  FORMAT  (1H1) 

WRITE (NPRNT,11) 

CALL  SURVI (C,D,KT, NWRIT, SS) 

IF  (NXT)  10,20,10 
20  CONTINUE 

STOP 

END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 
SUBROUTINE  SURVI (C,D, KT, NWRIT, S) 

£_________. _______ __„,______. 

C__. _ _ ___. 

C— PROGRAM  NO.  1270 

--- ________ — . _ ____„___. 


C— C,  D,  KT,  AND  NHRIT  ARE  ALL  INPUT  ARGUMENTS. 

C_. s  Is  AN  OUTPUT  ARGUMENT. 

c__ c   IS  THE  POPULATION  DISTRIBUTION  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE 

c EARLIER  TIME  PERIOD. 

c_. D   IS  THE  POPULATION  DISTRIBUTION  IN  FIVE  YEAR  AGE  GROUPS  FOR  THE 

c„„,__        LATER  TIME  PERIOD. 

c_„___  Kr   INDICATES  WHETHER  FIVE,  TEN  OR  FIFTEEN  YEAR  SURVIVORSHIP 

--. RATIOS  ARE  TO  BE  CALCULATED. 

C- NWRIT   IS  THE  WRITE  INDICATOR  WHICH  DETERMINES  WHETHER  THE 

C- RESULTS  OF  THIS  SUBROUTINE  ARE  TO  BE  PRINTED  OUT. 

C- S   IS  THE  SURVIVORSHIP  RATIOS  FOR  FIVE  YEAR  AGE  GROUPS. 


C-- 


DIMENSION  C  (17)  ,  D(17),  S(16),  A(17),  B(17) 

M  =  0 

N  =  0 

NPRNT  =  15 

MT  =  0 

NT  =  0 


C- ARRAYS  A  AND  B  ARE  USED  FOR  CALCULATING  PURPOSES  SO  THAT  THE 

c INPUT  ARRAYS  WILL  NOT  BE  ALTERED. 


C 

c___ 

C CHECK  INPUT  FOR  ERRORS 


DO    40    I    =    1,17 

IF(    C(I)-.0001    )     147,147,10 
10    M    =    M    +    1 
20    A(I)     =    C(I) 

IF(    D(I)-.0001    )     146,146,30 
30    N    =    N    +    1 
35    B(I)     =    D(I) 
40    CONTINUE 

IF(    NWRIT    )     50,60,50 
50    NWRIT    =    1 
60    CONTINUE 
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IF    (NT)     62,63,62 

62  CONTINUE 

IF     (N-(NT-1)  )300,63,300 

63  CONTINUE 

IF    (MT)     64,65,61 

64  CONTINUE 

IF     (M-(MT-1))     300,65,300 

65  CONTINUE 

IF(    KT-1    )     80,110,70 
70    CONTINUE 

IF(    KT-3    )     110,110,80 
80   CONTINUE 

IF(    NWSIT-1    )     90,100,90 
90    NWRIT    =    1 
100    WRITE (NPRNT, 222)     KT 

222    FORMAT (/1X,90H****    WARNING:    THE    CODE    GIVEN    FOR    THE    TIME    DIFFERENCE 
*    BETWEEN    THE    TWO    GIVEN    POPULATIONS    IS    , 11 , /, 1 X, 89H***    BUT    MUST    BE 
*1,    2,    OR    3   CORRESPONDING    TO    A    5,     10,    OR    15    YEAR    DIFFERENCE,    RESPEC 
*TIVELY. ,/,lX,46H***    A    TIME    DIFFERENCE    OF    TEN    YEARS    IS    ASSUMED.,//) 
KT   =    2 
110   CONTINUE 

IF(    N-KT-2    )     120,150, 150 
120    CONTINUE 

IF(    NWRIT-1    )     130,140,130 
130    NWRIT   =    1 
140    K   =    KT    +    2 

WRITE  (NPRNT, 333) KT,K 
333    FORMAT (/,1X,49H***    SURVI    ERROR    NO.     1271    —    INPUT    ERROR    IN    C   OR    D, 
*/, 1X, 79H***    INSUFFICIENT    NUMBER    OF    FIVE-YEAR    AGE    GROUPS    GIVEN.       FO 
*R    TIME    INTERVAL    CODE    ,I1,40H    THE    FIRST    POPULATION    MUST    HAVE    AT    LEA 
*ST,/, 1X,51H***    2    AGE    GROUPS    AND    THE    SECOND    MUST    HAVE    AT    LEAST    , 
*I2,  12H    AGE    GROUPS.) 
GO    TO    305 

146  CONTINUE 

IF  (NT)  148,148,35 

147  CONTINUE 

IF  (MT)  149,149,20 

148  NT  =1 

GO  TO  35 

149  BT  -    I 
GO  TO  20 

C 

c 

C — ---  ADJUST  AGE  DISTRIBUTIONS  TO  CORRESPONDING  SIZES 

c 

C 

150  CONTINUE 

IF(  M+KT-N  )  190,220,160 
160  MM  =  M 

M  =  N  -  KT 

IF(    M-2       )     120,170,170 
170    L    =    M    +    1 

DO    180    I    =    L,MM 
180    A(M)     =    A(M)     +    A(I) 

GO  TO  220 
190  CONTINUE 

IF(  M-2  )  120,200,200 
200  K  =  M  +  KT 

L  =  K  +  1 

DO  210  I  =  L,N 

210  B(K)  =  B  (K)  +  B(I) 

C 

c 

C CALCULATE  SURVIVAL  RATIOS 

c 

C 

220  DO  240  I  =  1,M 
J  =  I  +  KT 
S(I)  =  B(J)  /  A  (I) 
IF(  S(I)  -  1  )  240,240,230 
230  NWRIT  =  3 
240  CONTINUE 
C 
c 

C CHECK  FOR  RATIOS  GREATER  THAN  ONE 

c 

c 
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IF(    NHRIT-    2    )    270,260,260 
260    NRITE(NPSNT,444) 

4I»4    F0RMAT(/, 1X,119H***    NOTE:    THESE    SURVIVAL   RATIOS    CONTAIN    VALUES    GRE 
*ATER    THAN    ONE,    INDICATING    IMMIGRATION    OR   POSSIBLE    DISTRIBUTION    ERR 
♦OR. ,/) 
GO    TO    280 
C 
c . _ 

C PRINT   OUTPUT   RESULTS    IF    REQUESTED    BY    NHRIT    FLAG    OR    IF    ANY    ERROR 

C HAS    FOUND. 

c 

C 

270  CONTINUE 

IF{  NHRIT  )  280,1000,280 
28  0  J  =  5  *  KT 

HRITE(NPRNT,555)  J 
555  FORMAT(/52X,I3,23H  -  YEAR  SURVIVAL  RATIOS, //, 30X ,4HAGES, 3X, 14H1ST 
♦POPULATION, 5X,4HAGES,3X,  1UH2ND  POPULAT ION, 5X, PHAGES ,4X, 1UHSURVIVAL 

*  RATIO,/) 
L  =  M  -  1 

DO  290  I  =  1,L 

J  =  5  *  (  1-1  ) 

JJ  =  J  +  5  *  KT 

K  =  J  +  4 

KK  =  JJ  +  4 

MM  =  I  ♦  KT 
290  HRITE  (NPRNT,666)  J,K,A(I)  ,  JJ,KK,B(M(1)  ,J,K,S(I) 
666  FORMAT(27X,2(I3,2H  -,I3, 1X,F14. 0, 3X) ,13 ,2H  -, 13, 2X, F1 1 . 5) 

J  =  J  +  5 

K  =  J  +  5  *  KT 

MM  =  M  +  KT 

HRITE  (NPRNT,777)  J,A(M)  ,K,B(MM)  ,J,S  (M) 
777  F0RMAT(27X,2(I3,2H  +, 4X, F14. 0, 3X) , 13, 2H  +,5X,F11.5) 

GO  TO  1000 
300  HRITE  (NPRNT, 888) 

888  F0RMAT(/,1X,49H***  SURVI  ERROR  NO.  1272  —  INPUT  ERROR  IN  C  OR  D, 
*Z,1X,101H***  ONE  OF  THE  FIVE  YEAR  AGE  GROUPS  IS  LESS  THAN  ZERO  OR 
*AN  INTERMEDIATE  FIVE  YEAR  AGE  GROUP  IS  ZERO.) 
305  DO  310  I  =1,16 
310  S(I)  =0.0 

HRITE(NPRNT,999)  (C  (I)  ,1=1,  17) 
999  F0RMAT(/,5X,18HSURVI  INPUT  VALUES, /, 5X, 4HC  =  , 10 (F8. 0,3X) ,/,9X, 

*  7 (F8.0,3X)  ) 
HRITE(NPRNT,1111)  (D  (I) ,1=1 ,17) 

1111  F0RMAT(/,5X,4HD  =  , 1 0 (F8 . 0,3X) ,/,9 X,7 (F8. 0 , 3X) ) 
1000  RETURN 
END 
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I.  DESCRIPTION      OF       PROG    E    AM 

A.  PURPOSE 

To  estimate  the  life  expectancy  at  birth,  crude  birth  rate,  and  crude  death 
rate  from  two  population  distributions  by  5-year  aqe  qroups.   The  enumeration 
dates  must  be  5,  10,  or  15  years  apart. 

B.  DATA  NEEDED 

1.  Sex  of  the  population 

2.  The  region  from  the  Coale-Demeny  model  life  tables  to  be  used. 

3.  The  number  of  years  between  the  two  census. 

4.  The  aqe  distribution  of  the  population  in  the  earlier  census  in 
5-year  aqe  qroups. 

5.  The  aqe  distribution  of  the  population  in  the  later  census  in 
5-year  aqe  qroups. 

6.  The  code  which  indicates  whether  the  results  of  the  subroutine  are 
to  be  written  out. 

II.  METHODOLOGY 

A.   MATHEMATICAL  DERIVATION 

The  subroutine  first  makes  four  projections  of  the  earlier  population 
(at  time  t)  to  the  date  of  the  later  census  (at  time  t+i)  by  assuming  life 
expectancies  at  birth  of  20,40,60,  and  80  years  respectively, 

ept+i  _  pt  #  e  t,t+i 
5  x+i   5  x  5  x 

%Z   .  is  the  projected  population  in  aqe  qroup  (x,x+5) 
5  x+i 

at  time  t+i  based  on  survival  rates  from  a  life  table  with 
a  life  expectancy  at  birth  of  e=20,40,60,  or  80; 

5PX  is  the  given  earlier  population  in  aqe  qroup  (x,x+5)  at  time  t;  and 

5SX'     is  the  survival  ratio  from  aqe  qroup  (x,x  +  5)  to  aqe  group  (x+i,x+i+5) 
from  a  life  table  with  life  expectancy  at  birth  of  e. 

For  each  of  these  projected  populations,  the  cumulative  population  age 
x  and  over  is  calculated, 

w 
"P^S   E   IP*""1  f°r*=  i,  i+5,  ••',  w 

Next,  the  cumulative  population  at  aqe  x  and  over  for  the  given  later 
population  at  time  t+i  is  calculated. 


w 

p!!1  =  Z  jt+±  for  x  =  if  i+5, 

x+    Jrf  c  5  x 

J-x,5 
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Then    for    each    cumulative   aqe    x    and    over    a    value   of    e   is    found    such    that 

ept+i  <     pt+i   <    e+20  t+i 
x+    ~      x+     -  x+ 

Finally,    for    each   cumulative    aqe    x    and    over,    the   two   projected    popu- 

e_t+l  e+20T,t+l  t+i 

lations,      ?x+         and  P^         ,    and  the    actual    population,      P  ,    are 

used   to   perform   an   iterativ<=    process   to   estimate   a    life   expectancy    at 
birth    for    the    i   year    period, 

pt+i  _  ept+i 

o3  _  o1        ,o2       o1x           x+  x+ 

e0       e0        Ke0       V     e+20  t+i  _  e  t+i 

x+  x+ 

'       2  3 

where  eQ  and  eQ  are  life  expectancies  of  e  and  e+20  respectively  and  e   is 

the  new  estimated  life  expectancy  at  birth. 

Using  survival  rates  from  a  life  table  with  life  expectancy  at  birth  of 

3  3„t+i 

e0   a  projected  population  P^   is  calculated  and  the  following  comparison 

is  made, 

I   x+     x+  I 


3 
If  C  <  1  ,  e    is  accepted  as  the  estimate  of  life  expectancy  at  birth  con- 

3 

sistent  with  cumulative  aqe  x  and  over.   If  C  >  1,   e  is  substituted  for 

o 

I      2  3       3  t+i 

either   e  or  e   (depending  upon  which  is  further  from  e   )  and  P  , 

o      o  o  x+ 

is  substituted  for  the  corresponding  P     ,  and  the  process  is  repeated 

until  C  <  1  .   The  value  of   e   is  then  accepted  as  the  estimate  of  life 

expectancy  at  birth. 

This  procedure  generates  several  life  expectancies  at  birth  -  one  for  each 
cumulative  population  aged  x  and  over.   The  median  of  the  first  nine  life 
expectancies  at  birth  is  accepted  as  the  estimated  life  expectancy  at  birth 
for  the  i  year  period. 

With  the  estimated  life  expectancy  a  model  life  table  is  generated  and 
the  central  mortality  rates  are  calculated.   Hith  them,  the  average  crude 
death  rate  for  the  i  year  period  is  calculated  as 


E    (CK     '      r'\l;    '      ,'".. 


3t  pt+^ 

5'  /--^      /   -111 

,-'■"       -  ■     x  5x     5  x 

W 


x=0,5  5     ^ 


where 


cinx  is  the  central  mortality  rate  of  the  life  table. 
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The  rate  of  natural  increase  durinq  the  i  year  period  is  calculated  as 


w 

E 


'  .,  <jJL11 


w 

E 

x=0,5 


5  x 


The    crude    birth   rate   is    calculated    as 
bt,t+i  =  dt,t+i  +  rt,t+i 

Reference 

United  Nations  Methods  of  Estimatinq  Basic  Demoqraphic  Measures  from 
Incomplete  Data:   Manual  IV,  Population  Studies,  No.  H2,    New  York.  1967. 

B.   COMMENTS 

This  technique  assumes  that  all  population  chanqe  between  the  two  census 
dates  is  du^  to  births  and  deaths.   As  a  result,  before  usinq  this  subroutine, 
the  aqe  distributions  should  be  ad-justed  to  remove  other  sources  of  population 
chanqe  such  as  miqration  or  boundary  chanqes.   Also  this  subroutine  assumes 
the  applicability  of  the  aqe  pattern  of  mortality  from  the  desiqnated  Coale- 
Demeny  model  life  table  reqion. 

III. MAIN   PROGRAM 

A.   REQUIREMENTS 

The  main  proqram  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
proqram  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writinq  main  proqrams  usinq  more  than  one  sub- 
routine see  the  Appendix. 

1.   CALL  statement 

Once  the  main  proqram  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  proqram  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  proqram.   This  communication  process  is  made  throuqh  the  CALL  statement. 

The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 

CALL  TWOCN  (NSEX , NSEG , KT, PA, PB, NWP.IT, E0 , CBR , CDR) 


For  the  purpose  of  emphasizinq  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  sinqle-valued  or  refer  to  a 
qroup  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  proqram. 

For  this  subroutine,  variable  names  PA  and  PB  in  the  arqument  strinq  are 
arrays.  The  followinq  DIMENSION  statement  must  be  included  in  any  main  pro- 
qram usinq  this  subroutine. 

DIMENSION  PA(17) ,PB(17) 


544   DOCUMENTATION 


B.   OTHER  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine.   These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1.   Subroutines  from  this  packaqe 

a.  MLT 

b.  PLT 

c.  MDRNS 


2.  Library  functions 

a,  ABS (absolute  value) 

b.  ALOG  (natural  loqarithm) 

3.  Card  diagram  of  main  program  and  subroutines. 


/ 


/_ 


CARDS  INDICATING  END  OF  DECK   / 
/ 

INPUT  DATA  /| 
/  I 

COMPUTER  CONTROL  CARDS     /|  | 
/  I  I 


SUBROUTINE  PLT 
""sub  RO  U  TIN  E~H  L  T  ~" 

"subroutine  "twocn" 


/. 


/ 
/_ 
/ 
/ 


/  SUBROUTINE  MDRNS       / 

/ / 

/I 

/    I 

/I     I 

/    III/ 

/III/ 

/    III/ 

MAIN    PROGRAM  /III/ 

/     III/ 

COMPUTER  CONTROL  CARDS    /III/ 

/III/ 
I  I  / 


I  I  / 
I  I/ 
I  / 
I/ 
/ 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  requirements  for  the  main  program  included  with  this 
subroutine  package  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV. B.  See  exanple,  section  V.C. 


Card 
1 


Columns 
1 

2-53 
54-80 

1 

2 
3 


Variable 
Name 


Definition 


I 

IBlank 
I 

I  Label  used  to  identify  the  output. 
I 

IBlank 
I 
I 
NSEX     |The  sex  of  the  population.   A  1  punched 

|in  column  1  indicates  males.   A  2  punched 

|in  column  1  indicates  females. 

I 

IBlank 

I 

NREG     |The  Coale-Demeny  region  to  be  used. 

I A  1  punched  in  column  3  indicates  west 
Ireqion,  a  2  indicates  north  reqion,  a  3 
least  reqion,  and  a  4  indicates  south 
Ireqion. 
I 
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10-80 


1-8 


9-16 


73-80 


1-1 


49-56 


57-80 


KT 


NWRIT 


NXT 


PA 


PA 


Blank 

The  number  of  years  in  the  intercensal 
period.   A  1  punched  in  column  5  indicates 
a  5-year  period,  a  2  indicates  a  10-yaar 
period,  and  a  3  indicates  a  15-year 
period. 

Blank 

The  print  option  which  indicates  whether 
the  results  of  the  subroutine  are  to  be 
printed  out.   If  a  zero  is  punched  in 
column  7,  the  results  will  not  be  printed 
out.   If  any  other  number  is  punched  in 
column  7,  the  results  will  be  printed  out. 

Blank 

The  coda  which  indicates  whether  another 
set  of  data  follows  this  one.   A  zero 
punched  in  column  9  indicates  this  is  the 
last  set  of  data.   Any  other  diqit  punched 
in  column  9  indicates  another  set  of  data 
follows  this  one. 

Blank 


The  population  in  age  qroup  0-4  in  the  earlier 
census. 

The  population  in  aqe  qroup  5-9  in  tha  earlier 
census. 


The  population  in  age  group  45-49  in  the 
earlier  census 


The  population  in  age  group  50-54  in  the 
earlier  census. 


The  population  in  age  group  80  and  over 
in  the  earlier  census. 

Blank 


Cards  3  and  4  read  in  the  PA  values.   For  each  PA  value  eight 
columns  are  allowed.   The  values  must  be  entered  so  that  they 
end  in  columns  8, 16,24,. .. ,80.   If  less  than  11  values  are  given, 
a  second  card  still  must  be  included  even  though  it  will  be  blank. 


1-8 


9-16 


73-80 


1-{ 


49-56 


57-80 


PB 


PB 


|The  population  in  age  group  0-4  in  the 

| later  census. 

I 

|The  population  in  age  group  5-9  in  the 

llater  census. 


|The  population  in  age  group  45-49  in  the 
llater  census. 


|The  population  in  age  group  50-54  in  the 
llater  census. 


|The  population  in  age  group  80  and  over 
| in  the  later  census 

I 
IBlank 
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Cards  5  and  6  read  in  the  PB  values.   For  each  PB  value  eight 
columns  are  allowed.   The  values  must  be  entered  so  that  they 
end  in  columns  8 ,1 6,24, . . . ,80.   If  less  that  11  values  are  given, 
a  second  card  still  must  be  included  even  though  it  will  be  blank. 

IV.  S  U  B  P.  0  U  T  I  N  £ 

A.  SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  TWOCN ( NSEX, NREG, KT, P A, PB, NWR IT, XMEDN,CBR, CDR) 

B.  DESCRIPTION  OF  ARGUMENTS 


Name 


NSEX 


How  Obtained   Definition 


NPEG 


KT 


PA 


PB 


NWRIT 


XMEDN 

CBR 
CDR 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  In 


Transferred  Out 

Transferred  Out 
Transferred  Out 


The  sex  of  the  population.   NSEX=1 
indicates  males.   NSEX=2  indicates 
females.   If  NSEX  eguals  any  other 
number,  the  subroutine  prints  out 
error  message  number  0701  and  returns 
to  the  calling  program. 

The  region  from  the  Coale-Demeny 

model  life  table  system.   NREG=1,2, 

3,4  indicates  west,  north,  east 

or  south  region  respectively.   If  NREG 

eguals  any  other  number,  the  subroutine 

prints  out  error  message  number  0702  and 

returns  to  the  calling  program. 

The  number  of  years  in  the  intercensal 
period.   KT=1,2,3  indicates  5,10  or 
15  years  respectively.   If  KT  eguals 
any  other  number,  the  subroutine  prints 
out  error  message  number  0703  and  re- 
turns to  the  calling  program. 

The  population  in  five-year  age  groups 
at  the  earlier  census  date.   A  minimum 
of  nine  values  must  be  given  and  all 
values  must  be  greater  than  zero.   If 
less  than  nine  values  are  given,  or  if 
any  value  is  not  greater  than  zero,  the 
subroutine  prints  out  error  message 
number  0704  and  returns  to  the  calling 
program. 


The  population  in  five-year 
at  the  earlier  census  date, 
of  10,11  or  12  values  must 
pending  on  whether  the  inte 
period  is  5,10  or  15  years 
Also  all  values  must  be  gre 
zero.   If  these  conditions 
the  subroutine  prints  out  e 
number  0704  and  returns  to 
program. 


age  groups 
A  minimum 
be  given  de- 
rcensal 
respectively, 
ater  than 
are  not  met 
rror  messagee 
the  calling 


The  codes  which  indicates  whether  the 
results  of  the  subroutine  are  to  be 
printed  out.   If  NHRIT=1,  the  results 
are  printed  out.   If  NWRIT  eguals  any 
other  number,  the  results  are  not  printed 
out 

The  median  of  the  first  nine  life 
expectancies  at  birth. 

The  intercensal  crude  birth  rate. 

The  intercensal  crude  death  rate. 
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C.   ERROR  MESSAGES 

0701  ***  TWOCN  ERROR  NO.  0701  INPOT  ERROR  IN  NSEX 

***  CODE  INDICATING  SEX  OF  THE  LIFE  TABLE  POPULATION  BUST 
BE  1  OR  2. 

0702  ***  TWOCN  ERROR  NO.  0702  INPUT  ERROR  IN  NREG 

***  CODE  INDICATING  WHICH  COALE-DEMENY  BEGION  IS  TO  BE 
USED  MUST  EQUAL  1,2,3,  or  4. 

0703  ***  TWOCN  ERROR  NO.  0703  INPUT  ERROR  IN  KT 

***  CODE  INDICATING  LENGTH  OF  INTERCENSAL  PERIOD 

MUST  BE  BETWEEN  1  AND  3. 

070U  ***  TWOCN  ERROR  NO.  0704  INPUT  ERROR  IN  PA  OR  PB 

***  EITHER  THERE  ARE  TOO  FEW  AGE  GROUPS  IN  PA  OR  PB, 

OR  AT  LEAST  ONE  AGE  GROUP  IS  LESS  THAN  1.0. 
***  FOR  KT=1,2,3  THERE  MUST  BE  AT  LEAST  10,11  OR  12 

AGE  GROUPS  RESPECTIVELY  IN  PB. 

0705  ***  TWCCN  ERROR  NO.  0705 

***  IMPOSSIBLE  TO  INTERPOLATE  FOR  CORRECT  MORTALITY  LEVEL 


V.   PROGRAM   AND   RESULTS 

A.   COMPUTER  LISTING  FOR  MAIN  PROGRAM 


C 

c 

C MAIN  PROGRAM  FOR  SUBROUTINE  TWOCN 

c 

C 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  WHICH  ARE  READ  IN  FOUR 

C STATEMENTS.  THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOWS. 

C 

c THE  first  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  THE  LABEL  TO 

C BE  USED  TO  IDENTIFY  THE  OUTPUT.  THE  LABEL  WOULD  USUALLY  CONTAIN 

C THE  NAME  OF  THE  COUNTRY  OR  AREA  WHOSE  DATA  ARE  BEING  ANALYZED  AND 

C GIVE  SOME  INDICATION  AS  TO  THE  TYPE  OF  DATA  OR  THE  TYPE  OF 

C ANALYSIS  THAT  IS  BEING  DONE.  THIS  LABEL  IS  LOCATED  IN  COLUMNS 

C 2-53  OF  THIS  CARD. 

C 

C THE  SECOND  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  (1)  THE 

C CODE  (NSEX)  INDICATING  THE  SEX  OF  THE  LIFE  TABLE  POPULATION, 

C (2)  THE  CODE  (NREG)  INDICATING  WHICH  COALE-DEMENY  REGION  IS 

C BEING  USED,  (3)  THE  CODE  (KT)  INDICATING  THE  LENGTH  OF  THE 

C INTERCENSAL  PERIOD,  (4)  THE  CODE  (NWRIT)  INDICATING  IF  THE 

C RESULTS  OF  THE  SUBROUTINE  ARE  TO  BE  PRINTED  OUT  CODE, 

C (5)  THE  CODE  (NXT) INDICATI NG  IF  THERE  IS  ANOTHER  SET  OF  DATA 

C FOLLOWING  THIS  ONE 

C NSEX    IS  LOCATED  IN  COLUMN  1  OF  THIS  CARD.  A  1  PUNCHED  IN 

C COLUMN  1  INDICATES  MALES  AND  A  2  PUNCHED  IN  COLUMN  1 

C INDICATES  FEMALES. 

C NREG    IS  LOCATED  IN  COLUMN  3  OF  THIS  CABD.  A  1  PUNCHED  IN 

C COLUMN  3  INDICATES  WEST  REGION,  A  2  INDICATES  NORTH 

C REGION,  A  3  INDICATES  EAST  REGION,  AND  A  4  INDICATES 

C SOUTH  REGION. 

C KT      IS  LOCATED  IN  COLUMN  5  OF  THIS  CARD.  A  1  PUNCHED  IN 

C COLUMN  5  INDICATES  A  5  YEAR  INTERCENSAL  PERIOD,  A  2 

c INDICATES  A  10  YEAR  PERIOD,  AND  A  3  INDICATES  A  15  YEAR 

C PERIOD. 

C NWRIT   IS  LOCATED  IN  COLUMN  7  OF  THIS  CARD.   IF  A  ZERO  IS  PUNCHED 

c IN  COLUMN  7,  THE  RESULTS  OF  THE  SUBROUTINE  WILL  NOT  BE 

c PRINTED  OUT.   IF  ANY  OTHER  NUMBER  IS  PUNCHED  IN  COLUMN 

c lf    THE  RESULTS  WILL  BE  PRINTED. 

C NXT     IS  LOCATED  IN  COLUMN  9  OF  THIS  CARD.  A  ZERO  PUNCHED  IN 

C COLUMN  9  INDICATES  THIS  IS  THE  LAST  DATA  SET.   ANY  OTHER 

c NUMBER  PUNCHED  IN  COLUMN  9  INDICATES  THERE  IS  ANOTHER 

C SET  OF  DATA  FOLLOWING  THIS  ONE. 

C 

C THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS.  THE  PURPOSE  OF  THE 

c THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  POPULATION  IN  FIVE  YEAR 

C AGE  GROUPS  (PA)  FOR  THE  EARLIER  CENSUS. 
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c p&       VALUES  ARE  CONTAINED  ON  TWO  CARDS.  AT  LEAST  NINE  PA 

c__. —  VALUES  MUST  BE  GIVEN.  FOR  EACH  PA  VALUE  EIGHT  COLUMNS  ARE 

C ALLOWED  STARTING  WITH  THE  FIRST  EIGHT  COLUMNS  OF  THE 

c FIRST  CARD.  A  MAXIMUM  OF  TEN  PA  VALUES  CAN  APPEAR  ON  THE 

C FIRST  CARD  SO  THAT  THE  DECIMAL  POINTS  ARE  IN  COLUMNS 

C 8,  16,  24,  ...,  72,  AND  80.  THE  SECOND  CARD  CONTAINS 

C SEVEN  PA  VALUES  WHICH  ARE  ENTERED  IN  THE  SAME  MANNER  AS 

C ON  THE  FIRST  CARD  EXCEPT  THAT  THE  LAST  VALUE  WILL  END  IN 

C COLUMN  56.  IF  LESS  THAN  SEVENTEEN  VALUES  ARE  TO  BE 

C GIVEN,  BOTH  CARDS  MUST  STILL  BE  USED  WITH  DATA  ONLY  IN 

C THE  NUMBER  OF  COLUMNS  NECESSARY  FOR  THE  NUMBER  OF  PA 

c VALUES  GIVEN. 

C — 

c THE  FOURTH  READ  STATEMENT  USES  TWO  DATA  CARDS.  THE  PURPOSE  OF 

c THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  POPULATION  IN  FIVE 

c yEAE  AQE  GROUPS  (PB)  FOR  THE  LATER  CENSUS. 

c pB       VALUES  ARE  CONTAINED  ON  TWO  CARDS.  IF  KT  =  1  THEN  THERE 

C MUST  BE  AT  LEAST  1 0  PB  VALUES.  IF  KT  =  2  THERE  MUST  BE 

C AT  LEAST  11  PB  VALUES.  IF  KT  =  3  THERE  MUST  BE  AT  LEAST 

c 12  PB  VALUES.  PB  VALUES  ARE  ENTERED  IN  THE  SAME  MANNER 

C AS  PA  VALUES. 

c 

c 

DIMENSION  PA  (17)  ,PB(17) 
NREAD  =  1 
NPRNT  =  15 

10  READ  (NREAD,  11) 

11  FORMAT (1X,52H  ) 
READ  (NREAD, 22)  NSEX, N REG, KT, NWRIT, N XT 

2  2  FORMAT  (I1,1X,I1,1X,I1,1X,I1,1X,I1) 

READ (NREAD, 33)   (Pi (I) ,1=1 , 1 7) 

3  3  FORMA!  (10F8. 0,/,7?8. 0) 

READ (NREAD, 33)   (PB  (I)  ,1=1 , 1 7) 

WRITE  (NPRNT, 44) 
44  FORMAT(1H1) 

WRITE  (Nt>RNT,11) 

CALL  TWOCN(NSEX,NREG,KT,PA,PB,NWRIT,E0,CBR,CDR) 

IF  (NXT)  10,99,10 
99  STOP 

END 


B.   COMPUTER  LISTING  FOR  SUBROUTINE 

SUBROUTINE  TWOCN  (NSEX , NREG , KT, PA, PB, NWRIT, XMEDN , CBE, CDR) 

c ,_ 

c _ 

C PROGRAM  NO.  0700 

c _ 

c 

C THE  INPUT  ARGUMENTS  TO  THIS  SUBROUTINE  ARE  NSEX,  NREG,  KT, 

C PA,  PB,   AND   NWRIT. 

C THE  OUTPUT  ARGUMENTS  FROM  THIS  SUBROUTINE  ARE   XMEDN,   CBR,   AND 

C CDR. 

C NSEX  IS  A  CODE  INDICATING  THE  SEX  OF  THE  LIFE  TABLE  POPULATION. 

C NREG  IS  A  CODE  INDICATING  WHICH  REGION  FROM  THE  COALE-DEMENY 

c MODEL  LIFE  TABLE-  SYSTEM  IS  BEING-USED. 

C KT    IS  A  CODE  INDICATING  THE  LENGTH  OF  THE  INTERCENSAL  PERIOD. 

c PA    IS  THE  earlier  POPULATION  DISTRIBUTION. 

c pb    IS  THE  LATER  POPULATION  DISTRIBUTION. 

C NWRIT  IS  THE  CODE  INDICATING  WHETHER  THE  RESULTS  OF  THE  SUBROU- 

C ARE  TO  BE  PRINTED  OUT. 

C EO     IS  THE  MEDIAN  OF  THE  FIRST  NINE  LIFE  EXPECTANCIES  AT  BIRTH. 

C CBE    IS  THE  INTERCENSAL  CRUDE  BIRTH  RATE. 

C CDR    IS  THE  INTERCENSAL  CRUDE  DEATH  RATE 

c 

c 

DIMENSION  CDMLT  (18,8) ,CDLX (  17)  ,PX  (  17)  ,  PA  (  17) ,  SX  ( 17)  ,  PCUMX  (4,  1  7) 

DIMENSION  PCUM(17)  ,PB(17)  ,PBX(17)  ,E0(101)  ,E0RD(101)  ,XMX(17) 

EQUIVALENCE  (CDMLT  (2,  5)  ,  CDLX  (1)  ) 

NPRNT=15 

NERR  =  0 
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c 

C VEfiIFY    INPUT    ARGUMENTS 

c _ 

C 

IF  (NSEX  -  1)  15,20,10 
10  CONTINUE 

IF  (NSEX  -  2)  20,20, 15 

15  WRITE  (NPRNT,16) 

16  FORMAT (//48H  ***  TWOCN  ERROR  NO.  0701  --  INPUT  ERROR  IN  NSEX, 
*/,71H  ***  CODE  INDICATING  SEX  OF  THE  LIFE  TABLE  POPULATION  HUST  BE 
*   1   OR   2) 

NERR  =  1 
20  CONTINUE 

IF  (NREG  -  1)  30,35,25 
25  CONTINUE 

IF  (NREG  -  4)  35,35,30 

30  WRITE (NPRNT, 31) 

31  FORMAT (//48H  ***  TWOCN  ERROR  NO.  0702  --  INPUT  ERROR  IN  NREG, 

*/, 85H  ***  CODE  INDICATING  WHICH  COALE-DEMENY  REGION  IS  TO  BE  USED 
*MUST  EQUAL  1,  2,  3,  OR  4) 
NERB  =  1 
35  CONTINUE 

IF  (KT  -  1)  45,50,40 
40  CONTINUE 

IF  (KT  -  3)  50,50,45 

45  WRITE(NPRNT,46) 

46  FORMAT (//46H  ***  TWOCN  ERROR  NO.  0703  --  INPUT  ERROR  IN  KT,/ 
*,73H  ***  CODE  INDICATING  LENGTH  OF  INTERCENSAL  PERIOD  MUST  BE  BETW 
*EEN  1  AND  3) 

NERR  =  1 
GO  TO  9000 
50  DO  55  1=1,17 

IF  (PA  (I)  -  1.0)  60,55,55 
55  CONTINUE 
M  =  17 
GO  TO  80 
60  CONTINUE 
M  =  I  -  1 

IF  (I  -  9)  75,75,65 
65  DO  70  J=I,17 

IP  (ABS(PA(J))  -  .000001)  70,70,75 
70  CONTINUE 
GO  TO  80 
75  WRITE  (NPRNT, 77) 

77  FORMAT (//52H  ***  TWOCN  ERROR  NO.  0704  --  INPUT  ERROR  IN  PA  OR  PB , 
*/,97H  ***  EITHER  THERE  ARE  TOO  FEW  AGE  GROUPS  IN  PA  OB  PB  ,  OR  AT 
♦LEAST  ONE  AGE  GROUP  IS  LESS  THAN  1.0,/,81H  ***  FOR  KT  =  1,2,3  THER 
*E  MUST  BE  AT  LEAST  10,11,12  AGE  GROUPS  RESPECTIVELY  IN  PB) 
NERR  =  1 
GO  TO  9000 
80  CONTINUE 

DO  85  1=1,17 

IF  (PB(I)  -  1.0)  90,85,85 
85  CONTINUE 
N  =  17 
GO  TO  110 
90  CONTINUE 

N  =  I  -  1 
IF  (I-  (9+KT))  75,75,95 
95  DO  100  J=I,17 

IF  (ABS(PB(J))  -  .000001)  100,100,75 
100  CONTINUE 
110  CONTINUE 

IF  (NERR)  9000,150,9000 
C 
c 

C PRINT  INPUT  DUE  TO  ERROR 

c 

C 

9000  WRITE(NPRNT,9001)  NSEX, NREG, KT 

9001  FORMAT(//,22H  TWOCN  INPUT  ARGUMENTS,/, 5X, 5 HNSEX=, 12, /, 5X, 5HNREG=, 
*I2,/,5X,3HKT=,I2) 

WBITE (NPRNT, 9002) 

9002  FORMAT (//, 5H  PA  =) 

WRITE  (NPRNT, 9003)      (PA  (I)  ,1=1,  17) 

9003  FORMAT  (10  (2X,F9.0)  ,/,7  (2X,F9.0)) 
WBITE(NPRNT,9004) 
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9004    FORMAT (//,5H    PB    =) 

HRITE(NPRNT,9003)      (PB  (I)  ,1=1  ,  1  7) 

XMEDN=0.0 

CDR=0.0 

CBB=0.0 

GO    TO    7555 
C 
c 

C CALCULATION  OF  4  HYPOTHETICAL  AGE  DISTRIBUTIONS   KT   YEARS  AFTER 

C EARLES  CENSUS  CORRESPONDING  TO  4  DIFFERENT  LEVELS  OF  MORTALITY 

c , . 

C 

150  DO  200  1  =  1,  M 
200  PX  (I)=PA  (I) 

E0X=0.0 

DO  300  J=1,4 

E0X=E0X+20.0 

CALL  MLT (E0X„NSEX,NREG,CDMLT) 

CDLX  (1)  =CDLX  (1)  +CDMLT  (1,5) 

IF  (J-1)  390,390,700 
390  CONTINUE 

GO  TO  (400,500,600) , KT 
400  CONTINUE 

IF  (M-16)  712,712,410 

410  DO  411  1=17, M 

411  PX(16)  =PX  (16)+PX(I) 
MADJ=16 

GO  TO  700 
500  CONTINUE 

IF  (M-15)  712,712,510 

510  DO    511    1=16, M 

511  PX(15)=PX(15)+PX(I) 
MADJ=15 

GO  TO  700 
600  CONTINUE 

IF  (M-14)  712,712,610 

610  DO  611  I=15,M 

611  PX(14)=PX  (14)+PX  (I) 
MADJ=14 

GO  TO  700 
712  MADJ=M 
700  CONTINUE 

GO  TO  (705,800,900)  ,  KT 
705  CONTINUE 

IF  (MADJ-16)  710,1000,1000 

710  MJP1=MADJ+1 

DO  711  I=MJP1,16 

711  CDLX(MJP1)=CDLX (MJP1) +CDLX(I+1) 
GO  TO  1000 

800  CONTINUE 

IF  (MADJ-15)  810,1000,1000 

810  MJP2=MADJ+2 

DO  811  I=MJP2,16 

811  CDLX (MJP2) =CDLX  (MJP2) +CDLX (1+1) 
GO  TO  1000 

900  CONTINUE 

IF  (MADJ-14)  910,1000,1000 

910  MJP3=MADJ+3 

DO  911  I=MJP3,16 

911  CDLX(MJP3)=CDLX(MJP3) +CDLX(I+1) 
1000  MDJ1=MADJ-1 

DO  1100  I=1,MDJ1 
1100  SX(I)=CDLX(I  +  KT) /CDLX(I) 

DO    1200    1=1, KT 
1200    CDLX(MADJ)=CDLX  (MADJ)  +CDLX  (  MADJ+ 1) 

SX(MADJ)=CDLX (MADJ+KT) /CDLX (MADJ) 
1250    PCUMX(J,MADJ+1)=0.0 

DO    1300    1=1, MADJ 

K=MADJ+1-I 
1300    PCUMX(J,K)=PCUMX(J,K+1)+PX  (K)  *SX  (K) 
300    CONTINUE 
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C 

c 

C CUMULATE  THE  LATER  CENSUS 

c 

C 

PCUM(N)=PB(N) 

NM1=N-1 

DO  1400  1=1, NM1 

K=N-I 
1U00  PCUM  (K)  =PCUM  (K+1)+PB(K) 
c 

c INTERPOLATE  FOB  CORBECT  MORTALITY  LEVELS 

c 

C 

IF  (N-MADJ-KT)  1410,1411,1111 

1410  LIM=N-2 

GO  TO  1501 

1411  LIM=MADJ 

1501  DO  4800  IT=1.LIM 

DO  4000  J=1,4 

IF  (PCUM  (IT+KT)  -PCUMX(J,IT)  )  34  00,3700,3800 
3400  CONTINUE 

IF  (J-1)  3500,3500,3600 
3500  E0X=0.0 

GO  TO  47  00 
3600  P1=PCUMX(J-1,IT) 

P2=PC0MX  (J, IT) 

E02=J*20 

E01=E02-20.0 

GO  TO  4100 
3700  E0X=J*20 

GO  TO  4800 
3800  CONTINUE 

IF  (J-4)  4000,3900,3900 
3900  EOX=100.0 

GO  TO  4700 
4000  CONTINUE 
4100  DO  4600  J=1,  15 

PCUMT=0.0 

E0X=E01+  (  (E02-E01)  *  (PCUM  (IT  +  KT) -P1 )/( P2-P1 )  ) 

IF  (EOX  -  20.0)  4110,4120,4105 
4105  CONTINUE 

IF  (EOX  -  80.0)  4120,4120,4130 
4110  E0X=20.0 

GO  TO  4120 
4130  E0X=80.0 
4120  CALL  MLT (EOX , NSEX, NR£G,CDMLT) 

CDLX  (1)=CDLX  (1)  +CDMLT  (1  ,5) 
5702  CONTINUE 

GO  TO  (5705,5800,5900),  KT 
5705  CONTINUE 

IF  (MADJ-16) 5710,6000,6000 

5710  MJP1=MADJ+1 

DO  5711  I=MJP1,16 

5711  CDLX(MJP1)=CDLX(MJP1) +CDLX (1+1) 
GO  TO  6000 

5800  CONTINUE 

IF  (MADJ-15) 5810,6000,6000 

5810  MJP2=MADJ+2 

DO  5811  I=MJP2,16 

581 1  CDLX (MJP2) =  CDLX  (MJP2) +CDLX  (1+1) 
GO  TO  6000 

5900  CONTINUE 

IF  (MADJ-14) 5910,6000,6000 

5910  MJP3=MADJ+3 

DO  5911  I=HJP3,16 

5911  CDLX (MJP3)=CDLX(MJP3) +CDLX  (1  +  1) 
6000  MDJ1=MADJ-1 

DO  6100  I=1,HDJ1 
6100  SX(I)  =CDLX(I+KT) /CDLX(I) 

DO    6200    1=1, KT 
6  200   CDLX(MADJ) =CDLX  (MADJ)  +CDLX (M ADJ  +  I) 

SX  (MADJ) =CDLX (MADJ+KT) /CDLX (MADJ) 
4250    J2=MADJ  +  1-I*1: 

DO    4200    J1=1,J2 

K=MADJ+1-J1 
4200  PCUHT=PCUMT  +  PX  (K)*SX  (K) 
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IF     (ABS{PCUMT"PCUM(IT+KT) ) -1.0)     4800, 4800, 4 300 
4300    CONTINUE 

IF    (ABS(EOX-EOI) -ABS  (E02-E0X) )     4400,4400,4500 
4400    E02=E0X 

P2=PCUMT 

GO  TO  4600 
4500  E01=E0X 

P1=PCUMT 
4600  CONTINUE 

C 

c 

C ERROR  STATEMENTS 

c 

C 

WRITE (NPRNT,555) 
555  FORMAT(//25H  ***  THOCN  ERROR  NO.  0705, /,58H  ***  IMPOSSIBLE  TO  INTE 
*RPOLATE  FOR  CORRECT  MORTALITY  LEVEL) 
GO  TO  9000 
4700  WRITE  (NPRNT,666) 
666  FORMAT(//79H  ***  TWOCN  WARNING  —  CORRESPONDING  AGE  GROUPS  IMPLY  A 

*  LIFE  EXPECTANCY  AT  BIRTH, /,63H  ***  LESS  THAN  20  YEARS  (A  VALUE  OF 

*  0.0  IS  ASSIGNED)  OR  GREATER ,/,4 9H  ***  THAN  80  YEARS  (A  VALUE  OF  1 
*00.0  IS  ASSIGNED)) 

C 

c 

c COMPUTATION  OF  MEDIAN  LIFE  EXPECTANCY  ,  RATE  OF  NATURAL  GROWTH, 

C CRUDE  BIRTH  KATE  AND  CRUDE  DEATH  RATE 

c 

C 

4800  EO(IT)  =  EOX 

4810  CALL  MDENS  (EO,  9  ,EOF.D,XMEDN) 

CALL  MLT(XMEDN,NSEX,NREG,CDMLT) 

DO  5010  IX=1,17 
5010  XMX(IX)=0.0 
5000  XMX(1)  =  (CDMLT  (1,2)  +CDMLT  (2,2))  /  (CDMLT <1 , 5) +CDMLT  (2, 5) ) 

NM1  =  N  -  1 

DO  7500  1=2, NM1 

XMX(I)  =  CDMLT(I  +  1  ,3) 
7500  CONTINUE 

XMX(N)  =  CDMLT(N,4)  /CDMLT(N,7) 

TOTPA  =  0.0 

TOTPB  =0.0 

CDR  =  0.0 

YEAR=5*KT 

DO  7505  1=1,17 

TOTPA  =  TOTPA  +  PA (I) 

TOTPB  =  TOTPB  +  PB  (I) 

CDB=CDE+ (PA  (I)  +PB (I) )  *XM X  (I) 
7505  CONTINUE 

CDR  =  CDS  /  (TOTPA  +  TOTPB) 

RG  =  (ALOG(TOTPB/TOTPA)  ) /YEAR 

CBR  =  EG  +  CDR 
C 
c 

C ~  PRINT  RESULTS 

c 

C 

IF  (NWRIT)  4801,7555,4801 

4801  WRITE(NPP.NT,776) 

776  FORMAT(/,2X,18HAGE  AT  CENSUS  DATE, 5X, 14  HE ARLIER  CENSUS, 8X, 
*12HLATER  CENSUS, 6X,4HE(0) ,/) 

K1  =  0 

K2  =  4 

EO  (IT)  =  EOX 

IF    (M-N)     4806,4807,4807 

4806  LIM=LIM-1 

4807  DO    4805    1=1, LIM 
WRITE  (NPRHT.777)     K1,K2,PA(I)  ,PB(I) , EO (I) 

777  FORMAT (7X, 12, 1 H- ,12, 13X,F13. 0,7X , F1 3. 0, 5X, F6. 2) 
K1    =    K1     +5 
K2    =    K2    +    5 

4805   CONTINUE 

LIM1    =    LIM    +    1 

MM1    =    M    -    1 

IF    (M    -    N)     8010,8020,8030 

8010  DO    8011    IJ=I,N 

8011  PBX(IJ)=PB(IJ) 
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PBX(M)     =    PCUM(M) 

IF    (LIM1    -    M)     8012,8014,8014 

8012  DO    8013    I=LIM1,MM1 
WRITE(NPRNT,99  9)     K1,K2,PA(I)  ,PBX  (I) 
K1    =    K1    +    5 

8013  K2    =    K2    ♦    5 

999    FORMAT(7X,I2,1H-.I2,13X,  F13. 0,7X, F13. 0) 

8014  WRITE  (NPRNT, 998)     K1,  PA  (H)  ,  PBX  (M) 

998    FORtlAI  (7X,I2,3H    +    ,  13X,  F13.  0,  7X,  F13.  0) 

GO    TO    48  11 
8020   CONTINUE 

IF     (LIM1    -    M)     8022,8027,8027 
8022    DO    8025    I=LIM1,MM1 

HRITE(NPP.NT,999)    K1,K2,PA  (I)  ,PB(I) 

K1  =  K1  +  5 
8025  K2  =  K2  ♦  5 
8027    WRITE(NPRNT,998)    K1 ,  PA  (M)  ,  PB  <M) 

GO    TO    4811 

8030  DO    8031    IJ=N,MM1 

8031  PX(N)     =    PX(N)     ♦    PX(IJ*1) 
DO    8032    I  =  LIM1,MM1 

WRITE     (N?RNT,999)     K1,K2, PX (I) , PB (I) 
K1=KU5 

8032  K2=K2+5 

WRITE{NPRKT,998)  K  1  ,PX  (N)  ,  PB  (N) 
4811  WRITE (NPRNT, 4815) 

4815  FORMAT {/,  5X ,76HCOALE-DEMENY  MODEL  LIFE  TABLE  IMPLIED  BY  MEDIAH  OF 
*  FIRST  9  LIFE  EXPECTANCIES) 
CALL  PLT(CDMLT,NSEX,NREG) 
WRITE  (NPSNT, 7510)  EG,CBR,CDR 
7510  FORMAT (//,1 OX, 36HINTERCENSAL  RATE  OF  NATURAL  GROWTH  -,F7.4#/, 
*10X,30HINTERCENSAL  CRUDE  BIRTH  RATE  =,F7.4,/, 
*10X,30HINTERCENSAL  CRODE  DEATH  RATE  =,F7.4) 
7555  RETURN 
END 
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I.  DESCRIPTION   OF   PROGRAM 

A.  PDRPOSE 

To  smooth  a  population  distribution  in  5-year  age  groups,  except  for  the 
first  two  and  last  two  5-year  age  groups,  using  a  formula  derived  by  the 
United  Nations. 

B.  DATA  NEEDED 

1.  The  male   population  distribution  in  5-year   age  groups. 

2.  The  female   population  distribution   in   5-year  age   groups. 

II.  METHODOLOGY 

A.  MATHEMATICAL    DERIVATION 

The  smoothing  procedure  is  made  by  using  the  following  formula: 

5<  =  ~k    ['   5*^10  +  *  5^-5  +  1°  J*x  +  4  4**5  -   S^xMo] 

where 

rHPx  is  the  male  population  age  x,x+4 

rHP^   is  the  smoothed  population  age  x, x+5. 
The  female  population  distribution  is  smoothed  in  the  same  manner. 
Reference:   United  Nations,  Methods  for  Population  Projections  by  Sex 
and  Age,  ST/SOA/Series  A  Population  Studies,  No.  25,  New  York,  1956. 

B.  COMMENTS 

It  should  be  noted  that  in  the  process  of  smoothing  the  5-year  age 
groups  this  procedure  changes  the  total  population  of  the  distribution. 
The  total  population  of  the  smoothed  distribution  will  be  slightly  dif- 
ferent from  the  total  population  before  smoothing.   This  difference  is 
not  an  estimate  of  under  or  over  enumeration  but  merely  a  conseguence  of 
this  procedure. 

III.H  AIN   PROGRAM 

A.   REQUIREMENTS 

The  main  program  is  required  to  use  this  subroutine  and  obtain  the  data 
(input)  necessary  for  the  subroutine  to  perform  its  calculations.   A  main 
program  can  use  a  subroutine  alone  or  in  conjunction  with  other  subroutines. 
For  a  detailed  explanation  of  writing  main  programs  using  more  than  one  sub- 
routine see  the  Appendix. 

1 .   CALL  statement 

Once  the  main  program  has  obtained  the  data  required  for  the  subroutine  to 
do  its  calculations,  the  main  program  transmits  this  data  to  the  subroutine 
and  the  subroutine  returns  the  results  of  the  calculations  performed  to  the 
main  program.   This  communication  process  is  made  through  the  CALL  statement. 
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The  form  of  the  CALL  statement  for  this  subroutine  is  as  follows: 
CALL  UNSMH  (C„D,A,B) 

Foe  the  purpose  of  emphasizing  the  input  arguments,  they  are  underlined  in  the 
above  CALL  statement. 

2.   DIMENSION  statement 

The  variable  names  in  the  CALL  statement  may  be  single-valued  or  refer  to  a 
group  of  values  which  are  called  an  array.  If  they  refer  to  an  array,  then  the 
variable  name  is  dimensioned  in  any  subroutine  called  by  the  main  program. 

For  this  subroutine  all  of  the  variables  in  the  argument  string,  A,B,C, 
and  D,  are  arrays.   The  following  dimension  statement  must  be  included  in 
any  main  program  using  this  subroutine. 

DIMENSION  C(17)  ,D(17)  ,A(17)  ,B(17) 

B.   OTHEfi  SUBROUTINES  AND  FUNCTIONS  NEEDED  IN  CONJUNCTION  WITH  THE  PROGRAM. 

Some  subroutines  actually  call  other  subroutines  or  functions  in  order  to 
perform  their  calculations.   These  subroutines  and/or  functions  must  be  in- 
cluded in  order  to  run  this  subroutine    These  can  be  either  other  subroutines 
presented  in  this  publication  or  functions  included  in  the  FORTRAN  library. 

1 .  Subroutines  from  this  package 
None 

2.  Library  functions 
None 

3.  Card  Diagram  of  main  program  and  subroutines. 


/  / 

/    CARDS  INDICATING  END  OF  DECK    / 

^  _^ 

/  INPUT  DATA  /  I 

/ /   I 

/  /I   I   / 

/     COMPUTER  CONTROL  CARDS         /  |   |  / 

/ /   I   1/ 

/  /I   I   / 

/  SUBROUTINE  UNSMH       /  |   |  / 

/ /   I   1/ 

/  /I   I   / 

/  MAIN  PROGRAM  /  |    |  / 

/       COMPUTER  CONTROL  CARDS       /  |   |  / 
/ . /   I   1/ 


BEGINNING  OF  DECK 


I   I   / 
I   I  / 
I   1/ 
I   / 
I  / 
I  / 


C.   FORMAT  REQUIREMENTS  FOR  CARD  INPUT  DATA  FOR  THE  MAIN  PROGRAM  GIVEN  IN 
SECTION  V.A. 

The  card  format  reguirements  for  the  main  program  included  with  this 
publication  are  as  given  below.   The  data  should  be  punched  in  the 
columns  specified.   For  a  more  detailed  description  of  the  input  data, 
see  the  description  of  arguments  in  section  IV.  B.  See  example,  section  V.C. 
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Variable 
Card   Columns        Name  Definition 


1 

2-53 

54-80 

1-8 

9-16 

73-80 

1-8 
9-16 

• 

49-56 
57-80 


Blank 

Label  used   to   identify   the   output 

Blank 


Male  population  0-4.   The  number 
should  end  in  column  8. 

Bale  population  5-9.   The  number 
should  end  in  column  16 


Hale  population  45-49.   The  number 
should  end  in  column  80. 


Male  population  50-54. 
should  end  in  column  8 


The  number 


Male  population  55-59.   The  number 
should  end  in  column  16. 


Rale  population  80+.   The  number 
should  end  in  column  56. 


Blank 


The  variable  C  always  requires  two  cards.   The  first  card  (card  no.  2) 
must  always  contain  data,  whereas  the  second  card  (card  no.  3)  can 
be  all  zeroes  depending  on  the  number  of  age  groups  given.   The  last 
age  group  given  must  always  be  the  open-ended  age  group. 


1-8 


9-16 


73-80 


1-8 


9-16 


49-56 


57-80 


Female  population  0-4.   The  number  should  end 
in  column  8. 

Female  population  5-9.   The  number  should  end 
in  column  16. 


Female  population  45-49.   The  number  should 
end  in  column  80. 


Female  population  50-54. 
end  in  column  8. 

Female  population  55-59 
end  in  column  16. 


Female  population  80*. 
in  column  56. 

Blank 


The  number  should 


The  number  should 


The  number  should  end 


The  variable  D  always  reguires  two  cards.   The  first  card  (card  no.  4) 

must  always  contain  data,  whereas,  the  second  card  (card  no.  5)  can 

be  all  zeroes  depending  on  the  number  of  age  groups  given.   The  last 
age  group  given  must  always  be  the  open-ended  age  group. 
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I 
NXT  | The   code   indicating   if   there   is   another   data 

| set   following   this  one.      A    zero   punched   in   column    1 
I  indicates   this   is  the   last   set  of   data.      Any 
lother   digit    punched   in  column   1    indicates 
| another    set    of   data    follows   this   one. 
I  this   one. 


IV.     SJB    ROUTINE 

ft.   SUBROUTINE  STATEMENT 

All  external  subroutines  begin  with  the  word  SUBROUTINE  followed  by  a 
space,  the  name  of  the  subroutine  and  the  argument  string  enclosed  in 
parentheses.   This  subroutine  begins  as  follows: 

SUBROUTINE  UNSMH (C,D, A, B) 

B.   DESCRIPTION  OF  ARGUMENTS 


Name 


How  Obtained   Definition 


Transferred  In 


Transferred  In 


Transferred  Out 


Transferred  Out 


Male  population  distribution  in  5-year 
age  groups  beginning  with  0-4.   The  last 
age  group  is  the  open-ended  age  group  for 
males.   It  is  possible  to  use  the  subroutine 
with  a  minimum  of  6  or  a  maximum  of  17  5-year 
age  groups.   If  less  than  six  age  groups 
are  given,  the  subroutine  will  write  out 
error  message  no.  1331  and  return  to  the 
calling  program. 

Female  population  in  5-year  age  groups 
beginning  with  0-4.   The  last  age  group  is 
the  open-ended  age  group  for  females.   It 
is  possible  to  use  the  subroutine  with  a 
minimum  of  6  or  a  maximum  of  17  5- year 
age  groups.   If  less  than  six  age  groups 
are  given,  the  subroutine  will  write  out 
error  message  no.  1331  and  return  to  the 
calling  program. 

The  smoothed  male  population  distribution 
in  5- year  age  groups  beginning  with  10-14 
and  ending  with  the  last  smoothed  age  group. 

The  smoothed  female  population  distribution 
in  5-year  age  groups  beginning  with  10-14 
and  ending  with  the  last  smoothed  age  group. 


C.   ERROR  MESSAGES 

1331  ***  UNSMH  ERROR  NO.  1331  —  INPUT  ERROR  IN  C  OR  D 

***  ONE  OF  THE  FIRST  SIX  AGE  GROUPS  IN  ONE  OF  THE  DISTRIBUTIONS  IS 
ZERO  OR  AN  INTERMEDIATE  VALUE  IS  ZERO.   DATA  NOT  SMOOTHED. 


PROGRAM      AND      RESULTS 
A.       COMPUTER    LISTING   FOR    MAIN   PROGRAM 


c 

c . 

C MAIN    PROGRAM    FOR    TESTING    UNSMH 

c 

c 

C THIS  PROGRAM  USES  A  SET  OF  DATA  CARDS  BHICH  ARE  READ  IN  BY  THREE 

C READ  STATEMENTS.  THE  DATA  CARDS  ARE  RELATED  TO  EACH  OF  THE  READ 

C STATEMENTS  AS  FOLLOHS. 

C 

C THE  FIRST  READ  STATEMENT  USES  ONE  DATA  CARD. 

c rHE  porposE  OF  THE  FIRST  READ  STATEMENT  IS  TO  READ  IN  THE  LABEL 

C TO  BE  USED  TO  IDENTIFY  THE  OUTPUT.   THIS  LABEL  IOULD  USUALLY 

C CONTAIN  THE  NAME  OF  THE  COUNTRY  OR  AREA  BHOSE  DATA  ARE  BEING 

C ANALYZED  AND  GIVE  SOME  INDICATION  OF  THE  TYPE  OF  DATA  OR  OF 

C THE  TYPE  OF  ANALYSIS  THAT  IS  BEING  DONE.   THE  LABEL  IS  LOCATED 
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c IN    COLUMNS    2-53   OF   THE  CAED. 

C 

C THE  SECOND  BEAD  STATEMENT  USES  IWO  DATA  CARDS. 

C THE  PURPOSE  OF  THE  SECOND  READ  STATEMENT  IS  TO  READ  IN  THE 

c POPULATION  DISTRIBOTION  OF  MALES  (C)  IN  5-YEAR  AGE  GROUPS. 

C c   VALUES  ARE  CONTAINED  ON  TWO  CARDS.   EACH  VALUE  OF  C  MUST  BE 

c LOCATED  IN  EIGHT  COLUMNS  STARTING  WITH  THE  FIRST  EIGHT 

C COLUMNS.   A  MAXIMUM  OF  TEN  VALUES  CAN  APPEAR  ON  THE  FIRST 

c ,--        CARD,  ENDING  IN  COLUMNS  8,  16,  24, ...,80.   A  MAXIMUM  OF 

c SEVEN  VALUES  CAN  APPEAR  ON  THE  SECOND  CARD,  ENDING  IN 

c COLUMNS  8,  16,  24, ...,56.   IF  TEN  OR  FEWER  VALUES  ARE  GIVEN 

c F0R  c#  THE  SECOND  CARD  WILL  BE  BLANK. 

C 

C THE  THIRD  READ  STATEMENT  USES  TWO  DATA  CARDS. 

c THE  purpose  OF  THE  THIRD  READ  STATEMENT  IS  TO  READ  IN  THE  FEMALE 

C —  POPULATION  IN  5-IEAR  AGE  GROUPS  (D) . 

C D  IS  CONTAINED  ON  TWO  CARDS.   EACH  VALUE  OF  D  MOST  BE  LOCATED 

C WITHIN  EIGHT  COLUMNS,  STARTING  WITH  THE  FIRST  EIGHT 

C COLUMNS.   A  MAXIMUM  OF  TEN  D  VALUES  CAN  APPEAR  ON  THE  FIRST 

c CARD,  ENDING  IN  COLUMNS  8,  16,  24,...,  80    A  MAXIMUM  OF 

C SEVEN  D  VALUES  CAN  APPEAR  ON  THE  SECOND  CARD,  ENDING  IN 

C COLUMNS  8,  16,  24, ...,56.   IF  TEN  OR  FEWER  D  VALUES  ARE 

c GIVEN,  THE  SECOND  CARD  WILL  BE  BLANK. 

C 

c THE  FOURTH  READ  STATEMENT  USES  ONE  DATA  CARD. 

C THE  PURPOSE  OF  THE  FOURTH  READ  STATEMENT  IS  TO  READ  IN  THE  CODE 

C (NXT)  INDICATING  IF  THERE  IS  ANOTHER  SET  OF  DATA  FOLLOWING  THIS 

C ONE. 

C NXT       IS    LOCATED    IN   COLUMN    1.       A    ZERO    PUNCHED    IN    COLUMN    1 

c INDICATES    THIS    IS    THE   LAST    SET    OF    DATA.       ANY   OTHER    DIGIT 

c PUNCHED    IN    COLUMN    1    INDICATES    ANOTHER    SET    OF    DATA    FOLLOWS 

c THIS    ONE. 

c 

c 

DIMENSION   C(17)  ,D(17)  ,A(17)  ,B(17) 

NREAD    =    1 

NPRNT   =    15 

10  READ(NREAD,11) 

11  FORMAT(1X,52H  ) 
READ  (NREAD, 22)  (C  (I)  ,1  =  1,  17) 

22    FORMAT  (1 0F8.  0,/, 7F8.  0) 

READ(NREAD,22)  (D  (I) , 1=1 ,17) 

READ(NREAD,33)    NXT 
33    FORMAT(H) 

WRITE  (NPRNT, 44) 
44    FORMAT  (1H1) 

WHITE  (NPRNT,  11) 

CALL    UNSMH(C,D,A,B) 

IF(NXT)     10,20,10 
20    CONTINUE 

STOP 

END 


B.       COMPUTER   LISTING    FOR    SUBROUTINE 

SUBROUTINE  UNSMH (C,D, A,B) 

c 

c 

C PROGRAM    NO.    1330 

c 

C C    AND    D    ARE    INPUT    ARGUMENTS. 

c A    AND    B    ARE   OUTPUT    ARGUMENTS. 

C c  IS    THE    MALE   POPULATION    IN    FIVE    YEAR    AGE    GROUPS    STARTING 

C WITH    0-4    AND    ENDING    WITH    THE   OPEN-ENDED   AGE   GROUP. 

C d  IS    THE    FEMALE    POPULATION    IN    FIVE   YEAR    AGE    GROUPS    STARTING 

C WITH    0-4    AND    ENDING    WITH    THE   OPEN-ENDED    AGE    GROUP. 

C A  IS   THE    SMOOTHED    MALE   POPULATION    IN    FIVE    YEAR    AGE   GROUPS. 

C B  IS   THE   SMOOTHED   FEMALE    POPULATION    IN    FIVE    YEAR    AGE   GROUPS. 

C DEVCA    IS    THE    DEVIATION    BETWEEN    A    AND    C. 

C DEVDB    IS    THE    DEVIATION    BETWEEN    D    AND    B. 

c 

c 

DIMENSION    DEVCA  (17)  , DEVDB  (17)  ,  A  (17)  ,B  (17)  ,C  (1  7)  ,D  (1  7) 
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SPENT  =  15 
NROHA  =  0 
NROHB  *  0 
TC  =0.0 
TD  =  0.0 
DO  10  I  =  1,  17 
TC  =  C(I)  +  TC 
TD  =  C  (I)  ♦  TD 
DEVCA(I)  =0.0 
10  DEVDB(I)  =0.0 
DO  50  I  =  1,17 
IF(C(I))  30,30,20 
20  NROHA  =  NROHA  +  1 
30  CONTINUE 

IF  (  D(I)  )  50,50,40 
40  NROHB  =  NROHB  +  1 
50  CONTINUE 

IF(NROHA  -  NROHB)  70,90,60 
60  NROHA  =  NROHB 

GO  TO  80 
70  NROHB  =  NROHA 
80  HRITE(NPRNT,111)  NROHA 
111  FORMAT (////, 1X,62HN0TE:  NUMBER  OF  MALE  AND  FEMALE  AGE  GROUPS  UNEQU 
*AL  -  SMALLER  (,I3,7H)  USED.  ) 
90  DO  95  I  =  1,6 

IF(C(I)*D(I))  100,100,95 
95  CONTINUE 
GO  TO  110 
100  HRITE(NPRNT,222) 
222  P0RMAT(/,51H  ***  UNSMH  ERROR  NO.  1331  --  INPUT  ERROR  IN  C  OR  D, 

*/,103H  ***  ONE  OF  THE  FIRST  SIX  AGE  GROUPS  IN  ONE  OF  THE  POPULATIO 
*NS  IS  ZERO  OR  AN  INTERMEDIATE  VALUE  IS  ZERO,/, 

*22H  ***  DATA  NOT  SMOOTHED,//, 10X, 12HINPUT  VALUES, //, 15H  1ST  POPULA 
*TI0N,3X,14H2ND  POPULATION,//) 
DO  105  I  =  1,17 
HRITE(NPRNT,224)  C(I),D(I) 
A  (I)  =  0.0 
105  B(I)  =  0.0 
224  FORMAT(1X,2(F14.0,3X)  ) 
GO  TO  1000 
C 
c 

C UNITED  NATIONS  METHOD  OF  SMOOTHING  CALCULATIONS. 

c 

C 

110   DEVCAT   =    0.0 
DEVDBT   =0.0 
L    =    NROHA    -    3 
DO    200    I   =    3,L 
A(I)     =    (-C(I-2)     +    4    *    C(I-1)    ♦    10    *    C(I)    +    4    *   C(I+1)- 

*  C(I  +  2))     /    16.0 

B(I)     =     (-D(I-2)    ♦    4    *    D(I-1)     ♦    10    *    D{I)     +    4    *    D(I+1)- 

*  D(I+2))    /    16.0 

DBVCA(I)    =     (C{I)     -    A  (I))     *    100.0    /   C  (I) 

DBVDB(I)     =     (D(I)     -    B(I))     *    100.0    /   D  (I) 

DEVCAT  =  DEVCAT  +  ABS(  DEVCA(I)  ) 
200  DEVDBT  =  DEVDBT  +  ABS (  DEVDB(I)  ) 

RR  =  NROHA  -  5 
C 
c 

C PRINT    RESULTS 

c . „ _ 

C 

270  HRITE(NPRNT,777)  TC,TD,C  (1)  ,D(1)  ,C  (2)  ,  D(2) 

777  FORMAT(//,46H  POPULATION  SMOOTHING  BY  UNITED  NATIONS  METHOD, 
*//,25X,4HMALE,39X,6HFEMALE,lX,//6H    AGE, 2 (9X,8H0RIGINAL, 4X, 
*8HSMOOTHED,3X,9HDEVIATION) ,//,9H  ALL  AGES,2X,F12. 0,29X,F12. 0,//, 1 X 
*,7H  0  -   4,3X,F12.0,29X,F12.0/1X,7H  5  -   9,3X,F12. 0,29X,F12.0) 
275  K  =  NROHA  -  3 
DO  280  I  =  3,K 
J  =  5  *  (  I  -  1  ) 
L  =  J  +  4 
280  HRITE(NPRNT,888)  J,L,C  (I)  ,  A  (I)  ,DEVCA  (I)  ,  D  (I)  ,  B  (I)  ,D£VDB  (I) 
888  FORMAT(1X,I2,2H  -,I3,3X,2F 12. 0,F10. 3,7X,2F12.  0,F1 0.  3  ) 
J  =  5  *  (  NROHA  -  3  ) 


L  =  J  ♦  4 

K  =  NROHA  -  2 
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DO    290   I    =    1,2 

WRITE  (NPRNT, 555)     J,L, C (K) , D (K) 
555    FORMAT  (1X, 12, 2H   -, 13, 3X, F12.0, 29X, F12. 0) 
J    =    J    +    5 
L    =    L    +    5 
290      K   =    K   +    1 

HRIT£(t(PRNT,666)     J,C(NROHA)  ,D(NROWA) 
666    F0RMAT(1X,I2,2H    *,6X,F12. 0,29X,F12.0) 
DEVCAT    =    DEVCAT   /   RR 
DEVDBT    =    DEVDBT   /    RR 
300    HRITE  (NPRNT,999)     DEVCAT, DEVDBT 

999    PORHAT(/17X,26HAVERAGE    OF    ABSOLUTE    VALUES , 1 3X , 26H AVERAGE    OF    ABSOLU 
*TE    VALUES, /,19X,16HOP    DEVIATIONS    =    ,F6. 3, 17X, 16HOF   DEVIATIONS    =    ,F 
*6.3,////, 1X,63H    AGE- SEX    RATIO    FOR    POPULATION    SMOOTHED    BY    UNITED    NA 
♦TIONS    METHOD,//) 
CALL    AGESX (C,D) 
1000    RETURN 
END 
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Linking  of  Subroutines 

Each  main  program  presented  in  Chapter  4  was  written  to  use  a  particular  subroutine. 
However,  the  subroutines  were  written  considering  the  possibility  that  some  users  would 
want  to  write  their  own  main  program  to  link  several  subroutines.  This  Appendix  presents 
two  examples  of  how  to  write  a  main  program  using  any  combination  of  subroutines.  The 
explanation  is  given  for  those  who  have  a  knowledge  of  FORTRAN  but  are  unfamiliar  with 
the  use  of  subroutines.  For  a  more  detailed  explanation  of  subroutines,  it  is  advisable 
to  consult  any  introductory  FORTRAN  manual. 

A  subroutine  is  a  computer  subprogram  which  is  designed  to  do  specific  calculations 
for  a  main  program  (see  Chapter  3).  A  subroutine  can  be  used  several  times  in  a  main 
program,  or  it  can  be  used  in  different  main  programs.  Each  main  program  calling  a 
subroutine  should  be  followed  by  a  deck  of  computer  cards  containing  the  subroutine 
program.  This  card  deck  of  the  subroutine  is  not  needed  when  the  subroutines  have  been 
independently  compiled  and  maintained  in  the  computer.  Maintaining  a  compiled  version 
of  the  subroutines  should  be  considered  when  the  subroutines  are  used  frequently. 

The  process  of  transmitting  information  from  a  main  program  to  subroutines,  from  a 
subroutine  to  another  subroutine,  and  from  subroutines  to  main  programs  is  called  the 
"linking  process."  This  process  which  is  controlled  by  a  main  program  allows  the  analyst 
to  quickly  combine  several  subroutines  to  do  different  demographic  calculations.  This 
process  of  linking  will  reduce  computer  time  and  hence,  costs.  In  addition,  since  the 
results  of  one  subroutine  can  be  used  as  input  to  another,  the  combination  of  several 
subroutines  in  a  main  program  can  also  reduce  the  preparation  of  the  input  data  that 
would  be  required  if  each  subroutine  were  to  be  used  independently  with  its  main  program. 
Hence,  chances  of  input  errors  are  reduced.  The  linking  process  clearly  is  an  efficient 
and  effective  method  of  utilizing  subroutines.  The  data  used  by  each  subroutine  are 
transferred  from  and  to  the  main  program  through  the  CALL  and  SUBROUTINE  statements. 
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(The  subroutines  presented  in  this  publication  were  written  without  READ  statements  in 
order  to  increase  their  flexibility.) 

The  CALL  statement  is  used  by  the  main  program  to  command  the  subroutine  to  do  its 
calculations.   It  is  through  the  CALL  statement  that  the  required  input  data  are  trans- 
mitted to  the  subroutine.  The  results  of  the  subroutine  are  also  transmitted  back  to  the 
main  program  via  the  CALL  statement. 

There  are  three  parts  to  the  CALL  statement.  These  are  the  word  CALL,  the  name  of  the 
subroutine,  and  the  argument  string.  The  word  CALL  is  followed  by  a  blank  space  and  then 
the  name  of  the  subroutine.  The  argument  string  is  enclosed  in  parentheses  immediately 
following  the  name  of  the  subroutine,  i.e., 

CALL  BEERS(P,NP5,NP1,P1) 

The  argument  string  is  the  list  of  variable  names  that  are  input  to  and  output  from 

the  subroutine.  The  main  program  must  contain  the  values  for  all  input  arguments  before 

the  subroutine  is  called.  The  variable  names  in  the  argument  string  must  be  in  the 
same  order  as  in  the  SUBROUTINE  statement. 

The  SUBROUTINE  statement,  which  is  the  first  FORTRAN  statement  in  the  subroutine, 
must  be  in  agreement  with  the  CALL  statement.  The  subroutine  receives  from  the  main 
program  the  input  data  needed  to  do  its  calculations  through  the  SUBROUTINE  statement. 
This  statement  is  also  the  subroutine's  means  of  transmitting  the  results  of  its  calcu- 
lations back  to  the  main  program. 

The  SUBROUTINE  statement  consists  of  three  parts.  They  are  the  word  SUBROUTINE,  the 
name  of  the  subroutine,  and  the  argument  string.  The  word  SUBROUTINE  is  followed  by  a 
blank  space  and  then  the  name  of  the  subroutine.  Immediately  following  the  name  of  the 
subroutine  is  the  argument  string  containing  the  variable  names  of  the  data  being  trans- 
mitted between  the  main  program  and  the  subroutine.  The  argument  string  is  enclosed  in 
parentheses,  i.e., 

SUBROUTINE  BEERS(P,NP5,NP1,P1) 

The  variable  names  in  the  CALL  statement  of  the  main  program  do  not  have  to  be  the 
same  as  the  variable  names  used  in  the  SUBROUTINE  statement.  However,  both  statements 
must  have  the  same  number  of  variables  in  the  same  order.  That  is,  the  order  and  number 
of  variables  in  each  argument  string  must  be  identical. 
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The  variable  names  in  the  argument  string  of  either  the  CALL  or  SUBROUTINE  statements 
may  represent  single-valued  variables  or  refer  to  a  set  of  values  represented  by  a  vari- 
able name.  This  set  of  values  is  usually  called  an  array.  If  the  variable  name  in  an 
argument  string  represents  an  array,  it  must  be  dimensioned  in  both  the  main  program  and 
the  subroutine.  The  dimension  of  each  array  in  the  main  program  must  be  equal  to  or 
greater  than  its  dimension  in  the  subroutine. 

Examples 

Two  examples  of  how  subroutines  can  be  linked  are  given  here.  The  first  is  a  simple 
example  which  uses  only  three  subroutines.  The  second  example  links  five  subroutines. 
In  both  examples  no  explanations  are  given  about  the  elementary  Fortran  statements  -- 
READ,  WRITE,  FORMAT,  DO,  etc.  As  pointed  out  previously,  it  is  assumed  that  the  reader 
of  this  appendix  has  a  knowledge  of  FORTRAN. 

Example  1 

Three  principal  aspects  must  be  taken  into  account  in  order  to  construct  a  main  program. 
They  are  (1)  the  purpose  of  the  program,  (2)  the  subroutines  to  be  used,  and  (3)  the  input 
information  needed  for  the  calculations. 

The  purpose  of  this  example  is  to  estimate  a  life  table  based  on  an  earlier  life  table 
and  a  current  life  expectancy  at  birth.  This  particular  procedure  of  estimating  a  life 
table  is  often  used  for  population  projections;  usually  a  life  table  for  the  initial  year 
of  the  projection  is  available  and  for  the  subsequent  periods  of  time,  only  the  life  ex- 
pectancies at  birth  are  known.  A  main  program  such  as  the  one  proposed  here  could  be 
used  for  estimating  future  life  tables  to  be  used  in  a  population  projection. 

The  procedure  to  be  used  for  estimating  the  life  table  is  to  assume  a  specific  change 
in  the  known  j-qx  values  from  the  known  life  table.  The  change  should  be  in  agreement 
with  the  expected  life  expectancy  change.  The  assumptions  related  to  the  data  are:  a) 
that  there  is  a  life  table  available  and  hence  a  set  of  ,-q  values  and  a  life  expectancy 
at  birth,  and  b)  that  the  life  expectancy  at  birth  pertaining  to  the  expected  new  level 
of  mortality  is  known. 

The  implicit  assumptions  of  this  technique  are  that  the  set  of  ,-q  values  would  expe- 
rience  a  change  similar  to  the  change  between  the  ,-q  function  of  two  Coale-Demeny  re- 
gional  life  tables,  where  one  of  the  regional  model  life  tables  will  have  a  life  expect- 
ancy at  birth  corresponding  to  that  of  the  given  set  of(-qY  values,  and  the  other 
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regional  model  life  table  will  have  the  life  expectancy  at  birth  equal  to  that  of  the 
life  table  that  will  be  estimated.  This  procedure  is  based  on  the  subroutine  QXADJ  ex- 
plained in  Chapter  4. 

The  main  program  will  start  with  the  DIMENSION,  READ,  and  WRITE  statements  given  in 
Table  A.l.  The  following  step  will  be  to  perform  the  calculations  by  calling  the  sub- 
routine QXADJ  (see  table  A.l).  The  data  needed  (presented  in  the  documentation  for 
QXADJ  given  in  Chapter  4)  are  transferred  to  the  subroutine  QXADJ  through  the  CALL 
statement: 

CALL  QXADJ(EO,EONEW,NSEX,NREG,NWRIT,QX) 

After  calling  subroutine  QXADJ,  a  new  set  of  5q  values  is  obtained.  This  new  set 
will  represent  the  j-q  values  for  the  new  level  of  mortality.  In  order  to  obtain  the 
other  life  table  functions  pertaining  to  this  ,-qY  set,  subroutine  ELT  is  used.  The  form 
of  the  CALL  statement  for  ELT,  as  given  in  Chapter  4,  is: 

CALL  ELT(NREG,NSEX,K0DE,SEP0,SEP1,QXMX,XLT) 
The  subroutine  ELT  will  calculate  the  life  table  based  on  the  adjusted  ^q     values.  It 
will  return  the  abridged  life  table  in  the  array,  XLT. 

The  results  from  the  calculations  of  the  subroutine  ELT,  represented  by  variable  XLT, 
can  now  be  printed  by  using  the  subroutine  PLT.  The  form  of  the  CALL  statement  for  PLT 
is: 

CALL  PLT(XLT,NSEX,NREG) 
The  main  program  for  reproducing  this  example  --  which  is  a  modification  of  the  main  pro- 
gram for  using  QXADJ  --  is  given  in  table  A.l. 
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Table  A.1  Main  Program  for  Example  1 

DIMENSION  QX(18),XLT(18,8) 
NREAD  =  1 
NPRNT  =  15 

10  READ(NREAD,11) 

11  F0RMAT( IX, 52H 
READ(NREAD,22)(QX(I),I=1,18) 

22  F0RMAT(10F8.7) 

READ(NREAD,33)E0,E0NEW,NSEX,NREG,NXT,NWRIT 
33  FORMAT  (2F6. 3,411) 

WRITE(NPRNT,44) 
44  FORMAT (1H1) 

WRITE(NPRNT,11) 

CALL  QXADJ(EO,EONEW,NSEX,NREG,NWRIT,QX) 

KODE  =  1 

SEPO  =  0.0 

SEP1  =  0.0 

CALL  ELT(NREG,NSEX, KODE, SEPO, SEP1,QX,XLT) 

CALL  PLT(XLT,NSEX,NREG) 

IF  (NXT)20,20,10 
20  CONTINUE 

STOP 

END 
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Example  2 

The  purpose  of  this  main  program  and  the  available  information  for  preparing  the 
estimate  are: 

Purpose:       To  estimate  a  female  stable  population  distribution  by  5-year  age 
groups  and  its  corresponding  demographic  parameters. 

Data  available:  a)  Age-specific  fertility  rates  for  female  births  by  5-year  age 

groups  of  the  female  population  in  ages  15-49;  b)  a  life  expectancy 
at  birth  for  both  sexes;  and  c)  the  sex  ratio  at  birth. 

It  is  impossible  to  calculate  a  stable  population  from  the  previous  information.  For 
such  purposes,  the  A.     functions  of  a  female  life  table  will  be  required.  Therefore, 
some  assumptions  have  to  be  made  in  order  to  construct  a  female  life  table  from  a  life 
expectancy  at  birth  for  both  sexes.  Since  data  on  registered  deaths  are  not  available, 
model  life  tables  must  be  used.  It  is  therefore  assumed  that  the  pattern  of  mortality 
of  the  female  population  is  the  same  as  that  for  one  of  the  regions  of  the  Coale-Demeny 
model  life  tables.  Also,  since  the  known  life  expectancy  pertains  to  both  sexes,  the 
female  life  expectancy  needed  to  generate  a  female  model  life  table  will  be  obtained  by 
assuming  that  the  sex  mortality  differential  in  the  population  is  the  same  as  that  in 
the  regional  model  life  tables. 

Under  the  previous  assumptions,  a  main  program  can  be  written.  The  steps  to  be  fol- 
lowed in  the  main  program  are: 

a)  Obtain  a  female  life  table  containing  the  J-     function. 

D  X 

b)  Estimate  the  intrinsic  growth  rate  of  the  female  stable  population  by  using  the  fer- 
tility rates  and  the  rL  function. 

c)  Estimate  the  female  stable  population. 

A  life  expectancy  at  birth  for  females  can  be  estimated  from  a  life  expectancy  at 
birth  for  both  sexes  --  based  on  the  sex-mortality  differential  of  Coale-Demeny  model 
life  tables  --  by  using  the  subroutine  BLT.  Once  the  life  expectancy  at  birth  for  fe- 
males is  estimated,  a  Coale-Demeny  model  life  table  for  a  desired  region  can  be  calculated 
by  using  the  subroutine  MLT. 

The  next  step  is  to  calculate  the  intrinsic  growth  rate  by  using  subroutine  INTRT. 
The  stable  population  and  its  demographic  parameters  can  then  be  generated  by  using  sub- 
routine SPP.  Finally,  the  results  can  be  printed  out  by  using  subroutine  PSPP. 
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Since  subroutines  BLT,  MLT,  INTRT,  SPP  and  PSPP  will  be  used,  it  is  advisable  to  read 
the  documentation  of  such  subroutines  for  a  better  understanding  of  the  example. 

The  variables  to  be  dimensioned  in  the  main  program  will  be  those  dimensioned  in  each 
subroutine  plus,  if  necessary,  the  variable  used  for  reading  the  input  data. 

The  information  to  be  read  includes  the  fertility  rates,  the  life  expectancy  for  both 
sexes,  the  sex  ratio  at  birth,  and  the  region  of  the  Coale-Demeny  model  life  tables.  In 
the  main  program  this  is  accomplished  through  two  READ  statements.  The  first  "reads  in" 
the  age-specific  fertility  rates  for  female  births  by  5-year  age  groups  of  the  female 
population  --  represented  by  the  variable  ASFR(I),  where  I  will  take  the  values  from  1  to 
7  for  the  fertility  rates  for  the  age  groups  15-19,  20-24,  ...,  45-49. 

The  second  READ  statement  contains  the  life  expectancy  at  birth  for  both  sexes  (E0), 
the  sex  ratio  at  birth  (SRB),  and  the  region  of  the  model  life  tables  (NREG)  (see  example 
in  table  A. 2). 

The  next  step  is  to  call  each  subroutine.  In  this  particular  example  where  subroutines 
INTRT  and  SPP  are  used,  it  should  be  taken  into  account  that  subroutine  INTRT  uses  only 
seven  values  of  the  ,-L  function  (ages  15-19,  20-24,  ...,  45-49)  while  subroutine  SPP  uses 
all  values  of  the  rL  function. 

3  X 

According  to  subroutine  MLT,  all  life  table  functions  are  represented  in  a  two- 
subscripted  variable,  CDMLT(I,J).  The  location  of  the  j-L  function  is  in  column  5; 

•J     X 

that  is,  CDMLT(I,5)  for  1=1,  ...,  18.  Subscript  I  represents  the  18  age  groups.  There- 
fore, the  values  of  rL  that  have  to  be  transferred  to  subroutine  INTRT  are  only  those 
of  the  age  groups  15-19,  20-24,  ...,  45-49,  which  are  located  in  CDMLT(5,5)  up  to 
CDMLT(11,5).  Since  the  variable  used  in  subroutine  INTRT  representing  the  rL  -  BGLX5(I)  • 
has  only  one  subscript,  before  calling  subroutine  INTRT  the  value  of  the  variable  CDMLT 
has  to  be  transferred  to  variable  BGLX5.  This  is  made  by  using  a  DO  LOOP  (seen  in  ex- 
ample in  table  A. 2,  DO  100  I  =  1,7,  etc.). 

Finally,  subroutine  SPP  uses  the  rL  function  for  all  ages.  The  name  of  the  variable 
representing  the  rL  function  in  subroutine  SPP  is  BIGLX.  Hence,  the  rL  values  are 

OX  ox 

transferred  from  variable  CDMLT  to  BIGLX  by  using  another  DO  LOOP,  as  indicated  in  the 
example  (see  DO  200  ...,  etc.) 

The  main  program  for  reproducing  this  example  is  presented  in  table  A. 2. 
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Table  A.2  Main  Program  for  Example  2 

DIMENSION  BSMLT(18,8),CDMLT(18,8),BGLX5(7),ASFR(7),SP(18),CUMS 
*P(18),CSP(13),BIGLX(18) 

READ(1,11)(ASFR(I), 1=1,7) 

11   F0RMAT(7F7.6) 

READ(1,22)E0,SRB,NREG 
22  F0RMAT(F5.2,5X,F5.3,5X,I1) 

CALL  BLT(SRB,EO,NREG,EOF,EOM,BSMLT) 

CALL  MLT(E0F,2,NREG,CDMLT) 

DO  100   1=1,7 
100  BGLX5(I)=CDMLT(I+4,5) 

CALL   INTRT(BGLX5,ASFR,0,RNG) 

DO  200   1=1,18 
200  BIGLX(I)=CDMLT(I,5) 

CALL  SPP(5,RNG,BIGLX,SP,CUMSP,CSP) 

CALL  PSPP(5,RNG,SP,CUMSP,CSP,NSEX,E0F) 

STOP 

END 
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